特定のセルを結合したい

質問

添付画像のように、同じ数字が連続してある場合、それらのセルを結合したいです。
7000行くらいあるので、一気に処理できる方法が知りたいです。
回答よろしくお願いします。

回答No.2

tom04 · ベストアンサー

こんにちは！

VBAになってしまいますが、一例です。
データはA列の1行目からあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub 結合() 'この行から
Dim i As Long, cnt As Long
Application.DisplayAlerts = False
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row - 1
If Cells(i, "A") = Cells(i + 1, "A") Then
cnt = i
Do While Cells(cnt, "A") = Cells(i, "A")
cnt = cnt + 1
Loop
Range(Cells(i, "A"), Cells(cnt - 1, "A")).Merge
i = cnt - 1
End If
Next i
Application.DisplayAlerts = True
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので、
別Sheetでマクロを試してみてください。m(_ _)m

お礼

できました。
今回は取り急ぎ結果を出さなければいけなかったのでVBAを勉強する時間がなかったのですが、これを機に勉強してみようと思います。

回答ありがとうございました。

回答No.1

yuukimainami

まず、統合したいセルを選択してください。
あとは、「セルを統合して中央揃え」のボタンを選択すれば、
出来ますよ。

「セルを統合して中央揃え」のボタン

出しかたは、2つあります。

（１）
統合したいセルを選択した状態で、
右クイックすると縦長項目と横長項目が出てくると思いますが、
横長の項目の中に「←a→」のようなボタンが出てきます。
それが、「セルを統合して中央揃え」のボタンです。

（２）
エクセル上部のリボンの中にも同じボタンがあります。

（余談）
統合したいセルの複数個所に文字や数字が入っていると、
左上にある文字や数字が優先されます。

今回の場合は同じ数字なので、問題なく「OK」を選択すればいいのですが、
異なる場合は注意してください。

お礼

回答ありがとうございます。

7000行くらいの条件が異なるセル同士を結合したいのです。
一つ一つ手動で指定して結合したいのではありません。