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