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("Sheet1").Range("A" & i) = Worksheets("Sheet1").Range("A" & i + 1) Then '如果相同表示是同一类  A是指A列

            '同一类情况下所要进行的操作

        Else '比较不相等，所以一个新的类别开始

            last = i '赋值给last，一个类别的终点行号

            Worksheets("Sheet1").Range("A