![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
並び替えるマクロを作りたいと思っています。
ある一定の法則で並んでいるものを並び替えるので、
コピー&貼り付けマクロでは長くなってしまうので
変数を使用したいと思っているのですがうまくいきません。
なにか良い方法はないでしょうか。
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行目になったらコピー・貼り付けを終了したいです。
あ行の貼り付けはこのマクロ、
さ行の貼り付けはこのマクロとして複数組んでいく予定です。
詳しい方、教えてください。
よろしくお願いいたします。
![「エクセル VBA 指定の範囲内をコピー 」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/542558030_59657e27c3d06/M.png)
A 回答 (2件)
- 最新から表示
- 回答順に表示
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?5a7ff87)
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
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?5a7ff87)
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
【Excel :VBA】 最終行から一行空けて貼り付けたい
Excel(エクセル)
-
5
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
6
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
7
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
8
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
9
エクセル VBA 行間隔を飛ばしたデータ転記について
Excel(エクセル)
-
10
マクロの「1列おきに貼り付け処理を行う方法」を知りたいです。
Excel(エクセル)
-
11
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
EXCELで変数をペーストしたい
その他(プログラミング・Web制作)
-
15
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
16
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
17
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
18
VBAでの結合セルのコピー&ペースト
Excel(エクセル)
-
19
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
20
EXCEL VBAのオフセットの使い方について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
シート保護の状態で行の追加を...
-
一行おきにコピーするマクロが...
-
エクセルで表示された値だけ行...
-
Excelの非表示列も含めてコピー
-
エクセルで空白以外のセルの値...
-
エクセルで行挿入した際、自動...
-
エクセルでマクロを使った特定...
-
EXCELにて複数列を同条件(色)...
-
エクセルの関数について(日付で...
-
特定の桁数を抽出
-
エクセル VBA 指定の範囲内をコ...
-
VBAで同じブック内の別シー...
-
【初歩】エクセルでのマクロ(...
-
IF関数
-
エクセルマクロで、現在の時刻...
-
count関数について
-
【Excel】複数条件でのLookup
-
Excel2010 列に入力禁止の×印を
-
最終行から上10行をコピーする...
-
EXCEL コンマで区切った数字を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
Excel 条件に従いセル移動するには
-
VBAで同じブック内の別シー...
おすすめ情報
早速ありがとうございます!
質問1)回答
C7が正しいです。訂正ありがとうございます。
質問2)回答
B列およびD列は、項目名
C列およびE列は、項目に対する値
となっています。
よってB列・D列はコピーしません。
C列のどの部分がE列にコピーできているかわからなかったので、
B列・D列に項目名を入れているだけです。
マクロの全体像としては、C列にテキストを読み込み、並べ替え、E列をテキストで保存する予定です。
読み込み・保存はできたのですが、並べ替えに苦戦しています。