Calcでマクロを使って文字列を分割したい

いつもありがとうございます。今回はOpenofficeまたはLibreoffice Calcにおいて
文字を半角スペースで分割したいです。どちらでもけっこうです。

A1セルにAAA BBB CCCとあるとします。これをA2にAAA B2にBBB C2にCCCと
マクロを使って分割するにはどうしたらよいでしょうか？

実際にはAAA BBB CCCの時もあればAAA BBB CCC DDDの時もあり入力した文字
により分割してセルに代入する数は変化します。
A2にAAA B2にBBB C2にCCC D2にDDDというふうに変化したいです。
分割する文字は3文字～10文字までです。

宜しくお願いいたします。m(_ _)m

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2017/05/18 10:31

こんにちは。

ほとんど、Calc のマクロはいじったことがありませんが、こんなふうにしてみたら出来ました。

Sub Main
Dim buf
Dim Ar
Dim i as long
Dim oSheet As Object
oSheet = ThisComponent.CurrentController.ActiveSheet
buf = oSheet.getCellByPosition(0,0)
Ar = split(buf.String," ")
For i = 0 to ubound(ar)
oSheet.getCellByPosition(i,1).String = Ar(i)
next
End Sub

この回答へのお礼

WindFaller　様

完璧なプログラムありがとうございます。一点の曇りもない思い通りの結果
を得られて非常に満足しております。
この度はありがとうございました。また宜しくお願いいたします。m(_ _)m

お礼日時：2017/05/19 10:32