查找时出错

金樽邀月 · 发表于 2024-9-20 12:18

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

MOY838840554 · 发表于 2024-9-20 12:33

改为报错GoTo跳转就行了

kyxfyzg · 发表于 2024-9-20 12:38

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

ykcbf1100 · 发表于 2024-9-20 12:46

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

ykcbf1100 · 发表于 2024-9-20 12:47

新写一个吧。

Sub ykcbf() '//2024.9.20
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Sheets("控制台")
st = sh.[a2].value
ReDim brr(1 To 1000, 1 To 2)
For Each sht In Sheets
If sht.Name <> sh.Name Then
With sht
arr = .UsedRange
For i = 2 To UBound(arr)
If IsError(arr(i, 3)) = False Then
If arr(i, 2) = st Then
m = m + 1
brr(m, 1) = .Name
brr(m, 2) = "是"
Exit For
End If
End If
Next
End With
End If
Next
With sh
.[b2:c1000] = ""
.[b2].Resize(m, 2) = brr
End With
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

quqiyuan · 发表于 2024-9-20 12:56

本帖最后由 quqiyuan 于 2024-9-20 12:57 编辑

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

quqiyuan · 发表于 2024-9-20 12:59

代码如下。。。
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

金樽邀月 · 发表于 2024-9-20 13:06

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

领教了，谢谢老师！

金樽邀月 · 发表于 2024-9-20 13:11

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

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

金樽邀月 · 发表于 2024-9-20 13:16

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

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

		自动登录	找回密码
密码			免费注册

[求助] 查找时出错