多个连接 - VBA

Question

需要你的帮助 -

能够为选定的单元格连接以在单元格中显示值 -

如何将其应用于列表的其余部分？

谢谢， MK

Private Sub Trial_1_Click()
Dim CC As Range
Dim i As Integer
Dim TT As String
i = 0
TT = ""
For Each CC In Selection
If i = 0 Then
i = 1
End If
TT = TT & CC.Value & ""
Next
TT = Left(TT, Len(TT))
Range("P2").Value = TT
End Sub