セルの結合

質問

VBAの勉強を始めたばかりの初心者です。

A1、A5　A9・・・・A25までのセルに、それぞれデータが入っていて、データが入っている各セルの下にはデータが入っていない空白の三行を作っています。隣のB列にもデーターはありません。
それをA1からB4、A5からB8・・・A25からB29までのセルを、手作業で結合をしているのですが、今後データが増えていくのでどうしてもVBAで行いたいのです。
ネットで調べてもありそうでなかなかないのでどなたか教えていただければ助かります。
わかりにくい説明ですが宜しくお願いします。

　 A列　　B列
1 ああ　　空白
2 空白　　空白
3 空白　　空白
4 空白　　空白
5 ああ　　空白
6 空白　　空白
7 空白　　空白
8 空白　　空白
9 ああ　　空白
・
・

回答No.2

keithin · ベストアンサー

＞それをA1からB4、A5からB8・・・A25からB29までのセルを、手作業で結合をしている

簡単な手動手順：
Ａ１：Ｂ４をセル結合する
Ａ１：Ｂ４をコピーする
リスト下端まで選択する
形式を選んで貼り付けで「書式」を貼り付ける

＞マクロ

マクロは自由度が乏しくてお薦めではありませんが，どうしてもならご参考に。

sub macro1()
　dim i as long
　application.displayalerts = false
　range("A:B").unmerge
　for i = 1 to range("A65536").end(xlup).row step 4
　　cells(i, "A").resize(4, 2).merge
　next i
　application.displayalerts = true
end sub

お礼

返事が遅くなりました。
マクロで成功しました。
1週間ほど悩んでいたのですっきりしました。
VBA勉強を続けていくので、機会があれば今後も宜しくお願いします。
ありがとうございました。

回答No.3

tsubuyuki

ちょっと根本を付く質問を投げかけます。

> 今後データが増えていくのでどうしてもVBAで行いたい

とのことですが、

・データが１件増えるごとに、その１件分に対して手作業で結合する
　（マウスで範囲選択→リボンのホームタブ（初期位置）から「セル結合」のボタン）

・データが１件増えるごとに、全体に対してマクロを走らせる
　（リボンのユーザー定義タブからマクロ起動
　　またはＣｔｒｌ＋Ｆ８からマクロ起動
　　もしくは開発タブからマクロ起動
　　いずれにせよ、タブは初期位置以外）

どちらが簡単ですか？

仮に「その１件分に対して結合を行うマクロ」だとすると、
さらに無駄だと思うので、選択肢から外しています。

例えば、
「Ａ列にデータが入力されたら、入力するための行範囲（書式設定など）を作成」
と言うマクロなら、価値はあるかもしれません。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Column = 1 Then
　　　　Target.Resize(4, 2).Merge
　　　　' その他、罫線や書式設定の処理など
　　　　Cells(Target.Row, 3).Select
　　End If
End Sub

などなどです。
ただし正直なところ、前のデータをコピー→該当列に書式を貼り付け　の方が
確実に早い場合も大いにありますので、そこは考えどころです。

単純な処理ならマクロより手作業の方が早い場合もありますよ。

お礼

返事が遅くなりました。
今後、数百件のデータになっていくので、どうしてもマクロで実行したかったのです。
結局keithinさんの回答でできました。
VBAの勉強を始めたばかりなので、今後機会があればお世話になります。
ありがとうございました。

回答No.1

FEX2053

VBAの書き方の基本などはご存知、という前提で
いきなりコードを

Sub macro1()
Do Until Selection.Offset(, 1) = "stop"
Selection.Resize(4, 2).Select
Selection.MergeCells = True
Selection.Resize(1, 1).Offset(1).Select
Loop
End Sub

これで、「A列最後の枠の右側（例えばB9）に"stop"と
あるまで、４×２ずつセルを結合」して行きますよ。

Do～Untilなので、終了条件をミスすると止まらなくなり
ますから、F8を押すテストで動作を確認してから実際に
動かしてみて下さい。

お礼

返事が遅くなりました。
結果的にはkeithinさんの記述でできました。
回答があるかどうか心配だったのですが、FEX2053さんの回答が一番早かったのでうれしかったですね。
今後の参考にさせて頂きます。
ありがとうございました。