excel - 如何使用 VBA 将函数插入到单元格中？

Question

我在使用 VBA 将函数插入 Excel 工作表时遇到问题。我以前从来没有这样做过。有简单的方法吗？
我试过使用 Range(r,c).Formula = "=FUNCTION()"它适用于 "=SUM(C3:C10)" 等情况但不适用于我的代码。我认为是因为我介于两者之间的字符串变量。
编码:

Sub populate()

Dim r As Long, r2 As Long, last_row As Long
Dim next_row As Long, current_len As Long, test_len As Long
Dim rng As String

With ActiveSheet

last_row = .Cells(Rows.Count, 1).End(xlUp).Row

For r = 2 To last_row
    next_row = r + 1

    If .Range("B" & next_row) > .Range("B" & r) Then
       current_len = .Range("B" & r)
       
       'create range
       For r2 = r + 1 To last_row
            test_len = .Range("B" & r2)
            If current_len >= test_len Then
                rng = "C" & r + 1 & ":" & "C" & r2 - 1
                Exit For
            End If
        Next
    
        .Range("C" & r) = "subtotal(9;" & rng & ")" '<-------
    End If
    
Next

End With
End Sub

Answer 1

a) 您需要使用逗号作为分隔符来指定公式。
b) 你需要把 = - 在公式前面签名(就像在 Excel 中所做的那样)
c) 您应该将公式写入属性 Formula的细胞。

.Range("C" & r).Formula = "=subtotal(9," & rng & ")"