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

質問

A１セルからA２０セルまで文字が入っています。
その文字の中から、ABC"黒"やABC"赤"というパターンで書かれている黒や赤の文字だけを取り出したいのです。
マクロで実現する方法を教えてください。

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

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

回答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, 4), """", "")
　　end if
　next

　res =mid(res, 2)
　msgbox res
end sub
みたいな。