对象变量或 With 块未设定

Question

所以，我有一个工作表，我想在其中搜索Range("M"&i)的值在Range("A:A")中是否存在。然而，当我尝试运行这段代码时，它会返回一个错误："运行时错误'91'：对象变量或with块未设置。当我点击调试时，它会发现出错的位置在

 SearchIn = Range("A:A") 

我在互联网上和这个网站上搜索了一下（找到了一些东西），但我仍然无法解决这个问题。有人知道怎么解决吗？

Sub Find_Replace()

Dim i As Integer
Dim SearchIn As Range
Dim SearchedObject As Range
Dim FinalCell As Range
Dim SumCell As Range


i = 5
SearchIn = Range("A1:A740")
StartSearch = Range("A" & i)
FinalCell = Range("N" & i)

Do While i <= 740

SearchedObject = SearchIn.Find(What:="M" & i, After:=StartSearch, LookIn:=xlValues,          LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If SearchedObject.Value = Range("M" & i).Value Then FinalCell = FinalCell.Value + SearchedObject.Offset(0, 5).Value

Loop


End Sub

- speci

---

在使用VBA时需要了解的相关帖子 - VBA中关键字Set实际上是做什么的？。 - RBT

Answer 1

在分配范围时，必须使用SET

Sub Find_Replace()
    Dim i As Integer
    Dim SearchIn As Range
    Dim SearchedObject As Range
    Dim FinalCell As Range
    Dim SumCell As Range

    i = 5
    
    Set SearchIn = Range("A1:A740")
    Set StartSearch = Range("A" & i)
    Set FinalCell = Range("N" & i)

    Do While i <= 740

        Set SearchedObject = SearchIn.Find(What:="M" & i, After:=StartSearch, _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
        If Not SearchedObject Is Nothing Then
            If SearchedObject.Value = Range("M" & i).Value Then _
            FinalCell.Value = FinalCell.Value + SearchedObject.Offset(0, 5).Value
        End If
    Loop
End Sub

编辑: 同时建议使用完整路径，否则搜索将始终在活动工作表中进行。

例如：

Set SearchIn = Sheets("Sheet1").Range("A1:A740")

对于其他情况同理。

- Siddharth Rout