连接列中的后续单元格 - excel vba

Question

有人可以帮我解决使用VBA的以下问题吗？

我想连接单元格A7，A8，B8，A9并将其粘贴到A7。类似地连接A10，A11，A12，C12，A13，A14并粘贴到A10。连接A15，A16并粘贴到A15。保持A6相同，A17与原始值相同。

感谢任何帮助。谢谢。 worksheet sample

Answer 1

怎么样：

Sub ytrewq()
    [A7] = [A7] & [A8] & [B8] & [A9]
    [A10] = [A10] & [A11] & [A12] & [C12] * [A13] & [A14]
    [A15] = [A15] & [A16]
End Sub