|
▼どらちゃん さん:
>ありがとうございます。とても助かります。
>
>ただ、書き漏れていましたが以下のような状況もあり、そうなると欲しい回答になりません。
>A1セル: 第1回 花の会第5回 森の会
>(↑2番目の「第○回」と前の文字とにスペースがない)
>A2セル: 第1回
>
>すみませんどなたかお願いできないでしょうか??
検索文字が 第○回
『第』、『回』、の文字は抽出したい文字に含まれる事はない
という条件なら↓のようにすればできます
Dim TData As String
Dim SData As String
Dim TmpA As String
Dim pos As Long
TData = Range("A1").Value '検索元
SData = Range("A2").Value '検索文字
TData = Replace(TData, "第", " 第")
TData = Replace(TData, "回", "回 ")
pos = InStr(1, TData, SData, vbTextCompare)
If pos = 0 Then
MsgBox "対象文字なし"
Exit Sub
End If
TmpA = Trim(Mid(TData, pos + Len(SData)))
pos = InStr(1, TmpA, " ", vbTextCompare)
If pos > 0 Then
Range("A3").Value = Left(TmpA, pos - 1)
Else
Range("A3").Value = TmpA
End If
|
|