Vba合并单元格

weixin_46002413

已于 2022-09-11 14:39:36 修改

阅读量2.2k

点赞数 1

文章标签： python

于 2022-08-16 20:22:49 首次发布

本文链接：https://blog.csdn.net/weixin_46002413/article/details/126373689

版权

该博客介绍了一段VBA代码，用于在Excel中自动合并相同相邻单元格的内容。通过禁用错误提示，选取特定范围，然后遍历并检查每个单元格的值是否与前一个相同，如果相同则进行合并。这提高了处理大量数据时的工作效率。

摘要由CSDN通过智能技术生成

Private Sub CommandButton1_Click()

Range("e1:e2").Merge '合并单元格

End Sub

Private Sub CommandButton1_Click()

'定义变量
Dim i As Integer
Dim rng As Range

Application.DisplayAlerts = False
'把选取赋伯给g区域变量
Set rng = Selection
'循环开始: 从下方单元格礼上合川
For i = rng.Count To 1 Step -1
'Vithi语句开始
With rng
'定相邻单儿格如果值样，合并
If .Cells(i).Value = .Cells(i - 1).Value Then
Union(.Cells(i), .Cells(i - 1)).Merge
End If
'With语句结束
End With
'循环结束
Next
'打开系统误醒
Application.DisplayAlerts = True


End Sub