【excel VBA】

これでどうでしょうか。

Split 各要素ことに区切られた文字列から1次元配列を作成し返す。

Split(expression[,delimiter[,limit[,compare]]])

VBA にも Split 関数がありますので、

それを利用すれば同様に書けます。

Sub SplitTest()

Dim strArray

Dim strData

strData = ”a,b,c”

’ 区切り文字にカンマ（,）を使用

strArray = Split(strData, ”,”)

For Each strItem In strArray

Debug.Print strItem

Next

End Sub

配列を作成するだけなら

arrHoge = Split(strHoge,”.”)

でOKです。

「スマートに」とあるのは、その前後のソースも

処理が入り組んでいるのでしょうか？

（ちょっと気になりましたので・・・）

VB5でSplit関数

SPLIT関数ってＥＸＣＥＬＶＢＡには無いのですか？

ＶＢの５以前には無いので自作してるのを拾ってみました。