質問: excelvba 条件一致したら指定したセルの情報を一致した行の右側セルに自動入力する方法について excelvba 条件一致したら指定したセルの情報を一致した行の右側セルに自動入力する方法について こんにちは 上記のようなプログラムを作りたいのですがアドバイスいただけないでしょうか 検索対象 セルe4 にaと入力 c列の検索を行い、e4のワードと一致したら aa2に入力させている10を 一致したセルと同じ行のp列に入力させたい 下手な説明ですがご教授をお願いいたします
回答: こんばんは! >aa2に入力させている10を・・・ aa2セルが「10」にかかわらずaa2セルの値を表示するようにしてみました。 一例です。 sub sample1() dim foundcell as range, firstcell as range set foundcell = range("c:c").find(what:=range("e4"), lookin:=xlvalues, lookat:=xlwhole) if not foundcell is nothing then set firstcell = foundcell goto 処理 do set foundcell = range("c:c").findnext(after:=foundcell) if foundcell.address = firstcell.address then exit do goto 処理 処理: cells(foundcell.row, "p") = range("aa2") loop end if end sub こんな感じではどうでしょうか?m(_ _)m