VBA循环中对象变为Nothing引发未设置对象变量错误求解

你的问题出在没有正确设置后续查找的起始位置，也没处理循环终止的边界条件。当你替换第一个匹配项后，继续调用Find时如果不指定从哪里开始找，它会默认从工作表开头重新遍历，而且当找不到下一个匹配项时，Penn会直接变成Nothing，这时候再访问它的属性就会触发「对象变量未设置」的错误。

这里是修正后的完整CleanMFG子程序：

Sub CleanMFG()
    Dim Penn As Range
    Dim firstMatchAddress As String ' 记录第一个匹配单元格的地址，避免无限循环
    
    ' 执行第一次查找
    Set Penn = Columns("R").Find(What:="PENNSILVANIA", _
        LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    If Not Penn Is Nothing Then
        firstMatchAddress = Penn.Address ' 保存第一个匹配项的地址
        
        Do
            ' 替换当前匹配单元格的内容
            Penn.Value = "PENNSYLVANIA"
            
            ' 从当前单元格的下一个位置继续查找
            Set Penn = Columns("R").FindNext(After:=Penn)
            
            ' 终止循环的条件：要么找不到下一个匹配项，要么回到了第一个匹配的地址（防止无限循环）
        Loop While Not Penn Is Nothing And Penn.Address <> firstMatchAddress
    End If
End Sub

关键修正说明： #

• 新增firstMatchAddress变量：因为FindNext在遍历到最后一个匹配项后，会自动回到工作表开头继续查找，用这个变量可以避免无限循环。
• 使用FindNext(After:=Penn)：明确指定从当前找到的单元格之后开始下一次查找，确保遍历所有匹配项。
• 完善循环条件：同时检查Penn是否为Nothing（没有更多匹配）和是否回到起始地址，双重保障循环正常终止。

更高效的替代方案： #

如果你的需求只是批量替换R列中所有包含PENNSILVANIA的内容，其实可以直接用Range.Replace方法，不需要写循环，代码更简洁高效：

Sub CleanMFG_Faster()
    Columns("R").Replace What:="PENNSILVANIA", Replacement:="PENNSYLVANIA", _
        LookAt:=xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

这个方法会一次性完成所有匹配项的替换，比循环Find的效率高很多，尤其是当数据量较大时优势更明显。

内容的提问来源于stack exchange，提问作者NoobMaster101