新人求助

Option Explicit
Sub test()
　Dim rng
　For Each rng In [a1:c10]
　　rng.Value = rng.Value & IIf(Right(rng.Value, 1) <> "," _
　　And Len(rng.Value) > 0, ",", vbNullString)
　Next
End Sub