שינוי בטבלת אקסל -חלק מהשורות לטורים

[atlantik]

שינוי בטבלת אקסל -חלק מהשורות לטורים

שלום לחברי הפורום.
קיבלתי מלקוח טבלת אקסל ארוכה עם רשימת מקט"ים וספקים בצורה שהוא מייצא.
הוא סיפק מקט"ים עם רשימת ספקים ומקט"י יצרן בשורות,בעוד אני צריך שורת מק"ט ואת כל הספקים בשורות נוספות )בין 2 ל 10 ספקים לכל מק"ט.
בשביל להטעין אותה למערכות שלי אני חייב לבצע שינוי בטבלה הארוכה.
צירפתי קובץ מקוצר עם גיליונות לדוגמא שהכנתי לפני ואחרי כדי להדגים מה יש כעת (לפני ) ומה אני צריך (אחרי) .
אני מקווה שאפשרי
אשמח לעזרתכם ,
בברכה,
מעיין

 

[iyyi]

הכי פשוט בעזרת מקרו. לחיצה על כפתור צור רשימה בגיליון "לפני"

תיצור את הרשימה המבוקשת בגיליון "אחרי"
לפני ההרצה גיליון "אחרי" ריק.
להלן קוד המקרו:

Sub Nlist()
Set b = Sheets("VendorsList (לפני)")
Set a = Sheets("VendorsList  (אחרי)")
Lr = b.Cells(Rows.Count, 1).End(xlUp).Row
n = 2
For i = 2 To Lr
    v = WorksheetFunction.CountA(b.Range(b.Cells(i, 1), b.Cells(i, 27)))
    a.Range(a.Cells(n, 1), a.Cells(n, 3)) = b.Range(b.Cells(i, 1), b.Cells(i, 3)).Value
    a.Cells(n, 4) = b.Cells(i, 5).Value
    For j = 6 To v Step 2
        a.Cells(n, 5) = b.Cells(i, j).Value
        a.Cells(n, 6) = b.Cells(i, j + 1).Value
        n = n + 1
    Next j
Next i
        
    
End Sub

מצורף קובץ הדגמה

 

[atlantik]

תודה רבה

ממש תודה iyyi, עזרת לי המון, פשוט הורדתי, הדבקתי את הטבלה שלי והסתדר בלחיצת כפתור( המקרו).
כל הכבוד!
&nbsp