copy-paste - 从excel中的选择创建新工作簿

Question

我有一个月度工作簿，其中包含大约 37000 行的详细信息，比如 350 个客户。
客户必须在单独的工作簿中获取他们的详细信息，我将附上他们的 Pastel 发票。

我想要一个宏来：

1. 选择客户范围后。
2. 打开一个新工作簿并将选择粘贴到A1
3. 然后将工作簿保存在单独的目录中（例如C:\Aug2013Detail：）
4. 将工作簿与新工作簿中的客户名称一起保存（粘贴后A2始终保留客户名称）A2

因此最终在该目录中有 350 个单独的工作簿

非常感谢。亨尼·科赫

Answer 1

我摆弄了一下，这很完美！！！！！！！亨尼

Sub Macro13()
  '
  ' Macro13 Macro
  '
  ' Keyboard Shortcut: Ctrl+s
  '
  Selection.Copy
  Workbooks.Add
  ActiveSheet.Paste
  ActiveCell.Offset(1, 0).Range("A1").Select
  Application.CutCopyMode = False
  ThisFile = Range("A2").Value
  ActiveWorkbook.SaveAs Filename:=ThisFile
  ActiveWindow.Close
End Sub