EXCEL VBA的問題是將單元格的數據存儲在數組中。

工作表（“表名”）。單元格（行號、列號）可以獲取單元格的值，其中行號和列號都是數字。

功能BBB（b）

Dim a（）

b = b & amp","

i = 1

j = -1

ks = 1

js = 1

ifg = False

do While Len（b）》=我

如果Mid（b，I，1）=“，那麽

j = j + 1

ReDim Preserve a（j）

ks = js

js = i + 1

如果不是，那麽

a（j）= Mid（b，ks，js - ks - 1）

其他

m = Mid（b，ks，js - ks）

j = j + js - ks + 1

ReDim Preserve a（j）

對於m = j + ks - js - 1至j - 1

a（m）= a（m-1）+1

然後

如果…就會結束

else if Mid（b，I，1）=“-”然後

j = j + 1

ReDim Preserve a（j）

ks = js

js = i + 1

a（j）= Mid（b，ks，js - ks - 1）

ifg =真

如果…就會結束

i = i + 1

環

第3頁。單元格（1，1）=““

對於i = 0到下界（a）

c = c & amp““& amp甲㈠

bbb = c

然後

結束功能

應該會用吧？在代碼中調用。

例如

第3頁。單元格（1，1）= BBB（sheet 3。單元格（1，2））

原始數據在表3中。單元格（1，2），數據應輸出到Sheet3中。單元格（1，1）。