Excel VBA：复制很多列

Question

我想将工作表中的所有数据复制到另一个新Excel文件的工作表中。 我已经试过了：

Set wkb = Workbooks.Add
wkb.SaveAs myNewFile
ThisWorkbook.Worksheets("Sheet 2").Activate
Set Ticker = ThisWorkbook.Worksheets("Sheet 2").Range("A1").CurrentRegion
Ticker.Copy
wkb.Worksheets(1).Activate
Cells(1, 1).PasteSpecial xlPasteAll
wkb.Save
wkb.Close

我发现的问题是，当有大量列（例如，从A到OV）时，它将无法工作。 您知道其他方式吗？

Answer 1

您可以完全跳过剪贴板：

Set wkb = Workbooks.Add
copyAddress$ = ThisWorkbook.Worksheets("Sheet 2").Range("A1").CurrentRegion.Address

With wkb
    .SaveAs myNewFile
    .Sheets(1).Range(copyAddress).Value = ThisWorkbook.Worksheets("Sheet 2").Range(copyAddress).Value
    .Save
    .Close True '// Assuming you would want to save changes
End With

或者，您可以复制整个工作表：

Set wkb = Workbooks.Add
ThisWorkbook.Sheets("Sheet 2").Copy Before:=wkb.Sheets(1)