文字列の分離方法

質問

お世話になります。
エクセルで下記の様な数字とアルファベットが組み合わさった
文字列を数字とアルファベットに分離させたいのですが、
ＶＢＡでそれをする場合、どの様な記述をすれば宜しいでしょうか。

　　記

・１５４ＡＣ
・２２９８ＢＣＺ
・８０Ｘ

回答No.1

hige_082 · ベストアンサー

一例です

Sub test()
Dim a, b
a = "１５４ＡＣ"
a = StrConv(a, vbNarrow)
b = Val(a)
MsgBox b
MsgBox Right(a, Len(a) - Len(b))
End Sub

補足

ありがとうございました。
大変参考になりました。

回答No.2

n-jun

数字は数字のままで良しとして。

Sub try()
Dim RegExp As Object
Dim v(1 To 3) As Variant
Dim i As Integer

Set RegExp = CreateObject("VBScript.Regexp")
RegExp.Pattern = "[０-９]+"
RegExp.Global = True

v(1) = "１５４ＡＣ"
v(2) = "２２９８ＢＣＺ"
v(3) = "８０Ｘ"

For i = 1 To 3

MsgBox v(i) & vbLf & RegExp.Execute(v(i))(0) & vbLf & Replace(v(i), RegExp.Execute(v(i))(0), "")

Next

Set RegExp = Nothing
End Sub

例えばこんな感じとか。

補足

ありがとうございます。
大変参考になりました。

教えて頂きました記述はかなり高度な物を感じます。
私はまだまだ勉強不足に思いました。
これからもがんばっていきたいと思います。