Range 函数需要 VBA 对象的错误

Question

我有一段 VBA 代码从另一个 excel 中查找值以创建一个真/假标志，并且基于该标志，我设置了两个不同的 char 值。我在以下代码中收到“需要对象”错误。有人可以解释为什么吗？

Sub test()

  Dim part1 As String
  Dim part2 As String
  Dim a As Range

  part1 = "=ifna(INDEX('DRG and Zip Summaries'!$A$10:$A$58,MATCH('DRG Summary Target'!F2 ""x_x_x"""
  part2 = ",'DRG and Zip Summaries'!$C$10:$C$58,0)),'FALSE')"

With Range("A2:A183").FormulaArray = part1
                                  .Replace """x_x_x""", part2
End With

For Each a In Range("A2:A183")
 If a.Value = "FALSE" Then
        Range("B" & a.rownum) = Chr(168)
 Else:  Range("B" & a.rownum) = Chr(254)
 End If
Next

 End Sub

Answer 1

不要将公式放在 WITH 声明中。 WITH 声明只是应该识别要使用的对象，而不是进行任何更改，例如将值放入其中。使用：

With Range("A2:A183")
    .FormulaArray = part1
...

等等

我也不确定您为什么要使用“part1”和“part2”结构。如果只是因为公式太长，您可以使用下划线字符换行，因此：

formula=""=ifna(INDEX('DRG and Zip Summaries'!$A$10:$A$58," & _
    "MATCH('DRG Summary Target'!F2",'DRG and Zip Summaries'!" & _
    "$C$10:$C$58,0)),'FALSE')"

下划线将确保这三行都作为一行处理。