VBScript 使用特定条件删除 Excel 工作表中的行

Question

我有一个 excel 工作表，其中有一列包含如下数据，其他列中有数据。

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

脚本应删除"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