excel - 如何在范围内的每个单元格上运行公式

我正在寻找将通过特定范围(A1 to C5)的excel VBA，如果B列为零，则将C列数据复制到D



不要在excel VBA上有很多经验，我已经尝试了代码（在公式的帮助下创建），但是没有运气。

Sub Macro1()
'
' Macro1 Macro

Dim FLrange As Range
Set FLrange = Range("A1:C5")

For Each FLrange In ActiveWindow.RangeSelection

If FLrange.Value = 0 Then D$ = C$

Next FLrange

End Sub

有人能纠正错吗

最佳答案

对于公式选项，我同意@tigeravatar，但如果您真的要VBA从以下开始：

Sub Macro1()
    Dim FLrange As Range
    Set FLrange = Range("B2:B5")

    For Each cell In FLrange
        If cell.Value = 0 Then cell.Offset(0, 2) = cell.Offset(0, 1)
    Next cell
End Sub

关于excel - 如何在范围内的每个单元格上运行公式，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27387155/