Excel VBA 运行时错误“13”：类型不匹配

Question

我不擅长 VBA，但突然之间，我开始收到此错误。如果您能找到错误所在，请告诉我。我很坚持这个。我确实到处搜索，发现很多类似的帖子，但解决方案似乎总是非常特定于代码。任何一位专家都将不胜感激。

这是我的代码：

Sub FindSimilar()
    Dim phrases As Range, phrase As Range
    Dim terms As Range, term As Range
    Dim matches As String
    Dim words() As String

    'ensure this has the correct sheet names for your workbook
    Set phrases = ThisWorkbook.Worksheets("Export").Range("B2:B3500")
    Set terms = ThisWorkbook.Worksheets("Topics").Range("D767:D967")

    For Each term In terms
        matches = ""
        words() = Split(term.Value)

        For i = 0 To UBound(words, 1)
        If Len(words(i)) > 2 Then
         Select Case words(i)
          Case "examplewords", "blacklist"
          Case Else
            For Each phrase In phrases
                If InStr(1, phrase.Value, words(i)) Then
                    matches = matches & phrase & "/"
                End If
            Next phrase
         End Select
        End If

我真的不知道为什么

运行时错误 13：类型不匹配

被抛出。

断点发生在以下几行：

        matches = ""

和

       Set terms = ThisWorkbook.Worksheets("Topics").Range("D773:D779")

和

       For i = 0 To UBound(words, 1)

Answer 1

运行时错误“13”：在从工作表收集的大量值循环中途类型不匹配几乎总是由于遇到工作表错误代码。

Export!B2:B3500 或 Topics!D767:D967 中是否有任何工作表错误代码（例如 #N/A、#VALUE! 等）？

我找到了一个 #N/A 单元格。它不是作为错误出现，而是作为粘贴值出现:-(它现在可以工作了！

通过这些步骤，您可以快速定位一长列值（甚至整个工作表）中的任何工作表错误。

1. 选择整列。如果要查看整个工作表，只需选择任何单个单元格。 2、点击F5然后点击特殊。
   
2. 选择公式并仅选中错误。
   
3. 点击确定。
   

工作表错误也可以通过以下一种或两种方式找到。

<range>.SpecialCells(xlCellTypeConstants, xlErrors)
<range>.SpecialCells(xlCellTypeFormulas, xlErrors)