macros直到最后一行读取文本 – 1

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

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

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

小区A1 = 1，小区A2 = 2，小区A3 = 3，小区A4 =和（A1：A3），小区A5 =空白

我想要macros复制所有单元格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