Hi，大家好，本專欄将會從零開始和大家用圖文的方式，30天讓你從不會到熟練使用函數，0基礎開始學習Excel函數，讓你喜歡上它！有興趣的小夥伴可以持續關注我，或者在專欄進行查看學習，願與君攜手共進！

在工作中，有時我們需要将相同内容的單元格合并為一個單元格。如果一個個選中内容後合并，顯然會花費較多時間。本文和大家分享如何10秒鐘合并100W行方法合并相同内容單元格。

大家好，我們今天分享的VBA小代碼，内容是批量合并相同值的單列單元格。

如下圖所示，A1:B10000為各銷售部門員工名單。要求将銷售部門相同的，合并為一個單元格，效果所示。

照例舉個例子，如下圖所示，需要将相同的單元格修改為合并單元格……。

該段代碼隻支持單列單元格區域，A:A整列。

代碼如下：

Sub MergeRange() Dim Rng As Range Dim i&, Col&, Fist, Last Application.ScreenUpdating = False Application.DisplayAlerts = False Set Rng = Application.InputBox("請選擇單列數據列！", Type:=8) Set Rng = Intersect(Rng.Parent.UsedRange, Rng) Col = Rng.Column Fist = Rng.Row Last = Fist Rng.Rows.Count - 1 Rng.Parent.Select For i = Last To Fist 1 Step -1 If Cells(i, Col) = Cells(i - 1, Col) Then Cells(i - 1, Col).Resize(2, 1).Merge Next Rng.VerticalAlignment = xlCenter MsgBox "合并完成。" Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Excel自動化辦公吧

Excel之家每日分享excel操作技巧、excel函 數公式、excel透 視表、excel圖表和ExcelVBA教程，助您加強excel水平,提高辦公效率，搞定數據分析!

以上就是我與大家分享，我希望它能幫助你解決工作和學習中的一些問題。如果你覺得很好，就喜歡它。非常感謝您的關注。

我是Excel自動化辦公吧，關注我持續分享更多的Excel技巧！

如果有不明白的或者不懂的可以在下方留言，我們會一一解答的。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!