vba - 強調表示に基づく行または列の選択に応じて、データを新しいシートにコピーします

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