通过VBA代码合并单元格

为了给大家更好的演示，我在上次分享的基础上，做了一个样表给大家看。我们可以看出在A列上有许多相同值，我们将会通过办法来合并。

右键点击表格所在工作表，选择查看代码。

弹出VBA编辑页面。

在此页面中输入VBA代码： Option Explicit Sub Macro1() Application.DisplayAlerts = False Dim i As Integer Dim first As Integer Dim last As Integer first = 1 For i = 1 To 16 Step 1 If Worksheets("Sheet1").Range("A" & i) = Worksheets("Sheet1").Range("A" & i + 1) Then Else last = i Worksheets("Sheet1").Range("A" & first & ":A" & last).Select With Selection .MergeCells = True End With first = i + 1 End If Next Application.DisplayAlerts = True End Sub

点击保存

如果弹出如下信息，单击是，保存即可。

回到工作表中，选择工具-宏

选择宏，并打开它

单击执行，excel将执行自动合并单元格。

合并完的单元格效果如图所示。是不是很神奇呢？