使用动态单元格引用通过 VBA 应用公式。

Question

您好，我正在尝试根据条件将公式应用于一系列单元格。但是，如果我遍历应用公式的单元格，那么它会在没有动态单元格引用的情况下应用它。 （就像我试图通过单击初始单元格的右下角手动向下拖动公式一样）。我将如何使应用公式中的单元格引用动态化？任何帮助将不胜感激。

这是我的代码：

Sub OQWDays()
Dim oqs As Worksheet

Set oqs = Sheets("SQL_IMPORT")

    For x = 2 To oqs.Cells(Rows.Count, "A").End(xlUp).Row

        If oqs.Range("J" & x).Value = ("CBN_Suisse") Then oqs.Range("A" & x).Formula = "=NETWORKDAYS(D2,PUBLIC_HOLIDAYS!$G$3,PUBLIC_HOLIDAYS!$E$44:$E$61)"

    Next x
End Sub

Answer 1

我认为你是这个意思。从字符串中取出 2 并替换为 x?

Sub OQWDays()

Dim oqs As Worksheet

Set oqs = Sheets("SQL_IMPORT")

For x = 2 To oqs.Cells(Rows.Count, "A").End(xlUp).Row
    If oqs.Range("J" & x).Value = "CBN_Suisse" Then
        oqs.Range("A" & x).Formula = "=NETWORKDAYS(D" & x & ",PUBLIC_HOLIDAYS!$G$3,PUBLIC_HOLIDAYS!$E$44:$E$61)"
    End If
Next x

End Sub