EXCEL 批量将相同的行合并（宏脚本记录）

Sub Macro1()

    '

    ' Macro1 Macro

    ' 判定A列上每一同类的起点与终点

    '

    ' 快捷键: Ctrl+w

    '

    Application.DisplayAlerts = False '关闭警告信息显示

    Dim i As Integer '表格递增变量


    Dim first As Integer '同类内容的起点行号

    Dim last As Integer '同类内容的终点行号


    first = 1 '赋初值


    For i = 1 To 50 Step 1  '这个地方是多少行

        If Worksheets("Sub Macro1()

    '

    ' Macro1 Macr