質問: cells(i,2).value windows("コード一覧表.xls").activate activewindow.smallscroll down:=-3 selection.autofilter field:=3, criteria1:="=検索する", operator:= xland と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。 基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。 どうぞよろしくお願いします。
回答: >基本事項は本で学びましたが、呪文のようなコードはよく理解できません。 呪文は分らないようなので 基本的なコードしか使用していません 'サンプルコード sub test() dim x as long, y as long for x = 2 to workbooks("book1.xls").worksheets("sheet1").cells(rows.count, 2).end(xlup).row for y = 2 to workbooks("book2.xls").worksheets("sheet1").cells(rows.count, 1).end(xlup).row if workbooks("book1.xls").worksheets("sheet1").cells(x, 2).value = workbooks("book2.xls").worksheets("sheet1").cells(y, 1).value then workbooks("book1.xls").worksheets("sheet1").cells(x, 3).value = workbooks("book2.xls").worksheets("sheet1").cells(y, 2).value exit for end if next y next x end sub しかし、呪文を使用しないと長くなりますね 後は自分の環境に合わせてアレンジしてください 勉強頑張って