ExcelVBA セルの文字の取得

質問

Excel2010 VBAについてご教授願います。

あるセルに以下の様な内容が有ったとします。
（数字の部分は変動しますが、数字5桁＋「-」＋数字3桁＋「-」数字3桁の
　フォーマットとします。
　改行も変動します。）

セルの内容
12345-678-001　あああ。（改行）
12345-678-002　いいいいい12345-678-003ううう。（改行）
23456-789-010　えええ。23456-789-011　おおおおおおお（改行）
34567-890-123　かか

上記から以下の様なレイアウトで文字を取得したいと思います。
Split関数等を使用すればできるのかな、とも思いますが、
どの様に作成したらよろしいのか分かりません。
次のデータの
ニューメリック5桁 - ニューメリック3桁 - ニューメリック3桁のレイアウトが
発生した時点でニューメリックのデータから前の文字までを取得するという
方法が取れればよろしいでしょうけれども、これが出来ないという事であれば
判定する方法とすれば、数字部分を変数等で与える事になろうかと思いますが、
この数字部分も変動します。

12345-678-001　あああ。
12345-678-002　いいいいい
12345-678-003ううう。
23456-789-010　えええ。
23456-789-011　おおおおおおお
34567-890-123　かか

回答No.1

real beatin（@realbeatin） · ベストアンサー

こんにちは。

'あるセルに以下の様な内容''セルの内容''（改行）'
という説明からして、
「ひとつのセルに セル内改行を含む文字列 がある」
という理解でいます。

求める結果の方には'（改行）'と書かれていないことから、
切り分けた文字列それぞれを複数のセル（セル範囲）に出力する、
もしくは、単に配列変数に格納できればいい、という理解でいます。

内容的には、
　セルの文字列を
　vbLf（セル内改行と同値）を区切り文字として、
　Split()関数で配列変数に格納し、
　　各要素に対し、
　　一旦、InStr()関数で"-"の桁位置を取得して、
　　５桁手前以降の文字列をLike演算子で評価し、
　　"#####-###-###*"で始まる文字列であれば、
　　先頭の数字の前にvbLfを挿入し、
　処理後の配列変数をvbLfで連結した文字列を
　再度vbLfでSplit()関数に掛け、
　求める配列を作り出します。

方法は他にもありますし、条件によっては簡略化出来そうな部分も多いですが、
比較的解り易い内容にはなっているかと。

Sub Re8909609a()
Dim sBuf, arr
Dim sTmp As String
Dim i As Long
Dim nPos As Long

　　sBuf = Cells(1, 1)
　　arr = Split(sBuf, vbLf)

　　For i = 0 To UBound(arr)
　　　　nPos = 1
　　　　sTmp = arr(i)
　　　　Do
　　　　　　nPos = InStr(nPos + 6, sTmp, "-")
　　　　　　If nPos Then
　　　　　　　　If Mid(sTmp, nPos - 5) Like "#####-###-###*" Then
　　　　　　　　　　arr(i) = Left$(sTmp, nPos - 6) & vbLf & Mid(sTmp, nPos - 5)
　　　　　　　　End If
　　　　　　End If
　　　　Loop While nPos
　　Next i

　　sBuf = Join(arr, vbLf)
　　arr = Split(sBuf, vbLf)

　　For i = 0 To UBound(arr)
　　　　Cells(i + 1, 2) = Trim$(arr(i))
　　Next i
End Sub

お礼

ご教授、誠にありがとうございます。
本当に感謝！感謝です！（嬉し涙）
完璧です。