VBA实用代码2：数组横向竖向填充至单元格[20110227]

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