Vba 语法帮助Excel脚本VB

我正在检查A3和下面的单元格是否为空，然后我想在E4和下面的单元格中放置一个公式，直到找到一个空的a单元格

我正在尝试的脚本是：

Sub avg()
Dim dat As Variant
Dim rng As Range
Dim i As Long
i = 3

Set rng = Range("A3:A10")
dat = rng
For i = LBound(dat, 1) To UBound(dat, 1)
    If dat(i, 1) <> "" Then
        rng(i + 1, 5).FormulaR1C1 = "=wwAggregate(""KOSTAS-PC"", Data!R3C1,""Res1000"",'5min REPORT'!R3C1,'5min REPORT'!R4C1,""AVG"","""")"
    End If
Next
End Sub

我只是被这些迷住了“

---

非常感谢您的帮助。

要用R3C

i

替换R3C1（即计数器变量的当前值，请尝试

For i = LBound(dat, 1) To UBound(dat, 1)
    If dat(i, 1) <> "" Then
        rng(i + 1, 5).FormulaR1C1 = "=wwAggregate(""KOSTAS-PC"", Data!R3C " & i & ",""Res1000"",'5min REPORT'!R3C" & i & ",'5min REPORT'!R4C1,""AVG"","""")"
    End If
Next

---

谢谢。似乎我需要在字符“&”之间加空格。我尝试不加空格，结果语法错误。

For i = LBound(dat, 1) To UBound(dat, 1)
    If dat(i, 1) <> "" Then
        rng(i + 1, 5).FormulaR1C1 = "=wwAggregate(""KOSTAS-PC"", Data!R3C " & i & ",""Res1000"",'5min REPORT'!R3C" & i & ",'5min REPORT'!R4C1,""AVG"","""")"
    End If
Next

=wwAggregate("KOSTAS-PC", Data!R3C7,"Res1000",'5min REPORT'!R3C7,'5min REPORT'!R4C1,"AVG","")