Excel VBA質問箱 IV

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

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


31794 / 76732 ←次へ | 前へ→

【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
-----ここまで-----

やろうとしていることは、
A〜E列までデータが存在するシート1のA列のどこかにある値と
シート2のG列の値を比較して、HITした場合は
シート2のC〜F列にシート1のB〜E列の値を貼り付け、
空白行になったら終了するというものです。

よろしくお願いします。

1 hits

【50182】Vlookupについて 孝彦 07/7/13(金) 15:32 質問
【50183】Re:Vlookupについて かみちゃん 07/7/13(金) 15:50 発言
【50187】Re:Vlookupについて Hirofumi 07/7/13(金) 17:39 回答
【50424】Re:Vlookupについて 孝彦 07/7/24(火) 20:43 質問
【50428】Re:Vlookupについて Hirofumi 07/7/24(火) 21:25 回答
【50431】Re:Vlookupについて 孝彦 07/7/24(火) 21:59 お礼

31794 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free