人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelで知恵をお貸しいただければ幸いです。

今、あるセルに文字列が入力されています。
この文字列は、前半は全角文字、後半は半角英数字で構成されています。

例えば、「東京123」「埼玉056A」「なんばB3」「神奈川」「9S87」のような感じです。
※前半部、後半部が0文字の場合もあります。

このような特性の文字列を、前半部と後半部で2つのセルへ分断したいです。

関数の利用でもVBAの利用でも構いません。
自力では解決策が思いつかず、相談致します。
どうぞよろしくお願い致します。

●質問者: yoshifuku
●カテゴリ:コンピュータ
✍キーワード:Excel VBA なんば セル 入力
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● jccrh1
●60ポイント ベストアンサー

下記のユーザ関数で対応できるかと思います。

文字分割(文字列,文字種) ※文字種 1:半角、2:全角

例) A1:東京123
   B1:=文字分割(A1,2)
   C1:=文字分割(A1,1)
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
◎質問者からの返答

な、なんという神設定!

前回につづきありがとうございます!!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ