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

Question

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

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

Answer 2

像这样的事情将完成这项工作：

Option Explicit

Public Sub TestMe()

    Dim lngLastRow As Long

    lngLastRow = 150
    'or come up with a function from here
    'https://www.rondebruin.nl/win/s9/win005.htm

    With x.Worksheets("SheetName")
        .Range(.Cells(2, 1), .Cells(lngLastRow, 1)).Copy
    End With

End Sub

通常，给定列中的最后一行或给定行中的最后一列是您将在 VBA 中花费大量时间的事情。 因此，阅读以下内容是个好主意： https : //www.rondebruin.nl/win/s9/win005.htm

Answer 3

通常，自下而上查找包含值的最后一行。

with x.Sheets("SheetName")
    .Range(.cells(2, "A"), .cells(.rows.count, "K").end(xlup)).Copy
    'paste it somewhere
end with

Answer 4

有没有一种方法可以不使用复制粘贴？ 例如“设置rng = .Range（.Cells（2，1），.Cells（lngLastRow，1））”，然后使目标范围的第一个单元格等于此变量-例如“ rng2 = rng”？ 我需要在同一个工作簿中以及在单独的工作簿中的多个其他工作表上执行大量这些操作，然后需要将这些范围放入主工作表中。

我正在尝试将使用此配置的复制粘贴功能转换为我在上面描述的功能，但似乎无法正常工作。

谢谢。