復制 Excel 到 VBA 中的單元格公式

Question

我想在 VBA 的 C 列中創建 IF 公式。 但是，當我這樣做時，公式會顯示為使用單元格的值而不是單元格引用。 我想知道如何使用單元格引用：

[當運行 VBA 時，在單元格 C2 的 excel 表中讓公式說[=IF(B2>0,2,A2)]而不是[=IF(1>0,2,1] 。]

Dim c As Range
Dim a As Integer
Dim b As Integer

'//loop it in column C
For Each c In Range(Range("C2"), Range("C2").End(xlDown))
    a = c.Offset(0, -1) '// Column B
    b = c.Offset(0, -2) '// Column A
    c.Formula = "=IF(" & b & ">0,2," & a & ")" '// same format as formula [=IF(B2>0,2,A2)]
   
Next

Answer 1

如果我理解正確：

Dim a As Range
Dim b As Range

Set b = c.Offset(0, -1) '// Column B
Set a = c.Offset(0, -2) '// Column A

c.Formula = "=IF(" & b.Address(False,False) & ">0,2," & a.Address(False,False) & ")"

但是您可以在不循環或使用Address的情況下完成此操作； Excel 將在公式填充到列中時更新相對引用。

With ActiveSheet
    Dim lastRow As Long
    lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row

    .Range("C2:C" & lastRow).Formula = "=IF(B2>0,2,A2)"
End With