Excel VBA刪除范圍內的空白行

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