Excelでの区切り位置について

質問

Excelでの区切り位置について
下記の文字列をを「.」「～」「、」で区切りたいのですが、何か良い方法が
ありましたら教えて下さい。

100-1.2
100-3～5
100-6、7、8

回答No.2

imogasi

あまり質問で見たことの無い変な内容だ。
１レコードでは、ピリオド、波線、句読点のうちどれかしか区切りとする文字は無い（混合は無い）
と考えて良いか。
それなら各レコードで、３文字を探し、存在した文字を区切り文字としてSplit関数で列に分ければ簡単。
２文字以上並存と、３文字間の優先関係など無いよね。
半角全角がはっきりしないが。質問には念を入れて正確に書くこと。
コードはGoogleででも、「VBA Split　レコード」などで照会して、参考コードは出てくる。
Sub test01()
Open "C:\Documents and Settings\XXXX\My Documents\text17.txt" For Input As #1
i = 1
Do Until EOF(1)
'ファイルより１件分を読み込み
Line Input #1, strdata
'MsgBox strdata
'カンマなどで区切って配列に代入
x = InStr(strdata, ",")
If x <> 0 Then
MsgBox strdata
varData = Split(strdata, ",")
GoTo p1
End If
x = InStr(strdata, "～")
If x <> 0 Then
varData = Split(strdata, "～")
GoTo p1
End If
x = InStr(strdata, "、")
If x <> 0 Then
varData = Split(strdata, "、")
GoTo p1
End If
p1:
For j = 0 To UBound(varData)
Cells(i, j + 1) = varData(j)
Next j
i = i + 1
Loop
Close #1
End Sub
例データ
aaa,12345,ああああ
bbb～23456～いいい
ccc、3421、ウウウウ
結果
Sheet1
aaa 12345 ああああ
bbb 23456 いいい
ccc 3421 ウウウウ

回答No.1

keithin

方法１：
区切り位置を使う
まず「.」で区切る。
「.」の無いでーたはそのまま残っているので，２回目「～」で区切る。
さらに３回目「、」で区切る。

方法２：
Ctrl+Hで置換を出し，
.
を
～
に全て置換する

つづけて
、
を
～
に全て置換する

その上で区切り位置を使い，～で区切る。