エクセルVBA(マクロ)

一瞬で同じ内容のセルを結合する。

より便利に！

こんにちは。シバマメです！

エクセルVBA(マクロ)一瞬で同じ内容のセルを結合する。
をより便利にしました。

下記のように、
表を一瞬で見やすく変身させます。
方法は、簡単です。
下記のコードを個人用マクロブックに貼り付けましょう。
実行すると、入力ボックスが現れるので、
そこに、結合させたい列を入力するだけです。

では、細かく手順を説明していきます。

下記のコードを、個人用マクロブックに保存しましょう。
[個人用マクロブックの作成方法]
対象のエクセル表を開いた状態で、
マクロを実行します。F5 or ▶ボタンで実行
実行すると、インプットボックスが出てきますので、
結合したい列番号を入力しましょう。
A列の場合は、1を入力。B列の場合は、２を入力…

Sub Inputketugou()

Dim xRange As Range
Dim xRow As Long
Dim target As Long

target = InputBox("何列目を結合しますか？")

    Set xRange = Range("A1")
    For xRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        With Cells(xRow, target)
            If .Value = .Offset(1, 0).Value Then
                Set xRange = Union(xRange, .Offset(1, 0))
            Else
                Application.DisplayAlerts = False
                xRange.Merge
                Application.DisplayAlerts = True
                Set xRange = .Offset(1, 0)
            End If
        End With
        Next
        
End Sub