VBA入門者です。宜しくお願いします。
以下の作業を、シート(1)~(3)に繰り返したいのです
◎シート(”レポート”)列A,C,F…40列まで3列置きにコピー
◎シート(1)のA3に貼付
初歩的な構文だとシートごとに設定するのが大変です(汗)
下の構文をコンパクトにまとめ、
できれば・・・
シート(2)には(B4,B23)~、シート(3)には(C4,C23)~同じ流れでコピペする動作も
まとめたいのです。
With Worksheets("レポート")
.Range("A4:A23").Copy
Worksheets("1").Range("A3").PasteSpecial xlPasteValues
.Range("C4:C23").Copy
Worksheets("1").Range("B3").PasteSpecial xlPasteValues
.Range("F4:F23").Copy
Worksheets("1").Range("C3").PasteSpecial xlPasteValues
.Range("I4:I23").Copy
Worksheets("1").Range("D3").PasteSpecial xlPasteValues
'……40列まで続く
End With
No.1ベストアンサー
- 回答日時:
こんにちは!
>'……40列まで続く
とは「レポート」Sheetの40列(AN列)までというコトでしょうか?
それともデータがある限り3列毎に40回同じ操作を繰り返す!というコトなのでしょうか?
質問文では
A・C・F・I・・・
となっていますので、
A列はそのまま値をコピー&ペーストし、C列以降3列毎というコトですよね?
二つやってみました。
「Sample1」がAN列までで、「Sample2」がデータがある限りC列以降3列毎に40回コピー&ペーストしています。
Sub Sample1()
Dim j As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("1")
With Worksheets("レポート")
.Range("A4:A23").Copy
wS.Range("A3").PasteSpecial Paste:=xlPasteValues
cnt = 1
For j = 3 To 40 Step 3 '//C列~AN列まで3列毎
cnt = cnt + 1
Range(.Cells(4, j), .Cells(23, j)).Copy
wS.Cells(3, cnt).PasteSpecial Paste:=xlPasteValues
Next j
End With
End Sub
Sub Sample2()
Dim j As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("1")
With Worksheets("レポート")
.Range("A4:A23").Copy
wS.Range("A3").PasteSpecial Paste:=xlPasteValues
For j = 3 To .UsedRange.Columns.Count Step 3 '//C列~最終列まで3列毎
If cnt = 40 Then Exit For '//40回繰り返したらループから抜ける★
cnt = cnt + 1
Range(.Cells(4, j), .Cells(23, j)).Copy
wS.Cells(3, cnt + 1).PasteSpecial Paste:=xlPasteValues
Next j
End With
End Sub
こんな感じで良いのでしょうか?m(_ _)m
tom04さんへ
ありがとうございます!!
【Sample1】を参考にさせていただきました!
本当に助かりました!
これで、上手く行きそうです!
感謝♡
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
-
4
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
5
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
6
エクセル VBA 指定の範囲内をコピー 複数行あけて貼り付けを指定範囲内で
Excel(エクセル)
-
7
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
8
EXCELマクロで、シート間でのコピーペーストを繰り返す方法
Excel(エクセル)
-
9
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
10
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
11
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
12
Excel 3列毎のセルを別の表に抽出したい。
Excel(エクセル)
-
13
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
14
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
15
複数のセルをコピーし、別シートの任意のセルへペーストをするためのマクロ
Excel(エクセル)
-
16
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
17
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
18
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
19
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
20
エクセル VBA・マクロ コピー 貼り付け 飛び飛び
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
Cellsのかっこの中はどっちが行...
-
Changeイベントでの複数セルの...
-
データグリッドビューの一番最...
-
VBAでのリスト不一致抽出について
-
Excel VBA 同順位の順位補正に...
-
VBAで条件から範囲を指定して色...
-
vba 2つの条件が一致したら...
-
【Excel VBA】カンマと改行コー...
-
複数の列の値を結合して別の列...
-
VBAコンボボックスで選択した値...
-
VBAを使って検索したセルをコピ...
-
VBA グラフX軸の変更
-
Application.Max
-
C# dataGridViewの値だけクリア
-
マクロについて。S列の途中から...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBAの構文 3列置きにコピーし...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報