代码之家 › 专栏 › 技术社区 › Ans

Excel vba check if Match函数返回NA-宏崩溃:运行时错误1004应用程序定义或对象定义错误

excel-vba vba excel

Ans · 技术社区 · 6 年前

我用一个 Match 函数查找包含数据的特定行:

Sub test

With ThisWorkbook.Worksheets("hide_rows")
 For i = 2 To 15
   MsgBox (Application.WorksheetFunction.Match(.Cells(i, 1).Value, _
                ThisWorkbook.Worksheets("Sheet1").Range("A:A"), 0)) 
 Next
End With

End Sub

从i=2到i=14,工作正常。但是字符串 .Cells(15, 1) Runtime Error 1004 âApplication-defined or Object-defined error 错误。我试着通过检查它是否 #N/A 第一:

Sub test

With ThisWorkbook.Worksheets("hide_rows")
 For i = 2 To 15
   MsgBox (Application.WorksheetFunction.IsNA(Application.WorksheetFunction.Match(.Cells(i, 1).Value, _
                ThisWorkbook.Worksheets("Sheet1").Range("A:A")), 0)) 
 Next
End With

End Sub

False 第2-14排,第15排仍在坠毁。

同时如果我计算在工作表中手动输入,然后检查结果是否为它工作正常:

Sub test()

With ThisWorkbook.Worksheets("hide_rows")
 For i = 2 To 15
   MsgBox (Application.WorksheetFunction.IsNA(.Cells(i, 7).Value))
 Next
End With

End Sub

2 回复 | 直到 6 年前

Shai Rado 6 年前

与 Match If Not IsError(Application.Match...

修改后的代码

Sub test()

With ThisWorkbook.Worksheets("hide_rows")
    For i = 2 To 15
        If Not IsError(Application.Match(.Cells(i, 1).Value, _
            ThisWorkbook.Worksheets("Sheet1").Range("A:A"), 0)) Then

            MsgBox (Application.WorksheetFunction.Match(.Cells(i, 1).Value, _
                ThisWorkbook.Worksheets("Sheet1").Range("A:A"), 0))

        Else    ' Match failed
            MsgBox "Row " & i & " failed to find a match", vbCritical, "Error"
        End If
    Next
End With

End Sub

Comintern 6 年前

您需要测试 .Cells(i, 7).Value 之前 WorksheetFunction.Match . 我还建议使用VBA函数 IsError WorksheetFunction.IsNA :

With ThisWorkbook.Worksheets("hide_rows")
    For i = 2 To 15
        Dim result As Variant

        result = .Cells(i, 1).Value
        If IsError(result) Then
            'Do whatever
        Else
            MsgBox (Application.WorksheetFunction.Match(result, _
                    ThisWorkbook.Worksheets("Sheet1").Range("A:A"), 0))
        End If
    Next
End With

推荐文章

SoftTimur · Excel公式,用于删除范围底部的空行

5 月前

A B · C#Excel自动调整列避免长文本时出错

5 月前

Seldon · Office脚本:尝试将切片器添加到透视表

5 月前

Kram Kramer · 通过vba自动调整文本大小以适应形状

5 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

6 月前

Eric · 我有邮政编码替换问题Excel VBA

6 月前

jkp · 特殊字符复选标记

6 月前

user29030156 · 需要根据表1中的标准自动填充表2

6 月前

Valarenti · 将32位xll Excel加载项转换为64位:LNK1561错误

6 月前

Iron Man · 代码插入和复制到错误的工作表

6 月前