根据突出显示的[关闭]选择行或列，将数据复制到新工作表中

Question

这个问题也可以发布在其他论坛上，但我无法找到答案。

我想要一个可以的宏

• 复制选定的行或列或单元格。
• 制作新的file.xlsx
• 将该数据粘贴到该表中。

Answer 1

您是要将其粘贴到某个地方还是仅仅是纸张的开头？什么决定你是复制行还是列？

这将复制当前所选单元格的行，然后将其粘贴到新工作簿的第一行

Sub CopyRow()
  Selection.EntireRow.Copy
  Workbooks.Add
  ActiveSheet.Paste
End Sub

编辑

添加此代码以询问您是否要保存，然后您可以有一个问题来复制行或列，或者有一个单独的宏来复制列。

Dim docname As String
If MsgBox("Would you like to save the doc?", vbYesNo, "Save?") = vbYes Then
 docname = InputBox("What would you like to call the doc?", "Title")
 ActiveWorkbook.SaveAs Filename:=docname, FileFormat:=xlOpenXMLWorkbook
End If