在 VBA 中使用 selection.currentregion 在另一个 sheet 中进行 vlookup

Question

我对宏和 vba

都是新手

我在 sheet FR Pivot 中有一个 pivot table，在 sheet Final 中有一个 table。我想获取枢轴 table 数据并使用 vlookup 在最终 sheet 中填写我的 table 中的值。问题是枢轴 table 可以是动态的。所以我正在尝试以下操作：

Dim Range1 As Range
    
     With Sheets("FR Pivot")
            
        'Select cell - You can change as per your requirement
        .Range("E4").Select
        
        'Selects the current region
        Selection.CurrentRegion.Select
                
        
        Set Range1 = Selection
        
    End With
    Sheets("Final").Select
    Range("J7").Select
    ActiveCell.FormulaR1C1 = _
        "=IFNA(VLOOKUP([@[Row Labels]],Range1,2,0),""NA"")"

我想我在命名范围部分出了问题，但无法弄清楚如何修复它。对于宏，我正在记录我的动作，然后修改代码使其动态化，这就是为什么有这么多选择。

Answer 1

没有任何选择：

Dim addr 

addr = Sheets("FR Pivot").Range("E4").Currentregion.Address()

Sheets("Final").Range("J7").Formula = _
        "=IFNA(VLOOKUP([@[Row Labels]], 'FR Pivot'!" & addr & ",2,0),""NA"")"

在 VBA 中使用 selection.currentregion 在另一个 sheet 中进行 vlookup

vlookup in VBA using selection.currentregion in another sheet

excel

vba

range

vlookup

named-ranges