|
VLookUpを使って
下のB列に表示させています。
A B D E
5 項目1 項目2 データ1 データ2
6 85 R 45 A
7 75 S 75 S
8 45 A 85 R
9 100 T 100 T
10 200 O 150 K
11 150 K 200 O
test1の内容を汎用性を持たせようとコードtest2を作成したのですが、エラーに
なります。出来ましたらアドバイスお願いできませんでしょうか。
宜しくお願いします。
Sub test1()
With Worksheets("Sheet1")
With .Range("B6:B11")
.Formula = "=Vlookup(RC1,R6C4:R11C5,2,0)"
.Value = .Value
End With
End With
End Sub
Sub test2()
With Worksheets("Sheet1")
LstR = .Range("E" & Rows.Count).End(xlUp).Row
With .Range("B6:B" & .Range("A" & Rows.Count).End(xlUp).Row)
.Formula = "=Vlookup($A6,D6:E" & LstR , 2 , 0)""
.Value = .Value
End With
End With
End Sub
|
|