Question

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

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

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

Cell A1 = 1，Cell A2 = 2，Cell A3 = 3，Cell A4 = Sum（A1：A3），Cell A5 = Blank

我希望宏复制所有单元格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

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

1 个答案: