Excel 在查找公式VBA中使用变量名

这似乎很容易，因为我是VBA的新手。我试图用同一列中以前的非空白隐藏单元格值填充过滤后的空白可见单元格。查找公式在excel工作表上运行良好，但在VBA中将其与变量范围一起使用会在查找公式行上出现应用程序定义或对象定义的错误

nlr = Cells(Rows.Count, 9).End(xlUp).Row
With Activehseet
  Application.DisplayAlerts = False
  Range("A1:K" & nlr).AutoFilter Field:=2, Criteria1:=""
  Range("A1:K" & nlr).AutoFilter Field:=1, Criteria1:="P * Suite *"
  Range("B2:B" & nlr).SpecialCells(xlCellTypeVisible).ClearContents
  For Each c In Range("B1:B" & nlr).Offset(1, 0).SpecialCells(xlCellTypeVisible)
      n = c.Row - 1
      c.Formula = "=LOOKUP(2,1/($B$2:B&n&<>""),$B$2:B&n&)"

nlr=单元格（Rows.Count，9）.End（xlUp）.Row
用Activehseet
Application.DisplayAlerts=False
范围（“A1:K”和nlr）。自动筛选字段：=2，标准1:=“”
范围（“A1:K”和nlr）。自动筛选字段：=1，标准1:=“P*套件*”
范围（“B2:B”和nlr）。特殊单元格（xlCellTypeVisible）。ClearContent
对于范围内的每个c（“B1:B”和nlr）。偏移量（1，0）。特殊单元格（xlCellTypeVisible）
n=c.第1行
c、 公式=“=查找（2,1/（$B$2:B&n&）”，$B$2:B&n&）

我已经在下面试过了，但是没有用

    c.Formula = "=LOOKUP(2,1/($B$2:B " & n & "<>""),$B$2:B" & n & ")"

c.Formula=“=LOOKUP（2,1/（$B$2:B“&n&”）和$B$2:B“&n&”）

请帮我解决这个问题

编辑：我已经尝试过这种方法，但也不起作用

c.Formula = "=LOOKUP(2,1/($B$2:B " & n & "<>""""),$B$2:B" & n & ")"

c.Formula=“=LOOKUP（2,1/（$B$2:B“&n&”）和$B$2:B“&n&”）

这是将一个字符串连接到另一个字符串的正确方法：

c.Formula = "=LOOKUP(2,1/($B$2:B " & n & "<>""),$B$2:B" & n & ")"

---

用户提问后已删除其帐户？我投票关闭此问题，因为OP提问后已删除该帐户。我们永远不会知道解决方案是否解决了OPs问题。在这上面花时间是浪费时间的。

... & n & "<>""), ...

... & n & "<>""""), ...

c.Formula = "=LOOKUP(2,1/($B$2:B " & n & "<>""""),$B$2:B" & n & ")"