Sub x ()
Dunkelt s som stränger
s = ”, 21 , 22 , 23 , 24 , 25 , 26 , 27 , 28 , 29 , 30 , 31 , 32 , 33 , 34 , 35 , 36 , 37 , 38 , 39,”,
s = byter ut (s, ””, "") 'tar bort utrymmen som är lättare att fungera med
s = byter ut (s, ”,”, ”,|”) 'byt ut 2 komman med någonting annat
s = byter ut (s, ”,”, "") 'byter ut de bly- resterande ovanliga kommana (, slinga) med tomt
Dunkel arr () som stränger
arr = splittring (s, ”,|”)
Dunkel del som Variant
För varje del i arr
MsgBox del
Därefter
Avsluta suben
|