如何在vba中实现Vlookup公式

Question

为什么在我的vba代码的vlookup函数中未调用范围（Rg），是否需要进行任何修正以使其正常工作？

Sub Vlkuprangcall()
  Dim strColum As String
  Dim Rg As Range
  Set Rg = ActiveWorkbook.Sheets(1).Range("F4:H9")

  With ActiveSheet
   a = ActiveCell.Column
   lastrow = 9
   strColumn = Split(ActiveCell.Address, "$")(1)

   ActiveCell.FormulaR1C1 = "=vlookup(RC[-2],Rg,3,0)"
   ActiveCell.AutoFill Destination:=Range(ActiveCell, Range(strColumn & lastrow))

End Sub

Answer 1

不确定为什么在您的设置中没有为命名范围工作并使用它来设置FormulaR1C1。模拟和下面的代码是否有效。

在Sheet1中考虑这一点：

这在Sheet2中：

运行子产量：

代码

Sub VlkupRangCall()
    Dim strColumn As String, lastrow As Long

    With ActiveSheet
        lastrow = 9
        strColumn = Split(ActiveCell.Address, "$")(1)

        .Range(ActiveCell, Range(strColumn & lastrow)).FormulaR1C1 = "=vlookup(RC[-2],MyRange,3,FALSE)"
    End With
End Sub

你可以改善的事情：

• 使用表格而不是固定范围
• 将此表重命名为更有意义的内容＆＃34; MyRange＆＃34; （只是为了匹配上面的代码）
• 避免固定拉斯特罗
• 如果您有很多要自动填充公式的FormulaR1C1，请使用模块级别Private Const