質問: エクセルvbaでの文字列抽出とセルへの出力 エクセルvbaで文字列を検索して、検索した文字列を他のセルへ出力する方法を探しております。状況を図で説明すると、 a1セル:aaa\bbb\item1\ddd a2セル:aaa\bbb\ccc\item2\ddd a3セル:aaa\bbb\ccc\ddd\item3\eee このような状態からitemを検索して、b1セルに b1セル:item1 b2セル:item2 b3セル:item3 と表示させたいです。エクセルvba初心者なものでregexpを使うのかな、というところまではたどり着きましたが、そこから先にすすめません。 何か良い方法をご存知の方、教えていただきたいです。よろしくお願いいたします。
回答: sub test() dim v as variant dim i as integer dim matches dim match v = array("aaa\bbb\item1\ddd", "aaa\bbb\ccc\item2\ddd", "aaa\bbb\ccc\ddd\item3\eee") with createobject("vbscript.regexp") .pattern = "item\d*" .global = true for i = 0 to 2 if .test(v(i)) then set matches = .execute(v(i)) for each match in matches msgbox match.value next end if next end with end sub この様な事でしょうか。