通过VBA代码合并单元格
有时候，excel表格里同一列里面有许多相同的值（比如同一个部门、同一个老师），这时候我们就需要把相同值合并成一个单元格，以使excel表格看起来更美观，更符合人们的审美。那么怎么办呢？今天我将与大家分享一个excel的一个使用技巧。
操作方法
- 01
为了给大家更好的演示，我在上次分享的基础上，做了一个样表给大家看。我们可以看出在A列上有许多相同值，我们将会通过办法来合并。
- 02
右键点击表格所在工作表，选择查看代码。
- 03
弹出VBA编辑页面。
- 04
在此页面中输入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
- 05
点击保存
- 06
如果弹出如下信息，单击是，保存即可。
- 07
回到工作表中，选择工具-宏
- 08
选择宏，并打开它
- 09
单击执行，excel将执行自动合并单元格。
- 10
合并完的单元格效果如图所示。是不是很神奇呢？
赞 (0)