1. Range.TextToColumns函数

Option ExplicitSub txt2Col()ActiveSheet.Range("A2").CopyActiveSheet.PasteSelection.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