Question

我的工作表的数据从A84开始，一直延伸到X列。我使用这个VBA来选择整个数据范围。

Dim Lastrow As Integer
Lastrow = Range("A:Z").Find("*", , , , xlByRows, xlPrevious).Row

Range("A84:X" & Lastrow).Select

在所选范围内，我需要它来检测A到Z列中哪些行是空白的并删除它们。如果Z列后面有数据，则应删除该行，因为我将其视为空白。

Answer 1

评论有时会添加字符。这是代码：

Dim Lastrow As Integer
Lastrow = Range("A:Z").Find("*", , , , xlByRows, xlPrevious).Row


For i = Lastrow To 84 Step -1
    If Application.CountA(Range(Cells(i, 1), Cells(i, 26))) = 0 Then Rows(i).Delete
Next i

Excel VBA删除范围内的空行

1 个答案: