将公式从公式栏转换为 VBA

Question

有人知道如何将这段公式转换为 VBA 代码吗？这是代码：=S4&(AA5&AA6&AA7&AA8&AA9&AA10)。如果我尝试将其转换为VBA，如下所示：

Dim ws as Worksheet
Set ws = ThisWorkbook.Worksheet("Sheet1")
ws.Range("S4") & = ws.Range("AA5") &

我总是遇到错误。然后我尝试了这个：

ws.Range("S4&") = ws.Range("AA5&")

那我就不知道下一步怎么办了。有什么帮助吗？谢谢！

Answer 1

考虑：

Sub fhskjdfh()
    Dim s As String
    s = [S4] & [AA5] & [AA6] & [AA7] & [AA8] & [AA9] & [AA10]
End Sub

编辑#1：

根据您的修改，试试这个：

Sub fhskjdfh()
    [S4] = [AA5] & [AA6] & [AA7] & [AA8] & [AA9] & [AA10]
End Sub

Converting Formula from Formula Bar to VBA