Excel VBA質問箱 IV

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

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


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

14160 / 76734

←次へ　｜　前へ→


	【68073】Re:検索して一致した隣の列を返す

UO3 - 11/1/28(金) 17:34 -


	引用なし

	パスワード

▼ののかさん：
>ですが、ＶＬＯＯＫＵＰだと昇順に並べ替える必要があるため、
>ループさせる必要があるかと思います。

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

皆さんから様々なコードが提示されると思いますが、あえて（？）
ＶＬＯＯＫＵＰを埋め込む案です。

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