質問お願いします 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 '↑セットした、データを調べる↓文字列を探して見つかったらE列にセットする If Instr(Cells(y, x), "お菓子") > 0 Then 'お菓子の文字を探す >0ゼロ以上で見つかった Cells(y, "E") = Cells(y, x) 'E列に同じデータCells(y, x)をセットする End If '↑セット後にチェックして転記する
Instr関数をネットなどで検索してみると、処理のヒントが手に入るかもしれません。
解決の糸口となれば幸いです。
