• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセルVBAでコピーペーストのやり方を教えてください。)

エクセルVBAで複数のシートをコピーして貼り付ける方法

このQ&Aのポイント
  • エクセルVBAを使用して、複数のシートから任意の範囲をコピーして別のシートに貼り付ける方法を教えてください。マクロに記録して繰り返し使用したいです。
  • シートの範囲は常にC20~E500ですが、シートは毎回異なります。特定の条件に基づいて範囲を選択し、一つのシートにまとめて貼り付けるマクロが必要です。
  • エクセルのバージョンは2003または2007を使用しています。お願いします。

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

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

Sub try()  Dim ws1 As Worksheet  Dim wsA As Worksheet  Dim r1 As Range, r2 As Range  '貼り付け先のブック名とシート名  Set ws1 = Workbooks("Book1.xls").Worksheets("Sheet1")  Set r1 = ws1.Range("A1")  For Each wsA In ActiveWindow.SelectedSheets      Set r2 = wsA.Range("D10:K20") '貼り付け元の範囲      r1.Resize(r2.Rows.Count, r2.Columns.Count).Value = r2.Value      Set r1 = r1.Offset(15) '貼り付け先のオフセット(500?)  Next End Sub 貼り付け元Bookの標準モジュールにコピペして、 貼り付けたいシートをCtrlキーを押しながらクリックしてから、 マクロを実行。 必要な部分は修正願います。

noname#72144
質問者

お礼

ありがとうございました! コピペしてできました!!!

関連するQ&A

専門家に質問してみよう