如何快速合併 Excel 中具有相同數據的相鄰行？

假設您的工作表中相鄰行包含相同的數據，現在您希望將這些相同的儲存格合併為一個儲存格，讓數據看起來整齊美觀。那麼，如何快速便捷地合併具有相同數據的相鄰行呢？今天，我將向您介紹一些解決此問題的快速方法。

使用 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. 接著點擊 確定，A 列中的相同數據將被合併在一起。請參閱截圖：

使用 Kutools for Excel 合併相同數據的相鄰行

透過 Kutools for Excel 的 合併相同儲存格 功能，您可以一鍵快速合併多列中的相同值。

安裝 Kutools for Excel 後，您可以按照以下步驟操作：

1. 選擇您想要合併具有相同數據的相鄰行的列。

2. 點擊 Kutools > 合併與分割 > 合併相同儲存格，請參閱截圖：

3. 接著，所選列中的相同數據將被合併到一個儲存格中。請參閱截圖：

立即點擊下載 Kutools for Excel 並免費試用！