איחוד טווח נתונים ממספר גליונות לגיליון מרכז

[shamirr]

איחוד טווח נתונים ממספר גליונות לגיליון מרכז

אפשר בבקשה קוד פשוט, (אני מבין שאפשר רק עם קדו) שמאחד את הנתונים בגליונות קלט1 ו 2 לפלט? בבקשה

 

[shamirr]

קדו = קוד מאקרו

האם ישנה דרך אחרת לאחד טווחי נתונים מגליונות שונים

 

[iyyi]

אם הגיליון המרכז הוא האחרון, הרץ את הקוד כשאתה נמצא בו

Sub MergeSheets()
Last = 1
For i = 1 To Sheets.Count - 1
    Set Rng = Sheets(i).UsedRange
    Rng.Copy Destination:=Range("A" & Last)
    Last = Last + Rng.Rows.Count
Next i
End Sub

 

[shamirr]

מרשים! תודה רבה