宜しくお願いします。
Excel2003でVBAを利用しています。
他のブック内にある(sheet1)のセル範囲(B9:D64)の値を
現在開いているブック内の(sheet8)の指定した位置に貼り付けたいと
思っています。
コピーしたセルはB,C,Dと3列あるのですが、
B列を(sheet8)のB列に、C列を(sheet8)のF列に、
D列を(sheet8)のJ列のそれぞれ12行目を頭にして
貼り付ける、という作業をしたいのです。
上記のようなコピー作業が、列や行がばらばらで50箇所くらい
あります。
マクロ記録で、2,3箇所試しにやってみたのですが、
1列づつ、クリップボードを経由して行わなければならず、
冗長なコードになってしまい、もっと良い方法があるのでは
ないかと思い、書込みしました。
現在のコードです。
workbook(1).Activate 'コピー元のセルを選択してクリップボードへ
Worksheets(sheet1).Range("B9:B64").Copy '1枚目 日付列
'現在のブックを選択して貼り付け
ThisWorkbook.Activate
Range("B12").Select '1枚目 日付列
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '形式を選択して値を貼り付け
上記のように、1列づつコピーしては貼り付けている状態です。
もっとスマートな方法がありましたら教えてください。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
回答ありがとうございました。
参考サイトを拝見させていただきました。
その中の、
Range("B1:B3").Value = Range("A1:A3").Value
というコードを参考にしましたところ、スムーズに処理ができました。
一行で済んでびっくりです!
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
VBAのFind関数で結合セルを検索...
-
エクセルVBAにて =A1=B1とすれ...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
空白セルをとばして転記
-
文字列の結合を空白行まで実行
-
マクロについて。S列の途中から...
-
vba 2つの条件が一致したら...
-
データグリッドビューの一番最...
-
VBAで10行おきにセルの下に罫線...
-
targetをA列のセルに限定するに...
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
行はそのままで列のみをVBAコー...
-
VBAで指定範囲内の空白セルを左...
-
SUM関数の範囲を変数を代入して...
-
DataGridViewに空白がある場合...
-
VBAのコードを教えてください
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
B列の最終行までA列をオート...
-
VBAを使って検索したセルをコピ...
-
エクセルVBAでデータ転記
-
IIF関数の使い方
-
マクロ 最終列をコピーして最終...
-
文字列の結合を空白行まで実行
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
VBマクロ 色の付いたセルを...
-
VBAでのリスト不一致抽出について
-
【VBA】複数行あるカンマ区切り...
-
VBA 値と一致した行の一部の列...
-
データグリッドビューの一番最...
-
エクセルVBA シートモジュール...
おすすめ情報