将公式从公式栏转换为VBA

有人知道如何将这段公式转换为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&")

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

考虑：

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

考虑：

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

---

@那个不太了解我的人我更新了我的问题。Thanks@TheGuyThatDoesn我已经更新了我的问题。谢谢，但它不起作用。我已经更新了我的问题以获取更多信息。谢谢但它不起作用。我已经更新了我的问题以获取更多信息。谢谢