如何利用VBA用变量表示vlookup参数

zhjloney

想使vlookup的第二和第三个参数变量化，详见附件。求教大家！
Sub test()
    Dim r, rng As Range
    Dim x As Integer
    Set r = [B17]            
    Set rng = [B3:C9]        
     For x = 2 To 120
    Cells(x + 1, 17) = WorksheetFunction.VLookup(r, rng, x, False)
    Next x
    End Sub

jiangxiaoyun

1. Sub test()
   
2.     Dim r, rng As Range
   
3.     Dim x As Integer
   
4.     Set r = [B17]
   
5.     Set rng = [B3:dr9]
   
6.      For x = 2 To 120
   
7.     Cells(17, x + 1) = WorksheetFunction.VLookup(r, rng, x, False)
   
8.     Next x
   
9.     End Sub

复制代码

陈刚有两个哩

jiangxiaoyun

Sub test()
Dim r, rng As Range
Dim x As Integer
Set r = [B17]
For x = 2 To 120
Cells(17, x + 1) = WorksheetFunction.VLookup(r, Range(Cells(3, 2), Cells(9, x + 1)), x, False)
Next x
End Sub

zhjloney

jiangxiaoyun 发表于 2018-3-20 19:17
陈刚有两个哩

恩，不过这个变量可以用了，谢谢！