将公式从公式栏转换为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