エクセルで数字とアルファベットと文字列を分割する方法

質問

こんばんは。
エクセルのセルで数字とアルファベットの文字列を分割する方法を教えて下さい。

100AB3.4C → "100" "AB" "3.4" "C"

間にスペースやカンマなど無く、文字数は異なります。
数字は小数点がある場合と無い場合があります。（上記の "100" "3.4" のように）
同じ列に同様のデータが数件～数千件あり、まとめて分割したいです。

関数もしくはマクロ(VBA)で可能であれば教えて下さい。

最近マクロの勉強を初めたのですが、方法が思いつきません。。。
宜しくお願いします。

回答No.6

noname#52504 · ベストアンサー

#2=#3です。

●ユーザー定義関数版

動作の概要
　第１引数で指定した文字列を、数字と文字に分割し、
　第２引数で指定した番号の文字列を返す
　ex.　=Sample2("100AB3.4C",3)　⇒　"3.4"

　A列の文字列についてB,C,D…列に返すのであれば、
　B1セル：=Sample2($A1,COLUMN()-1)
　として右方・下方にフィル

'----------------↓　ココカラ　↓----------------
Function Sample2(myStr, myIdx)
　Dim a() As String
　f = IsNumeric(Left(myStr, 1))
　j = 1
　ReDim a(j)
　For i = 1 To Len(myStr)
　　t = Mid(myStr, i, 1)
　　If (f <> IsNumeric(t)) And Not (f And t = ".") Then
　　　f = Not f
　　　j = j + 1
　　　ReDim Preserve a(j)
　　End If
　　a(j) = a(j) & t
　Next i
　If myIdx <= j Then
　　Sample2 = a(myIdx)
　Else
　　Sample2 = ""
　End If
End Function
'----------------↑　ココマデ　↑----------------

●Subプロシージャ版

動作の概要
　A列1行目以降の文字列を、
　数字と文字に分割し、B列以降に転記する

'----------------↓　ココカラ　↓----------------
Sub Sample3()

　d = "A1" '元データの最初のセル
　r = "B1" '結果表示範囲の最初のセル

　Dim a() As String
　For k = Range(d).Row To Cells(65536, Range(d).Column).End(xlUp).Row
　　ReDim a(1 To 1)
　　myStr = Cells(k, Range(d).Column)
　　f = IsNumeric(Left(myStr, 1))
　　j = 1
　　ReDim a(1 To j)
　　For i = 1 To Len(myStr)
　　　t = Mid(myStr, i, 1)
　　　If (f <> IsNumeric(t)) And Not (f And t = ".") Then
　　　　f = Not f
　　　　j = j + 1
　　　　ReDim Preserve a(1 To j)
　　　End If
　　　a(j) = a(j) & t
　　Next i
　　Cells(k, Range(r).Column).Resize(1, j) = a()
　Next k
End Sub
'----------------↑　ココマデ　↑----------------

いずれもExcel2003で動作確認済。
ただし、最低限の記述しかしていないので、
コーディングは参考にしない方がよろしいかと。

不明な点も多いと思いますし、
ご要望に沿わない点もあるかもしれませんが、
これ以上は完全に作業になってしまいますから、
最終回答ということにさせてください。

■Excelでお仕事！「VBA基本」メニュー
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu04.html

お礼

回答本当に有難うございます。
上手く出来ました。
サイトも教えて頂き有難うございます。
サイトは印刷して通勤途中に読んでます。
他にも色々やりたい事があるので、勉強がんばりたいと思います。