Sub split分列方式创建一维数组() Dim arr As Variant arr = Split("大表格,陈表达,黄颖淇,暴富", ",") '以逗号分列 MsgBox "arr数组的第2个元素为:" & arr(1) '读取数组的第1个元素 End Sub