宏将文本读取到最后一行-1。

Question

我有一个宏，它将完整的列复制到另一个工作表。

目前，我需要一个宏只复制所有的单元格直到最后一行，但排除最后一行。

例如，如果我有以下内容：

细胞A1 = 1，细胞A2 = 2，细胞A3 = 3，细胞A4 =和(A1:A3)，细胞A5 =空白

我希望宏复制所有单元格( A1、A2和A3 )。因此，我认为逻辑应该是将所有单元格的代码运行到空白(在本例中为A1到A4)，然后排除最后一个单元格(A4)，并复制上面的所有内容--我正在为整个列(A到E)执行此操作。

我的公式(非常基本)：

Application.CutCopyMode = False

Set wbk4 = Workbooks.Open(MASTER)
Set wbk2 = Workbooks.Open(WORKINGFILE)

wbk4.Sheets("Sheet1").Range("A:E").Copy
wbk2.Sheets("Sheet1").Range("XD1").PasteSpecial

wbk4.Close False

Answer 1

如果最后一行基于A列，则可以尝试以下操作：

Dim lrow As Long

With wbk4.Sheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A1", "E" & lrow - 1).Copy
    wbk2.Sheets("Sheet1").Range("XD1").PasteSpecial xlPasteAll
End With