用宏吧
sub dis()
dim drr()
dim n as integer
arr=[a1].currentregion
redim drr(1 to ubound(arr,1),1 to 6)
for i=1 to ubound(arr,1)
brr=split(arr(i,1),"+")
n=1
for j=1 to ubound(brr)
crr=split(brr(0),"mg,")
drr(i,n)=val(crr(0))
n=n+1
drr(i,n)=val(crr(1))
next
next
[b1].resize(ubound(drr,1),6)=drr
end sub
本回答被提问者和网友采纳