ddd

'split函数把字符串分割成一个数组，指定用","来分割。

Sub test() arr = Split("素胚勾勒出青花 笔锋浓转淡,瓶身描绘的牡丹 一如你初妆", ",") 
For i = 0 To UBound(arr)
Debug.Print arr(i)
Next i
End Sub