No.1ベストアンサー
- 回答日時:
全容が分からないので見当違いかもしれませんが、
コピー&ペーストで実行しているならつぎのように記述されていると思います。
このモジュールのDをEに効率的に書き換えるには、編集メニューの検索と置換を使用すると良いと思います。
VBエディターの中で置換を行ってほかのマクロを書き換えてしまうといけないので、一度メモ帳にコピーしてから実行し、戻すと安心でしょう。
Sub Macro1()
Sheets("Sheet1").Select
Range("C3:C9").Select
Selection.Copy
Sheets("Sheet2").Select
Range("D3:D9").Select
ActiveSheet.Paste
End Sub
将来のことを考えると、読み込みセル/書き込みセルを変数として扱うとフレキシブルになります。つぎに例として考え方だけあげておきます。
セルを変数で扱う時は Range("A1:B1")形式はマクロで扱いにくいので、
Range(Cells(R1,C1),Cells(R2,C2)) に変更します。
この例では、
シート1のC3~C9をシート2のD3~D9へ
シート1のD3~D9をシート2のE3~E9へ
シート1のE3~E9をシート2のF3~F9へ
・
・
・
へコピーします。
Sub Macro2()
R11 = 3
C11 = 3
R12 = 9
C12 = 3
R21 = 3
C21 = 4
R22 = 9
C22 = 4
For I = 0 To 9
Sheets("Sheet1").Select
Range(Cells(R11, C11 + I), Cells(R12, C12 + I)).Select
Selection.Copy
Sheets("Sheet2").Select
Range(Cells(R21, C21 + I), Cells(R22, C22 + I)).Select
ActiveSheet.Paste
Next I
End Sub
コピー先セルを変更したい場合は R21, C21, R22, C22と変更します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/05 09:30
- Excel(エクセル) Excel フィルタ後のコピー貼付けと可視セルの関係について 3 2023/02/07 16:42
- Excel(エクセル) こんなことできますか?例えば、sheetに貼り付けた図形のタイトルを、セルA1の文字で表示する。 5 2022/04/22 15:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
マクロで貼り付け位置を可変させる方法が知りたいです。
Excel(エクセル)
-
【Excel VBA】データ貼り付けの開始位置について
Excel(エクセル)
-
毎回変わる範囲を検索し、コピペするマクロについてご教示ください。
Excel(エクセル)
-
-
4
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
5
EXCELで変数をペーストしたい
その他(プログラミング・Web制作)
-
6
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
7
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
10
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
11
【Excel VBA】変数で指定したRangeでのセル範囲を可変する方法?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで1月0日と表示される!!
-
(Excel)あるセルに文字を入力...
-
Rangeメソッドは失敗しました。...
-
エクセルで条件に一致したセル...
-
エクセルのシート間で連続した...
-
エクセルで別シートからの最大...
-
セルの値と同じ名前のシートを...
-
Excelでスクロールすると文字が...
-
エクセルでシート保護をかける...
-
エクセルで指定のセルのみ完全...
-
エクセルで20万行あるシート...
-
複数シートの同じセル内容を1シ...
-
エクセルで、勤務表から 日付...
-
Excelで複数シートの選択セルを...
-
エクセルVBA 最終行を選んで並...
-
Excelのファイル容量が減らない...
-
エクセルのルビがついたセルを...
-
エクセルで特定の文字を打つと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで条件に一致したセル...
-
エクセルで1月0日と表示される!!
-
(Excel)あるセルに文字を入力...
-
別シートのセルを絶対参照にする
-
Rangeメソッドは失敗しました。...
-
Excelシートの保護時にデータの...
-
複数シートの同じセル内容を1シ...
-
エクセルで、加筆修正したセル...
-
シート参照で変数を使いたい(EX...
-
エクセルで複写のように自動入...
-
Excelで複数シートの選択セルを...
-
INDIRECTを使わず excelで複数...
-
ExcelでTODAY関数を更新させな...
-
式の説明をお願いします。
-
excelでハイパーリンクになって...
-
エクセルのルビがついたセルを...
-
Excelでスクロールすると文字が...
-
エクセル ハイパーリンクで画像...
おすすめ情報