vba - 根据突出显示的行或列选择将数据复制到新工作表中

Question

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

我想要一个可以

• 复制我选择的行、列或单元格。
• 制作新文件.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