vba - 如何对范围内的每个单元格运行公式

Question

我正在寻找一个 Excel VBA，它将遍历特定范围(A1到C5)，如果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

有错的话可以指正吗

Answer 1

我同意@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