VBA:[Tips]指定文字でセルを分割する - UncodeProduction

なにがどう

入力文字列を指定記号で分割して別セルに表示したい

どうするのか

Split関数を使用する。
文字列「090-1111-1111」

Dim tmp As Variant 'ハイフン区切りの値を一時格納するパラメータ
tmp = Split(090-1111-1234, " - ")

      Cells(row, 3) = tmp(0)
      Cells(row, 4) = tmp(1)
      Cells(row, 5) = tmp(2)

出力は以下のようになる
tmp(0)=090
tmp(1)=1111
tmp(2)=1234

Split関数で区切られたものは配列扱いになるので、頭にVariant型で区切ったあとの文字列を格納する箱を作る必要あり。(今回の例だとtmpにあたるもの)

補足

上記例のとき、

      Cells(row, 3) = tmp(0)
      Cells(row, 4) = tmp(1)
      Cells(row, 5) = tmp(2)
      Cells(row, 6) = tmp(3)

としたとき、tmp(3)に入る文字列は存在しないのでエラーになるため、エラーが出た時のための処理を書く必要あり