Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31796 / 76734

←次へ　｜　前へ→


	【50182】Vlookupについて

孝彦 - 07/7/13(金) 15:32 -


	引用なし

	パスワード

こんにちは。過去ログを検索していて、下記のようなコードを見つけて
一部修正しようとしたのですが、そこまでVBAについての理解も知識もなく、
行き詰まってしまいました。
ご教授頂けましたら幸いです。

-----参考にしようとしたコード(投稿#6589でした)-----
Sub main()
　　Dim vlookup_func As String
　　Dim rng2 As Range
　　With Worksheets("シート1")
　　　vlookup_func = "vlookup(rc[-1],シート1!" & _
　　　　　　　　　　 .Range(.Cells(1, 1), _
　　　　　　　　　　 .Cells(.Rows.Count, 1).End(xlUp)) _
　　　　　　　　　　 .Resize(, 2) _
　　　　　　　　　　 .Address(, , xlR1C1) & _
　　　　　　　　　　 ",2,false)"
　　　End With
　　With Worksheets("シート2")
　　　Set rng2 = .Range(.Cells(1, 1), _
　　　　　　　　 .Cells(.Rows.Count, 1) _
　　　　　　　　 .End(xlUp)) _
　　　　　　　　 .Offset(0, 1)
　　　End With
　　With rng2
　　　 .Formula = "=if(iserror(" & _
　　　　　　　　　vlookup_func & "),""""," _
　　　　　　　　　& vlookup_func & ")"
　　　 .Value = .Value
　　　 End With
End Sub
-----ここまで-----

やろうとしていることは、
Ａ～Ｅ列までデータが存在するシート１のＡ列のどこかにある値と
シート２のＧ列の値を比較して、HITした場合は
シート２のＣ～Ｆ列にシート１のＢ～Ｅ列の値を貼り付け、
空白行になったら終了するというものです。

よろしくお願いします。

5 hits

▼

【50182】Vlookupについて 孝彦 07/7/13(金) 15:32

≪