Excel VBA - 将单元格值（如果为空）复制到同一行中的另一个单元格

Question

我是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列中同一行的值。

我希望你能帮助我。

提前致谢。

亲切的问候

Answer 1

根据我对您的问题的理解，请尝试以下代码。

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

Answer 2

你实际上不需要循环和一个班轮：

Range("A1", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeBlanks).Offset(, 3).ClearContents