以下のようなセルの結合って、どうすればいいのでしょうか？

質問

みなさん、是非教えて頂けないでしょうか。
エクセルで、以下のようにセルを即座に結合できる方法を探しています。

名前　お店
松本　Ａ
松本　Ｂ
松本　Ｃ
鈴木　Ｄ
山口　Ｆ
山口　Ｇ
山口　Ｈ
山口　Ｉ
山口　Ｊ

↓

名前　お店
　　　　Ａ
松本　Ｂ
　　　　Ｃ
鈴木　Ｄ
　　　　Ｆ
　　　　Ｇ
山口　Ｈ
　　　　Ｉ
　　　　Ｊ

名前毎に、次の列の名前が変わったら、その連続している名前のセルを全て結合したいのです。

全部で約７５００行、名前が５００程あるので、中々手作業だと時間がとられて仕方ありません。
どなたか、お力を貸して頂けないでしょうか。
よろしくお願い致します。

回答No.4

merlionXX

A列に名前がありA1から始まっているものとします。

以下の手順をおためしください。

1.Altキー＋F11キーで Visual Basic Editor画面を呼び出します。

2.画面上部のメニューバーから挿入、標準モジュールで出てきたコードウィンド（右側の白い広い部分）に以下のコードをコピペします。

'*****ここから下をコピペ*****

Sub test01()
With ActiveSheet
i = 1
Do While .Cells(i, 1).Value <> ""
j = i + 1
Do While .Cells(i, 1).Value = .Cells(j, 1).Value
j = j + 1
Loop
Application.DisplayAlerts = False
.Range(.Cells(i, 1), .Cells(j - 1, 1)).Merge
Application.DisplayAlerts = True
i = j
Loop
End With
End Sub

'*****ここより上までをコピペ*****

3.Alt+F11キーでワークシートへもどります.

4.メニューから、ツール、マクロ、マクロで出てきたマクロ名（test01）を選択して実行

これでできます。

お礼

merlionXXさん
説明をご丁寧に記入して頂いたおかげで、無事にセルの結合ができました。
どうもありがとうございました。

回答No.3

ts3m-ickw

No.2です。1回しか使わないだろうからいいかなって思ったんですが、
jが参照範囲を超えてエラーになるのが嫌な場合はこちらを。
Sub Merge()
i = 1
Do While (i < 7500 And j < 7500)
j = i + 1
Do While Cells(i, 1).Value = Cells(j, 1).Value
j = j + 1
If j > 7500 Then GoTo endm
Loop
Range(Cells(i, 1), Cells(j - 1, 1)).Select
Selection.Merge
i = j
Loop
endm:
End Sub

お礼

ts3m-ickwさん
あっという間に対象の名前を全て結合することができました。
１つ１つクリックするだけなので、とても作業が簡素化されました。
本当にありがとうございました！

回答No.2

ts3m-ickw

こんなマクロを組んで実行して、あとは左クリックかEnterを連打する。
Sub Merge()
i = 1
Do While i < 7500
j = i + 1
Do While Cells(i, 1).Value = Cells(j, 1).Value
j = j + 1
Loop
Range(Cells(i, 1), Cells(j - 1, 1)).Select
Selection.Merge
i = j
Loop
End Sub

回答No.1

noname#176215

Ａ　　Ｂ　 Ｃ　　Ｄ
１　　名前　お店　　　　結合
２　　松本　　Ａ　　1
３　　松本　　Ｂ　　1
４　　松本　　Ｃ　　1
５　　鈴木　　Ｄ　　0
６　　山口　　Ｆ　　1
７　　山口　　Ｇ　　1
８　　山口　　Ｈ　　1
９　　山口　　Ｉ　　1
１０　山口　　Ｊ　　1

■C2セル
=MOD(C1+(A1<>A2),2)
フィルハンドルをダブルクリック

C列を1行目から最終行まで選択して [フィルタ]→[オートフィルタ]

まず「1」を抽出し行番号が青字の D列の2行目から最終行までを選択
Alt + ; で可視セル選択をして[セルの結合]

次に「0」を抽出して同じ処理を行う。

これで D列に結合された範囲が作成されるので オートフィルタを解
除後 D列をコピーして A列に[形式を選択して貼り付け]→[書式]を
選択して[OK]

でいいと思います。

お礼

Chiquilinさん
無事にセルの結合を行うことができました。
早急にお答え頂きありがとうございました。