怎么批量合并相同值单元格？这个重磅操作......

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技巧！

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