vba - 如何使用vba复制Excel工作表中的动态范围

Question

我试图使宏中的范围是动态的，而不指定最后一行x.Sheets("SheetName").Range("A2:K1000").Copy 在1000行I中想要将其更改为动态，因为有时我的数量会少于或较多。

Answer 1

试试这个:

Sub Test() 
Dim lRow as Long 
Dim sht as Worksheet
Set sht = x.Sheets("SheetName")

lRow = sht.Cells(sht.Rows.Count, 2).End(xlUp).Row

sht.Range("A2:K" & lRow).Copy
End Sub