فرض کن شما اعدادت از A2 شروع میشه تا یه جایی تو همین ستون A حالا میخوای این سری اعدادت 100 بار تکرار بشه. کد زیر یه نمونه مثاله.
کد:
Application.ScreenUpdating = False
Dim n, s, i As Long
s = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For i = 1 To 99
n = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
Sheet1.Range("A2:A" & s).Copy Destination:=Range("A" & n + 1)
Next i
Application.ScreenUpdating = True
کد رو واسه یه button کلید میتونی به کار ببری . اگر محدودت چند تا ستون بود و میخوای چند تا ستون رو باهاشون اینکارو بکنی
تو بخش زیر به جای A دومی اسم اخرین ستونتو بزار مثلا C
کد:
Sheet1.Range("A2:A" & s).Copy
علاقه مندی ها (Bookmarks)