Sub split1()
Dim arr() As String
arr = Split("张祝，徐国军，陈茜，王欢，许松，张小海，陈飞，张明元，徐国东，张款", "，")
[a1].Resize(1, 10) = arr
[c2:c11] = Application.WorksheetFunction.Transpose(arr)
End Sub
Sub array1()
Dim arr() As Variable
arr = Array("张祝，徐国军，陈茜，王欢，许松，张小海，陈飞，张明元，徐国东，张款")
[a1].Resize(1, 10) = arr
[c2:c11] = Application.WorksheetFunction.Transpose(arr)
End Sub
