今、あるセルに文字列が入力されています。
この文字列は、前半は全角文字、後半は半角英数字で構成されています。
例えば、「東京123」「埼玉056A」「なんばB3」「神奈川」「9S87」のような感じです。
※前半部、後半部が0文字の場合もあります。
このような特性の文字列を、前半部と後半部で２つのセルへ分断したいです。
関数の利用でもVBAの利用でも構いません。
自力では解決策が思いつかず、相談致します。
どうぞよろしくお願い致します。
No.1
111
19
60pt
下記のユーザ関数で対応できるかと思います。
文字分割(文字列,文字種) ※文字種 1:半角、2:全角
例） A1:東京123 B1:=文字分割(A1,2) C1:=文字分割(A1,1)
421
377
Function 文字分割(文字列 As String, 文字種 As Integer)
Dim I As Integer
For I = 1 To Len(文字列)
If LenB(StrConv(Mid(文字列, I, 1), vbFromUnicode)) = 文字種 Then
文字分割 = 文字分割 & Mid(文字列, I, 1)
End If
Next I
End Function
1
4
2
な、なんという神設定！
前回につづきありがとうございます！！