Excel 运行时错误13-不匹配

我是VBA编码的新手，正在处理匹配代码。当我在“数据表”中运行代码时（该表是我所有的数据，必须找到匹配项），代码工作正常，但当我在frontpage上运行代码时（带有userforms的表1），代码是debuggen，并显示“运行时错误13”。有人能告诉我问题出在哪里吗

有人能告诉我为什么我的“如果iSeries错误”不起作用吗

提前谢谢

溴

---

icol

应该是这样的：

icol=Application.match（arg1、arg2、arg3）

请参见中的示例：

---

关于

如果IsError（“A:A”）则MsgBox“SKU未找到”：退出Sub

，则您的操作是错误的。我假设，您希望循环第一列中的所有单元格，并获取其中一个是否为错误。你需要一个循环。这是一个非常简单的方法，但您应该以某种方式在代码中实现它：

Option Explicit

Public Sub TestMe()

    Dim rng As Range

    For Each rng In Range("A:A")
        If IsError(rng) Then Debug.Print rng.Address
    Next rng

End Sub

---

你在哪一行收到错误？哦，对不起。它位于：icol=[Sheet13.MATCH（XFD2&XFD3，A:A&Q:Q，0）]“MATCH af værdien for vores SKU og test nr您声明

icol

as

Integer

并返回

[Sheet13.MATCH（XFD2&XFD3，A:A&Q:Q，0）]

不是整数，这就是为什么我使用icol=Application.MATCH（“XFD2”和“XFD3”，“A:A”和“Q:Q”，0）会得到一个整数的原因）代码在此行中再次调试，错误为13:。Cells（icol，30）。Value=Me.ComboBox3。Value@broder123你的公式中有两个临界误差。再次阅读MSDN链接并尝试复制它。类似这样的方法很有效：

icol=Application.Match（范围（“A2”）、范围（“B:B”）、0）

您能指出错误吗？我试图找到它们，但找不到这段代码…@broder123-将我评论中的示例代码与你评论中的示例代码进行比较。错误是有-通过范围，通过多行范围，等等。我搞不懂，它让debuggen。。。。谢谢你抽出时间。

var = Application.Match(Cells(iRow, 1).Value, Worksheets(iSheet).Columns(1), 0)

Option Explicit

Public Sub TestMe()

    Dim rng As Range

    For Each rng In Range("A:A")
        If IsError(rng) Then Debug.Print rng.Address
    Next rng

End Sub