如何在Excel工作表中使用vba複製動態範圍

Question

我想讓宏在沒有指定最後一行x.Sheets("SheetName").Range("A2:K1000").Copy的1000行中是動態的，我想將其更改爲動態，因爲有時候我有更少或更多。

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

通常情況下，查找包含從下往上的值的最後一行。

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

Answer 3

像這樣的事情會做的工作：

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