4/23号在西瓜视频里，分节奏讲解如何从你自己手里写出 高效合并相同的VBA脚本！

源码如下，如果想理解源码意义，欢迎查看 VBA合并相同的系列视频哦！

背景如下：

源码：

Sub 合并同类项()
    Dim rg_开始 As Range, rg_结束 As Range
    Dim rng As Range
    Application.DisplayAlerts = False
    Set rng = Application.InputBox("选择处理区域", Type:=8)
    Set rg_开始 = rng(1)
    For Each cell In rng(2).Resize(rng.Count, 1)
        If cell.Value <> cell.Offset(-1, 0) Then
            Range(rg_开始, cell.Offset(-1, 0)).Merge
            Set rg_开始 = cell
        End If
    Next
     Application.DisplayAlerts = True
End Sub

什么？你还要如何恢复的VBA源码，别贪多嚼不烂，领悟后自创，才是重要的！

欢迎留言评论，我后续抽空給大家演示哦！