我想根据其他列填充一列

Question

我想要一个基于以下条件填充列c的VBA函数。 注意：我不能使用公式，因为列c已经有值。

如果B为空，则C等于-D

我希望这适用于1000行的范围

提前致谢！

Answer 1

试试这个。根据您的需求进行调整。

Sub fill()

For x = 1 To 1000
If Range("B" & x).Value = "" Then Range("C" & x).Value = Range("D" & x).Value * -1
Next x

End Sub