マクロで必要な文字だけ抜き出したい

質問

つい最近同様の質問をしましたが、ちょっと違う形について、またお願いします。

A１セルからA２０セルまで文字が入っています。
その文字の中から、ここABC"黒"やあたりABC"赤"というパターンで書かれている黒や赤の文字だけを取り出したいのです。
ABCの前にはランダムな言葉があります。

マクロで実現する方法を教えてください。

以下がセルに書かれている。　
ここABC"黒"
ことば　鼻本
あたりABC"赤"
鼻　花馬
椅子
家なきこ
・
・
・
花ABC"本屋"

取り出した結果　text1=黒、赤、・・・、本屋

これは、先日OKWAVEで教えていただいたABCの前に何もない場合のマクロです。

sub macro1()
　dim res as string
　dim h as range

　for each h in range("A1:A20")
　　if h.value like "ABC*" then
　　　res = res & "，" & replace(mid(h.value, 4), """", "")
　　end if
　next

　res =mid(res, 2)
　msgbox res
end sub

回答No.1

keithin · ベストアンサー

sub macro1()
　dim res as string
　dim h as range

　for each h in range("A1:A20")
　　if h.value like "*ABC*" then
　　　res = res & "，" & replace(mid(h.value, instr(h.value, "ABC") + 3), """", "")
　　end if
　next

　res =mid(res, 2)
　msgbox res
end sub
とかで。

お礼

回答ありがとうございます。

確認できました。

回答No.2

WindFaller

こんばんは。

これは、正規表現を使った取得で、日本字は「[ぁ-んァ-ヶ一-龠]+」で、意味は文字コードの範囲を示したもので、ひらがな、カタカナ、漢字とありますが、漢字コードは、Unicode全部は網羅していないけれども、常識的な範囲までにしました。もちろん、漢字だけなら、[一-龠]+ だけになります。

'//
Sub Test1()
　Dim c As Range
　Dim Matches As Object
　Dim n As Variant
　Dim strBuf As String
　With CreateObject("VBScript.RegExp")
　　.Pattern = "ABC""([ぁ-んァ-ヶ一-龠]+)""" 'パターン
　　.Global = True
　　For Each c In Range("A1:A20")
　　　If c.Value <> "" Then
　　　　Set Matches = .Execute(c.Value)
　　　　If Matches.Count > 0 Then
　　　　　For Each n In Matches
　　　　　　strBuf = strBuf & "," & .Replace(n, "$1")
　　　　　Next n
　　　　End If
　　　End If
　　Next c
　End With
　MsgBox Mid(strBuf, 2)
End Sub
'//

お礼

回答ありがとうございます。

実現できることが確認できました。