|
▼ののか さん:
>ですが、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
|
|