Question

我有一张2张工作簿，我只关心Sheet1这个功能。

使用我在此站点上找到的以下代码将A列和G列中的数据复制到新工作簿中。

Sub dural()
Dim r1 As Range, r2 As Range
Sheets(1).Select
Set r1 = Range("A:A")
Set r2 = Range("G:G")
Set wbNew = Workbooks.Add
r2.Copy Range("A1")
r1.Copy Range("B1")
End Sub

我不需要打开新工作簿，就像上面的代码一样显示。

我想自动创建输出并将其保存为新文件，最好是在特定目录中。让我们称之为output.xlsx。原始文件是SOURCE.xlsm

Answer 1

像这样简单：

Sub dural()
  With Workbooks.Add
    ThisWorkbook.Sheets(1).Range("G:G").Copy .Sheets(1).Range("A1")
    ThisWorkbook.Sheets(1).Range("A:A").Copy .Sheets(1).Range("B1")
    .SaveAs "your path + filename here"
    .Close
  End With
End Sub

应该做你想做的一切。

如果您还有任何疑问，请询问：）

将特定列复制到新工作簿

1 个答案: