Excel VBA:运行时错误“438”对象不支持此属性或带有“as Range”的方法

请帮助调试：运行时错误“438”对象不支持此属性或方法

我不确定为什么我的语句集ImCrazy=.FindTotal不起作用

总数是大约23个细胞的一部分。我基本上想找到每一个，选择它，然后移动一个单元格，输入一个函数，等等

Sub Utilization()

'Utilization Macro

'Keyboard Shortcut: Ctrl+u

Dim lastRow As Long
Dim x As Integer
Dim knt As Integer
Dim ImCrazy As Range

    With ActiveSheet
        ActiveCell.Offset(3, 0).Range("A1").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.AutoFilter
        .Range("$A$4:$F$800").AutoFilter Field:=3, Criteria1:="0"
        ActiveCell.Offset(6, 1).Range("A1").Select
        lastRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range(.Range("b2"), .Range("b" & lastRow)). _
               SpecialCells(xlCellTypeVisible).Value = _
                         "0"
                         ActiveCell.FormulaR1C1 = "0"

        .Range("$A$4:$F$800").AutoFilter Field:=3
        .Range("a1").Select
        .Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Set ImCrazy = .Find("Total", xlValues, xlPart, xlByRows, xlNext, False, False)

        If Not ImCrazy Is Nothing Then
            ImCrazy.Offset(0, 1).Value = "=SUM(R[-" & knt & "]C:R[-1]C)"
            ImCrazy.Offset(0, 3).Value = "=(RC[-1]+RC[2])/RC[-2]"
        Else
            MsgBox "'Total' not found'"
        End If
    End With
End Sub

我还需要这是一个循环，这样它将继续检查单词Total

总之 1.我需要有关运行时错误的帮助 2.我需要帮助构建代码以重复查找total和插入函数

---

提前谢谢

您需要遵循的正确语法。 所以下面这行行不通，因为：

Set ImCrazy = .Find("Total", xlValues, xlPart, xlByRows, xlNext, False, False)

它没有指定范围。使用点。表示您正试图从ActiveSheet调用属性或方法。这导致错误428，因为工作表对象实际上没有查找方法。 您没有提供参数名称，但没有在参数后包含。即使更正对象引用，它仍然会失败。 试试这个：

.Cells.Find("Total") ' This finds a cell that contains "Total" in the ActiveSheet

现在，如果需要查找所有引用，则必须使用循环和