Excelで同じデータを持つ隣接する行を迅速に結合するにはどうすればよいですか？

隣接する行に同じデータが入力されたワークシートがあり、その同じセルを1つのセルに結合してデータを整えたいとします。どのようにすれば同じデータを持つ隣接する行を迅速かつ便利に結合できますか？今日は、この問題を解決するための簡単な方法をいくつかご紹介します。

VBAコードを使用して同じデータを持つ隣接する行を結合する

Kutools for Excelを使用して同じデータを持つ隣接する行を結合する

Excelでセルの結合を解除し、重複する値で埋める

VBAコードを使用して同じデータを持つ隣接する行を結合する

もちろん、[中央揃えで結合] コマンドを使用して同じデータを結合することはできますが、数百のセルを結合する必要がある場合、この方法は時間がかかります。そのため、次のVBAコードを使用すると、同じデータを簡単に結合できます。

1. ALT + F11キーを押したままにすると、 Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. [挿入] > [ モジュール] をクリックし、次のマクロを モジュールウィンドウに貼り付けます。

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 次にF5キーを押してこのコードを実行すると、範囲を選択するためのダイアログが画面上に表示されます。スクリーンショットをご覧ください：

4. [OK] をクリックすると、列Aの同じデータが結合されます。スクリーンショットをご覧ください：

Kutools for Excelを使用して同じデータを持つ隣接する行を結合する

Kutools for Excelの[同じセルを結合する] ユーティリティを使用すると、ワンクリックで複数の列にある同じ値を迅速に結合できます。

Kutools for Excelをインストール後、以下の手順を実行できます：

1. 同じデータを持つ隣接する行を結合したい列を選択します。

2. [ Kutools] > [ 結合と分割] > [同じセルを結合する] をクリックします。スクリーンショットをご覧ください：

3. そして、選択した列内の同じデータが1つのセルに結合されます。スクリーンショットをご覧ください：

今すぐKutools for Excelをダウンロードして無料トライアルをお試しください！