vba - vbscript使用特定条件删除Excel工作表中的行

Question

我有一个包含以下数据的列的 excel 表，并且其他列中有数据。

这里行之间有空白单元格。在 1014,1027 之间有 1 个空白单元格。1027 和其他 1027 之间有 3 个空白单元格，依此类推..

脚本应删除包含“A 列”中数据的行之间的“A 列”中具有多个空白单元格的行。

例如：脚本应该删除第 1027 行（起始行总是有值）和接下来的三个空行，所以如果两个非空值之间的间隔为 1，它不应该删除这些行。应该对整个执行相同的过程床单。

以下值之间有多个空单元格。

代码

1014

1027

1027

1033

1033

1033

1020

1033

1008

请就此向我提出建议。

Answer 1

试试这个：

Sub rowKiller()
    Dim N As Long, i As Long

    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To N - 1
        If Cells(i - 1, 1) <> "" And Cells(i, 1) = "" And Cells(i + 1, 1) <> "" Then
            Cells(i, 1).Value = "XXX"
        End If
    Next i

    Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    Range("A:A").Replace "XXX", ""

End Sub