我是VBAs的全新入门者，需要您的帮助，我的数据如下：
。 A B C D
1 t t t t
2 t t t t
3 ..... t
4 t t t t
5 t t t t
6 ..... t
7 t t t t
宏应该检查A列中是否有一些信息：A如果它是空的，它应该删除D列中同一行的值。
我希望你能帮助我。
提前致谢。
亲切的问候
答案 0 :(得分：2)
根据我对您的问题的理解，请尝试以下代码。
Dim i As Integer
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastrow
If Range("A" & i) = "" Then
Range("D" & i).ClearContents
End If
Next i
答案 1 :(得分：0)
你实际上不需要循环和一个班轮：
Range("A1", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeBlanks).Offset(, 3).ClearContents