如何使用VBA在Excel工作表中复制动态范围

问题描述

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

I am trying to make the rang is dynamic in the macro without specifying the last line x.Sheets("SheetName").Range("A2:K1000").Copyin 1000 line I want to change it to dynamic because sometimes I have less or more than that.

推荐答案

尝试一下:

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

这篇关于如何使用VBA在Excel工作表中复制动态范围的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！