Excel VBA質問箱 IV

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

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


14160 / 76734 ←次へ | 前へ→

【68073】Re:検索して一致した隣の列を返す
回答  UO3  - 11/1/28(金) 17:34 -

引用なし
パスワード
   ▼ののか さん:
>ですが、VLOOKUPだと昇順に並べ替える必要があるため、
>ループさせる必要があるかと思います。

とも限らないですね。通常は指定しない第4引数にFalseを指定すれば
昇順じゃなくても実行できます。
ただ、関数を使うにせよ、VBAでコードを準備するにせよ、検索系の
処理は関連のデータが昇順になっているほうが、処理効率は格段に向上
しますが・・・

皆さんから様々なコードが提示されると思いますが、あえて(?)
VLOOKUPを埋め込む案です。

Option Explicit

Sub Sample1()
  Dim x As Long
  With Worksheets("マスタ")
    x = .Range("A" & .Rows.Count).End(xlUp).Row
  End With
  With Worksheets("レポート")
    With .Range("K1").Resize(.Range("J" & .Rows.Count).End(xlUp).Row)
      .Formula = "=VLOOKUP(J1,マスタ!A$2:B$" & x & ",2,False)"
      .Value = .Value
    End With
  End With
End Sub
1 hits

【68071】検索して一致した隣の列を返す ののか 11/1/28(金) 17:02 質問
【68073】Re:検索して一致した隣の列を返す UO3 11/1/28(金) 17:34 回答
【68075】Re:検索して一致した隣の列を返す UO3 11/1/28(金) 17:50 回答
【68085】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 11:16 質問
【68086】Re:検索して一致した隣の列を返す UO3 11/1/31(月) 12:57 回答
【68087】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 13:29 質問
【68088】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 13:42 お礼
【68076】Re:検索して一致した隣の列を返す UO3 11/1/28(金) 17:56 回答
【68084】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 8:56 お礼

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