首页 > 解决方案 > 来自不同工作表的 VBA Vlookup

问题描述

我正在尝试编写一个 vlookup 代码,该代码使用查找选项卡作为数组 (A:B) 和 vlookup 在单元格 Y2 中的收入选项卡。我需要它一直填充到 Y 列。

Sub VLOOKUP()

Dim LookupsLastRow As Long
Dim RevenueLastRow As Long
Dim LookupsSheet As Worksheet
Dim RevenueSheet As Worksheet


'What are the names of our worksheets?
Set LookupsSheet = Worksheets("Lookups")
Set RevenueSheet = Worksheets("Revenue")

'Determine last row of source
With LookupsSheet
    LookupsLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
With RevenueSheet
    'Determine last row in col P
    RevenueLastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
    'Apply our formula
    .Range("Y2:Y" & RevenueLastRow).Formula = _
        "=VLOOKUP(V2,"Lookups"!$A$2:$B$" & LookupsLastRow & ",2,0)"
End With



End Sub

标签: excelvbavlookup

解决方案


推荐阅读