批量合并单元格怎么弄(合并相同内容单元格的最快方法)

在工作中，有时我们需要将相同内容的单元格合并为一个单元格。如果一个个选中内容后合并，显然会花费较多时间。本文和大家分享如何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 = TrueEnd Sub

Excel自动化办公吧

Excel之家每日分享excel操作技巧、excel函 数公式、excel透 视表、excel图表和ExcelVBA教程，助您加强excel水平,提高办公效率，搞定数据分析!