כיצד ניתן לאחד נתונים אונליין כנ"ל

[shamirr]

כיצד ניתן לאחד נתונים אונליין כנ"ל

 

[iyyi]

ניתן לאחד באמצעות מקרו

ראשית אני מניח שבהתייחס לנתונים בגיליון "מאוחד" אז הנתונים בגיליון "100" משובשים.
אם אני משנה אותם בהתאם ללרשום בגיליון "מאוחד" אז המקרו הבא יעשה את העבודה:

Sub MergeSheets()
Sheets("מאוחד").Select
Range("A2:E10000").ClearContents
Last = 2
For Each sh In Sheets
    If sh.Name <> "מאוחד" Then
        Lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
        Range(Cells(Last, 1), Cells(Last + Lr - 2, 1)) = sh.Name
        Range(Cells(Last, 2), Cells(Last + Lr - 2, 5)) = sh.Range("A2:D" & Lr).Value
        Last = Last + Lr - 1
    End If
Next
End Sub

לחיצה על הכפתור בגיליון "מאוחד" בקובץ המצורף תבצע את המיזוג.