【excel VBA】

こんな感じでどうでしょう。

全角数値の判定部分はもっとスマートな方法があると思いますが・・・、最低でもCase文にすべきですかね。

Function convert(moji As String) As String

Dim i, tmp

convert = ””

For i = 1 To Len(moji)

tmp = Mid(moji, i, 1)

If tmp = ”０” Then tmp = ”0”

If tmp = ”１” Then tmp = ”1”

If tmp = ”２” Then tmp = ”2”

If tmp = ”３” Then tmp = ”3”

If tmp = ”４” Then tmp = ”4”

If tmp = ”５” Then tmp = ”5”

If tmp = ”６” Then tmp = ”6”

If tmp = ”７” Then tmp = ”7”

If tmp = ”８” Then tmp = ”8”

If tmp = ”９” Then tmp = ”9”

If i = 1 Then

convert = tmp

Else

convert = convert & ” ” & tmp

End If

Next i

End Function

あまりテストしていませんが、こんな感じでしょうか。

StrConv() という関数が VBA に用意されているので、それを利用すると簡単に変換ができます。

Sub Main()

Dim strData As String

Dim strConverted As String

strData = ”あ１いうえお”

strConverted = Convert(strData)

Debug.Print strConverted

End Sub

Function Convert(ByVal strSrc As String) As String

Dim strResult As String

Dim c As String

Dim i As Integer

For i = 1 To Len(strSrc)

c = Mid(strSrc, i, 1)

strResult = strResult & StrConv(c, vbNarrow) & ” ”

Next

Convert = strResult

End Function