合并相同值单元格

最新推荐文章于 2021-04-28 09:38:34 发布

lck19861005

最新推荐文章于 2021-04-28 09:38:34 发布

阅读量378

点赞数

CC 4.0 BY-SA版权

分类专栏： excel vba

本文链接：https://blog.youkuaiyun.com/lck19861005/article/details/4266210

excel vba 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码用于合并Excel中具有相同值的相邻单元格。通过定义变量并利用循环结构，可以遍历指定范围内的单元格，并在遇到连续相同值时进行合并操作。

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

Sub 合并相同值的单元格()
    Dim rng1 As Range, rng2 As Range ‘变量的声明
    Dim i As Long, r As Long, j As Long
    Application.DisplayAlerts = fasle   ’不显示特定的警告信息，采用默认值

    r = ActiveSheet.Range("a1").End(xlDown).Row ‘获取最后的数据行号
    If r < 3 Then
        Exit Sub
    End If                     ’判断单元格。若需合并的少于一，则不执行程序

    j = 1
    Set rng1 = ActiveSheet.Cells(3, 1)
    Set rng2 = rng1
    For i = 3 To r
        If rng1.Offset(j, 0) = rng1.Value Then
            Set rng2 = rng1.Offset(j, 0)
            j = j + 1
        Else
            Range(rng1, rng2).Merge
            Set rng1 = rng1.Offset(1, 0) ‘单元格合并后作为一个单元格使用
            If IsEmpty(rng1) Then      ’单元格初始化判断
                Exit For
            End If
            Set rng2 = rng1
            j = 1
        End If
    Next
    Application.DisplayAlerts = True

End Sub