Excelで隣接する行を同じデータとすばやくマージするにはどうすればよいですか？

隣接する行に同じデータを含むワークシートがあり、同じセルをXNUMXつのセルにマージして、データがきれいで美しく見えるようにするとします。 隣接する行を同じデータとすばやく便利にマージするにはどうすればよいですか？ 今日は、この問題を解決するための簡単な方法をいくつか紹介します。

同じデータの隣接する行をVBAコードでマージします

同じデータの隣接する行をKutoolsforExcelでマージします

Excelでセルを結合解除し、重複する値を入力します

同じデータの隣接する行をVBAコードでマージします

もちろん、同じデータを マージ＆センター コマンドですが、何百ものセルをマージする必要がある場合、この方法には時間がかかります。 したがって、次のVBAコードは、同じデータを簡単にマージするのに役立ちます。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール窓。

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の同じデータがマージされます。 スクリーンショットを参照してください：

同じデータの隣接する行をKutoolsforExcelでマージします

同じセルをマージする の有用性 Kutools for Excel、ワンクリックで複数の列の同じ値をすばやくマージできます。

インストールした後 Kutools for Excel、次のように実行できます。

1。 隣接する行を同じデータとマージする列を選択します。

2に設定します。 OK をクリックします。 クツール > マージ＆スプリット > 同じセルをマージする、スクリーンショットを参照してください：

3。 そして、選択した列の同じデータがXNUMXつのセルにマージされました。 スクリーンショットを参照してください：

クリックしてKutoolsfor Excelと無料トライアルを今すぐダウンロードしてください！