このままだとA列を結合させる。
デもとはこちらより
============================
Sub セル結合()Dim r As Integer '行数
Dim i As Integer 'カウンタ
r = Sheets(1).Range("a1").CurrentRegion.Rows.Count - 1
Application.DisplayAlerts = False
For i = 2 To r
Cells(i, 1).Activate '項目の一つ下のセルをアクティブに
If ActiveCell.Value = ActiveCell.Offset(1).Value Then
Range(ActiveCell, ActiveCell.Offset(1)).Merge
End If
Next
Application.DisplayAlerts = True
End Sub
============================
結合作業に時間がかかりそうなときは使う。
しかしこの機能はデフォルトで用意しておいてほしい。
逆に結合を解除させたいときは
など。