質問お願いします
VBA IE にてテーブル取得するのに
上記例ですが
『お菓子』が含まれているせるがそれぞれA~C列に10行目まであります
A列の1行目からC列10行目まで
順番にさぐり
『お菓子』が含まれていれば
セルの内容をそのままE列にコピーする
ようにしたいです
ご教示どうぞよろしくお願いいたします
HP上のテーブル
ナンバー__1__________2_________3
1_______お菓子です__山田さん___食べた
2_______須崎さん____お菓子ね___食べた
3_______橋本さん____食べた_____お菓子だった
4_______新田さん____またお菓子_食べた
5_______岸本さん____食べた_____お菓子いらない
6_______酒田さん____お菓子だよ_食べた
7_______有井さん____お菓子しか_食べた
8_______食べた ____山田さん___いいお菓子
9_______食べた ____西木さん___お菓子
10______串間さん____食べた_____少しお菓子
↓
エクセルに抽出
_____________________________________________________________『お菓子』のセル抜き出して、E列に揃える
________A列_____________B列___________C列_____________D列____E列
1行目___お菓子です______山田さん______食べた_________________お菓子です
2行目___須崎さん________お菓子ね______食べた__________________お菓子ね
3行目___橋本さん________食べた ______お菓子だった___________お菓子だった
4行目___新田さん________またお菓子____食べた_________________またお菓子
5行目___岸本さん________食べた________お菓子いらない_________お菓子いらない
6行目___酒田さん________お菓子だよ____食べた_________________お菓子だよ
7行目___有井さん________お菓子しか____食べた_________________お菓子しか
8行目___食べた__________山田さん______いいお菓_______________いいお菓子し
9行目___食べた ________西木さん______お菓子_________________お菓子
10行目__串間さん________食べた________少しお菓子_____________少しお菓子
単純に文字列をセルにセットした後に
instrなどで文字があるか?チェックして、あったらE列にセットするとか?
・
・
Cells(y, x) = xxxx.Innertext
If Instr(Cells(y, x), "お菓子") > 0 Then
Cells(y, "E") = Cells(y, x)
End If
Instr関数をネットなどで検索してみると、処理のヒントが手に入るかもしれません。
解決の糸口となれば幸いです。