删除多余的标题

draftroman

主表中存在一些多余的标题行，要求VBA自动删除多余行，达到标题和内容一对一的要求。

acbczhhw

我不会VBA，刚下载了你这个文件
点击第一行“年”进行筛选取消全选，点击“年”，然后选择第二行以后得“年”行直接删除
再点击第一行“年”选择全选，多余的标题行就不存在了

quqiyuan

参与一下，仅供参考。。。
按照第一列，年作为关键字

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    r = Sheet1.Cells(Rows.Count, 1).End(3).Row
    For i = r To 2 Step -1
        If Sheet1.Cells(i, 1) = "年" Then
            rr = Sheet1.Cells(Rows.Count, 1).End(3).Row
            If i = rr Then
                Sheet1.Cells(i, 1).EntireRow.Delete
            Else
                If Sheet1.Cells(i - 1, 1) = "年" Then Sheet1.Cells(i, 1).EntireRow.Delete
            End If
        End If
    Next
    Beep
    Application.ScreenUpdating = True
End Sub

袁勇