Question

我有一张桌子

id sal
1  213
2  321
3  ..

(no data here)


     1 
N/A

我需要摆脱桌子后面的一切。我知道桌子应该以某行b / w行4000 - 6000结束。这是我试过的

Sub test()
For i = 4000 To 6000
    If Range("a" & i).Value = "" Then
        Range("A" & i).End(xlToRight).End(xlDown).Delete 'also tried Clear
        Exit For
    End If
Next i
End Sub

但是我没有效果

Answer 1

如果缺少A列中该行的值，是否要删除整行？

这个非常快速且非常强大：

Sub DeleteRowsWithBlankColumnA()
 [a:a].SpecialCells(xlBlanks).EntireRow.Delete
End Sub

Answer 2

我们可以尝试使用IsEmpty()功能进行检查。例如：

If IsEmpty(Range("A" & i)) Then
...

如何删除表后的尾随空格？

2 个答案: