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

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

1 个答案:

修改