1. Range.TextToColumns函数
Option Explicit
Sub txt2Col()
ActiveSheet.Range("A2").Copy
ActiveSheet.Paste
Selection.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Comma:=True
End Sub
2. 效果
![](https://i-blog.csdnimg.cn/direct/222483577257419d8ad31783541df3e2.png)
cccccc
![执行后效果](https://i-blog.csdnimg.cn/direct/4df53b18245344a4acfa6a36461c585a.png)
cccc
3. 参照
更多用法可以参照下面
3-1. EXCEL VBA 文字列を分ける・区切り文字で別々のセルに分割・文字列を順番に区切る(TextToColumns)