10/07/19 22:02:48
>>81
こんな感じじゃないか？A1セル限定だけどまぁテキトーに応用できるだろう
Sub a()
Dim moji, k, keyascii, hidari, migi
moji = Len(Cells(1, 1).Value)
For k = moji To 1 Step -1
keyascii = Asc(Mid(Cells(1, 1), k, 1))
If keyascii > 160 And keyascii < 224 Then
hidari = Left(Cells(1, 1).Value, k - 1)
migi = Right(Cells(1, 1).Value, Len(Cells(1, 1).Value) - k)
Cells(1, 1).Value = hidari & migi
End If
Next
End Sub
>>83
わからん。
郵便番号ウィザード 三桁 でぐぐった結果のどれかか
もしくはアドインの郵便番号ウィザード（だっけ？）を入れなおす
もしくは解決方法じゃないけど、googleIME入れるとメモ帳でも変換できるようになるし、個人的にはコッチのほうが便利だと思う