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