有时候，excel表格里同一列里面有许多相同的值（比如同一个部门、同一个老师），这时候我们就需要把相同值合并成一个单元格，以使excel表格看起来更美观，更符合人们的审美。那么怎么办呢？今天我将与大家分享一个excel的一个使用技巧。工具/原料moreexcel2003及以上版本。键盘、鼠标可用方法/步骤1/10分步阅读

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

2/10

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

3/10

弹出VBA编辑页面。

4/10

在此页面中输入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

5/10

点击保存

6/10

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

7/10

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

8/10

选择宏，并打开它

9/10

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

10/10

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

注意事项

录入VBA代码后，要记得保存。

单元格