如何在宏中使用单元格值将一系列数据复制到新工作表

Question

我已经在谷歌上搜索了一段时间，但无法找到解决方案，希望有人能提供帮助。

我正在尝试将数据范围从一个工作表 (Sheet1) 复制到新工作表 (Sheet2)，范围的开头始终保持不变（A 列，单元格 3），但行会根据输入而变化数据。我需要这个宏，以便可以将其分配给按钮。

例如：我需要将所有数据从 A1 复制到 E3 到新工作表，但下一次输入更多数据时范围可能从 A1 到 E4。列将始终保持不变（A 和 E），但行每次都会不同。

请帮忙

当前代码

Sub CopyItOver()

Dim lastRow As Long
Dim CellNum As String

RowLetter = "U"
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Worksheets("data").Range("$H$1").Value = lastRow
CellNum = RowLetter & lastRow
Worksheets("data").Range("$H$2").Value = CellNum

Set NewBook = Workbooks.Add
Workbooks("template.xlsm").Worksheets("data").Range("A3:cellnum").Copy
NewBook.Worksheets("Sheet1").Range("A1").PasteSpecial (xlPasteValues) Range("R:R").NumberFormat = "dd-mm-yyyy;@"

End Sub

Answer 1

我正在尝试将一系列数据从一个工作表 (Sheet1) 复制到一个新工作表 (Sheet2)...

试试这个

Sub CopyPaste1()
Sheets("Sheet2").Cells.Clear
LastRowColumnE = Cells(Rows.Count, "E").End(xlUp).Row
Worksheets("Sheet1").Range("A1:E" & LastRowColumnE).Copy Destination:=Worksheets("Sheet2").Range("A1")
End Sub

或者，

Sub CopyPaste2()
Sheets("Sheet2").Cells.Clear
LastRowColumnE = Cells(Rows.Count, 5).End(xlUp).Row
Sheets("Sheet1").Range(Cells(1, 1), Cells(LastRowColumnE, 5)).Copy Destination:=Sheets("Sheet2").Cells(1, 1)
End Sub

或者

Sub CopyPaste3()
Sheets("Sheet1").Columns("A:E").Copy Destination:=Sheets("Sheet2").Columns(1)
End Sub