Excel Vba 纵向合并相同内容的连续单元格

最新推荐文章于 2024-07-03 11:22:14 发布

webmastor

最新推荐文章于 2024-07-03 11:22:14 发布

阅读量869

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel Vba

本文链接：https://blog.youkuaiyun.com/webmastor/article/details/117561306

Excel Vba 专栏收录该内容

11 篇文章

订阅专栏

这个VBA宏代码用于在Excel中自动化合并相同内容的相邻单元格。通过禁用警告提示，从底部向上遍历选区，检查每一行内容是否与上一行相同，如果相同则进行合并。该过程提高了处理大量数据时的效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub MergeSelectonCellsVerticalByContent()
Dim a%, b%
Dim n As Long
n = Selection.Rows.Count '选中区域的行数
a = Selection.Row '选中区域的起始行
b = Selection.Column '选中区域的起始列
Application.DisplayAlerts = False '禁用警告提示
For i = a + n - 1 To a + 1 Step -1 '从选中区域的最后一个单元格向上循环
If Cells(i - 1, b) = Cells(i, b) Then '若当前单元格内容与上一个单元格内容相同，则
Range(Cells(i - 1, b), Cells(i, b)).Merge '合并当前单元格和上一个单元格
End If
Next
Application.DisplayAlerts = True '恢复警告提示
End Sub