2023-02-03 13:24来源:m.sf1369.com作者:宇宇
打开EXCEL alt+f11 插入模块 复制下面代码按F5执行 只适合A列~
Sub tt()
Application.DisplayAlerts = False
Dim i, a As Integer
a = 1
For i = 1 To [A1].End(xlDown).Row
If Cells(i, 1) = Cells(i + 1, 1) Then
Else
Range(Cells(a, 1), Cells(i, 1)).Merge
a = 1 + i
End If
Next i
Application.DisplayAlerts = True
End Sub
我的就是自动合并单元格的代码 嘿嘿~~楼上!!
3种办法:1、选中要合并的单元格——格式——单元格——对齐——勾选合并单元格
2、选中要合并的单元格——右键——设置单元格格式——对齐——勾选合并单元格
3、选中要合并的单元格——格式工具栏中有个 a ——点一下就行
选中你要合并的单元格,点右键,在对话框里选“单元格设置”-》“对齐”-》“合并单元格”—》“确定”。over!
选择要合并的单元格>功能区>开始>对齐方式>合并后居中
首先选择需要合并的单元格,然后点击一下常用工具栏的合并及居中就可以了。