Excelでの文字検索

質問

Excelのマクロでpingをとばしてその結果をA2に表示させるようにしました。
pingの結果
「Ping statistics for 10.81.13.170:
Packets: Sent = 30, Received = 30, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 0ms, Maximum = 10ms, Average = 0ms」

この中から
「Ping statistics for 10.81.13.170」をB2に抽出
「0% loss」をC2に抽出
「Average = 0ms」をD2に抽出
したいのです。

関数でもマクロでもいいのでわかる方がいましたらよろしくお願いします

回答No.1

tinu 2000（@tinu2000） · ベストアンサー

B2に、=LEFT(A2,FIND(":",A2,1)-1)
C2に、=MID(A2,FIND("(",A2,1)+1,FIND(")",A2,1)-FIND("(",A2,1)-1)
D2に、=RIGHT(A2,LEN(A2)-FIND("Average",A2,1)+1)

です。

回答No.2

imogasi

（１）「Ping statistics for 10.81.13.170」は
=MID(A1,FIND("Ping",A1),FIND(":",A1)-FIND("Ping",A1))
（２）「0% loss」は
=MID(A1,FIND("% loss",A1)-3,FIND("% loss",A1)-FIND("(",A1)+8)
（と）に頼って探すことを出来るだけ避けたかった。
（３）「Average = 0ms」は
=MID(A1,FIND("Average",A1),FIND("ms%",A1)-FIND("Average",A1)+2)
どれも例がどれだけ不動部分を反映しているか判らず
不徹底あるが。
例えば（）は一箇所しか出ないのかどうかとか。
VBAで精緻にやれば、ｎ文字目以降をInstrで探せるので
正確に出来そう。語句XXよりあとの語句YYを探せる。