1. Range.TextToColumns函数

Option Explicit

Sub txt2Col()
    ActiveSheet.Range("A2").Copy
    ActiveSheet.Paste
    Selection.TextToColumns DataType:=xlDelimited, _
     ConsecutiveDelimiter:=True, Comma:=True
End Sub

2. 效果

cccccc

cccc

3. 参照

更多用法可以参照下面

3-1. EXCEL VBA 文字列を分ける・区切り文字で別々のセルに分割・文字列を順番に区切る（TextToColumns）

3-2. Range.TextToColumns メソッド (Excel) | Microsoft Learn