查找时出错

金樽邀月

大神们，
      求助，我设计了一个查找工具，如果单元格中出现#REF!、#VALUE! 、#NAME?等错误提示，VBA运行时将出现类型不匹配的提示。加上On Error Resume Next，虽然可以继续运行，但查找的结果不准确，把出现错误提示的工作表视为找到。我要求：对出错单元格不做任何修改，得出正确查找结果。其实就是在查找到出现错误提示单元格时，怎么跳过去。

MOY838840554

改为报错GoTo跳转就行了

kyxfyzg

把   Sheets(gzb).UsedRange   改成    Sheets(gzb).Range("b2", Cells(Rows.Count, 2).End(xlUp))

ykcbf1100

加个错误判断If IsError(arr(i, 3)) = False Then

ykcbf1100

新写一个吧。

1. Sub ykcbf()   '//2024.9.20
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("控制台")
   
4.     st = sh.[a2].value
   
5.     ReDim brr(1 To 1000, 1 To 2)
   
6.     For Each sht In Sheets
   
7.         If sht.Name <> sh.Name Then
   
8.             With sht
   
9.                 arr = .UsedRange
   
10.                 For i = 2 To UBound(arr)
    
11.                     If IsError(arr(i, 3)) = False Then
    
12.                         If arr(i, 2) = st Then
    
13.                             m = m + 1
    
14.                             brr(m, 1) = .Name
    
15.                             brr(m, 2) = "是"
    
16.                             Exit For
    
17.                         End If
    
18.                     End If
    
19.                 Next
    
20.             End With
    
21.         End If
    
22.     Next
    
23.     With sh
    
24.         .[b2:c1000] = ""
    
25.         .[b2].Resize(m, 2) = brr
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

quqiyuan

改用find函数，稍作改动。仅供参考。。。

quqiyuan

代码如下。。。
Option Explicit
Sub 查找()
Dim lr%, h%, ws As Worksheet, dc$, i%, gzb$, rng As Range
Application.ScreenUpdating = False  '关闭刷屏
Application.DisplayAlerts = False  '关闭警告信息
lr = Cells(Rows.Count, 2).End(3).Row + 1
Range("B2:C" & lr).ClearContents
h = 2
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "控制台" Then
Cells(h, 2).Value = ws.Name
h = h + 1
End If
Next ws
dc = [A2]
i = 2
Do While Cells(i, 2) <> ""
      gzb = Cells(i, 2)
      Set rng = Sheets(gzb).UsedRange.Find(What:=dc, LookIn:=xlValues, LookAt:=xlWhole)

        If Not rng Is Nothing Then Cells(i, 3) = "是"
       i = i + 1
Loop
MsgBox "查找完毕!"
End Sub

金樽邀月

MOY838840554 发表于 2024-9-20 12:33
改为报错GoTo跳转就行了

领教了，谢谢老师！

金樽邀月

ykcbf1100 发表于 2024-9-20 12:46
加个错误判断If IsError(arr(i, 3)) = False Then

老师重新写代码，厉害！感谢！

金樽邀月

quqiyuan 发表于 2024-9-20 12:56
改用find函数，稍作改动。仅供参考。。。

谢谢老师，让我又学了一招！