並び替えるマクロを作りたいと思っています。
ある一定の法則で並んでいるものを並び替えるので、
コピー&貼り付けマクロでは長くなってしまうので
変数を使用したいと思っているのですがうまくいきません。
なにか良い方法はないでしょうか。
C6から始まる連続データを、E10から2行ずつあけて貼り付けをしたいです。
C列のデータは400行くらいまで続き、
E列の空けた部分(E11,E12)にもC列のほかの部分から貼り付けしたりする予定なので
列の挿入や削除はできるだけ使用したくありません。
Sub test()
Dim I As Long, J As Long,
J = 11
For I = 7 To J Step 3
Cells(I, 3).Copy Cells(I + 3, 5)
Next I
End Sub
上記作成してみたものの、E列が11行目になると終わってしまい、どう手直ししたらいいのかわかりません。
本来であればC列が11行目になったらコピー・貼り付けを終了したいです。
あ行の貼り付けはこのマクロ、
さ行の貼り付けはこのマクロとして複数組んでいく予定です。
詳しい方、教えてください。
よろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
以下のマクロを作成してください。
Option Explicit
Public Sub あ行コピー()
Dim row As Long
Dim row2 As Long
row2 = 10
For row = 7 To 11
Cells(row2, "E").Value = Cells(row, "C").Value
row2 = row2 + 3
Next
End Sub
No.1
- 回答日時:
補足要求です。
質問1)
>C6から始まる連続データを、E10から2行ずつあけて貼り付けをしたいです。
C7から始まる・・・が正しいですね。
質問2)
コピーするのはC列をE列にコピーだけですか。
図ではB列をD列にコピーしたいように見えます。(マクロではB列をD列にはコピーしていない)
B列をD列にコピーするのでしょうか。それともしないのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
一行おきに貼り付ける 可能でしょうか
Visual Basic(VBA)
-
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
-
4
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
5
【Excel :VBA】 最終行から一行空けて貼り付けたい
Excel(エクセル)
-
6
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
7
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
8
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
9
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
10
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
VBAの構文 3列置きにコピーして別シートに貼付
Visual Basic(VBA)
-
13
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
16
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
17
コピーしたデータを2行ずつに貼り付け
その他(Microsoft Office)
-
18
EXCEL VBAのオフセットの使い方について
Excel(エクセル)
-
19
(Excel2013)複数条件によって一定間隔でコピー&ペーストするVBA
Visual Basic(VBA)
-
20
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
エクセル VBA 指定の範囲内をコ...
-
Excelのマクロで不規則に連番を...
-
エクセルマクロで、現在の時刻...
-
【初歩】エクセルでのマクロ(...
-
特定の文字があるセルの隣の数...
-
Excelの非表示列も含めてコピー
-
エクセルの関数について(日付で...
-
シート保護の状態で行の追加を...
-
行数が不規則な一週間ごとの合...
-
EXCELにて複数列を同条件(色)...
-
エクセルのマクロ、AVERAGEIFを...
-
A1セルに入力したら、入力時間...
-
エクセル ボタンを押すとセルの...
-
セルを結合したA4とA5の条件付...
-
お肉の下のシートを煮込んでし...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
リンク元の日付が空白の時リン...
-
値を入力後、自動的にアクティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
【マクロ】セルに関数を入れる...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
エクセルで空白以外のセルの値...
-
エクセルで行挿入した際、自動...
-
エクセル VBA 指定の範囲内をコ...
-
エクセル マクロ 貼り付け先が...
-
特定の桁数を抽出
-
Excel VBAで日にちを入力して線...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
最終行から上10行をコピーする...
-
エクセルで反転コピー
-
エクセルのマクロ、AVERAGEIFを...
-
【マクロ】IF複数条件の上限に...
-
同一列内の複数条件 カウント
おすすめ情報
早速ありがとうございます!
質問1)回答
C7が正しいです。訂正ありがとうございます。
質問2)回答
B列およびD列は、項目名
C列およびE列は、項目に対する値
となっています。
よってB列・D列はコピーしません。
C列のどの部分がE列にコピーできているかわからなかったので、
B列・D列に項目名を入れているだけです。
マクロの全体像としては、C列にテキストを読み込み、並べ替え、E列をテキストで保存する予定です。
読み込み・保存はできたのですが、並べ替えに苦戦しています。