Microsoft 的强制隐式交集运算符是否在 Excel VBA 中消除了我的公式？

Question

我使用公式根据“C”列中的值缩进“D”列中的文本，并一直在 VBA 中使用它来格式化工作表。它看起来像这样：=setindent(D2,C2)。直到最近，它运行良好，但现在却不行。看起来微软已经开始将“隐式交集运算符”强制添加到公式中（添加@：=@setindent（D2，C2）。它似乎已经在返回“#Value！”的地方取消了我的公式。如果我打开其中一个带有公式的单元格处于编辑模式，然后按“Enter”，它会变为数字，公式适用于目标单元格文本。如何在 VBA 中解决这个问题？

公式如下：

Function SetIndent(z As Range, ByVal Level As Long) As Variant


    Dim celldent As Range
 
    SetIndent = IIf(Level < 0, "Min is 0!", IIf(Level > 10, "Max is 10!", Level))
    If Level < 0 Then Level = 0 Else If Level > 10 Then Level = 10
 
    For Each celldent In z
        With celldent
            If Level - .IndentLevel Then .InsertIndent Level - .IndentLevel
        End With
    Next celldent
End Function  

。 . .这是复制公式的VBA

 'Format the Name (Column D) to indent per the Outline Level value in Column C
'See Module 16 for the Function: SetIndent
    Range("AB2").Select
    ActiveCell.Formula = "=SetIndent(D2,C2)"
    Range("AB2").Copy Range("$AB$3:AB" & lastRow)
  ' Range("$AB2:AB" & lastRow).Clear

谢谢，

提姆

Answer 1

尝试使用.Formula2而不是.Formula将公式直接输入到整个范围内

        Range("AB2:AB" & lastRow).Formula2 = "=SetIndent(D2,C2)"

因此您也可以避免不必要的选择/激活。

此外，我建议您完全限定您的范围参考，例如通过Sheet1.Range("AB2:AB" & lastRow).Formula2 使用工作表的代码（名称）或ThisWorkbook.Worksheets("Sheet1")... 使用Excel 工作表的名称字符串标识符:-)