ExcelVBA : 表組みセル自動結合

選択された範囲のセルを、データの有無を見ながら自動的に表組み結合するマクロだ。

自動結合_単行、自動結合_複行を実行してくれ。

AWKのつぼ

なし。

Sub 自動結合(AMode As Integer) Dim rg As Range cTopA = ActiveCell.Cells.Row cLeftA = ActiveCell.Cells.Column cBottom = Selection(Selection.Count).Row cRight = Selection(Selection.Count).Column For cLeft = cLeftA To cRight For cTop = cTopA To cBottom Mode = AMode Range(Cells(cTop, cLeft), Cells(cTop, cLeft)).Activate If ActiveCell.Cells.MergeCells Then GoTo l1 End If For y = cTop + 1 To cBottom If Len(Cells(y, cLeft).Value) <> 0 Then If (Cells(y, cLeft).Value <> Cells(cTop, cLeft)) Or (Mode <> 0) Then Exit For End If Else If Cells(y, cLeft).MergeCells Or Mode = 2 Then Exit For End If Mode = 1 End If Next y = y - 1 If (y <> cTop) Then Range(Cells(cTop, cLeft), Cells(y, cLeft)).Select Application.DisplayAlerts = False Selection.MergeCells = True Application.DisplayAlerts = True End If For x = cLeft + 1 To cRight If Len(Cells(cTop, x).Value) <> 0 Then Exit For Else If Cells(cTop, x).MergeCells Then Exit For End If End If Next x = x - 1 If (x <> cLeft) Then Range(Cells(cTop, cLeft), Cells(cTop, x)).Select Selection.MergeCells = True End If l1: Next Next End Sub Sub 自動結合_単行() Call 自動結合(2) End Sub Sub 自動結合_複行() Call 自動結合(0) End Sub