• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:マクロ)

マクロを使ってExcelシートのデータを繰り返し貼り付け、印刷、保存する方法を教えてください

このQ&Aのポイント
  • 質問者はExcelのマクロを使って、シート2のA~Zにあるデータをシート1のD2に貼り付け、印刷してPDFで保存し、その後A列のデータを削除したいと考えています。
  • 質問者はマクロの中で指定された処理を実行すると、印刷は成功するが保存する際にファイル名が最初のファイル名のままで中身が上書きされてしまうという問題が生じています。
  • 質問者はマクロを実行する回数を指定する方法についても教えてほしいと思っています。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

繰り返し制御については、こんなカンジ?? 'Sheet1をアクティブにして実行 Sub カード() ' Keyboard Shortcut: Ctrl+a Application.ScreenUpdating = False 'Sheets("Sheet2").Select With Sheets("Sheet2") For kk = 26 To 1 Step -1 Application.CutCopyMode = False .Range(.Cells(1, kk), .Cells(24, kk)).Copy Sheets("Sheet1").Range("D2").PasteSpecial xlPasteValues '~~~ Sheets("Sheet1").Range("D2:D25").ClearContents .Columns(kk).Delete Next End With 'Sheets("Sheet1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

関連するQ&A

専門家に質問してみよう