如何修复运行时13错误类型不匹配？

Question

运行此宏时，出现运行时13错误类型不匹配的情况。 标注为“如果...则”。

该代码似乎正常工作。 我能想到的唯一问题是，在使用公式命名cells（1,8）的一个宏之前，运行了一个单独的宏，然后出现复制，粘贴值。

子NewWb（）

Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Add

For Each Worksheet In wb1.Worksheets
    **If Worksheet.Cells(1, 8).Value = "PI Fin Ops" Then**
        Worksheet.Move After:=wb2.Sheets(wb2.Sheets.Count)
    End If
Next Worksheet

结束子

任何帮助表示赞赏！

Answer 1

如果单元格包含错误值，则通常会引发该错误。 您可以使用IsError函数轻松捕获该IsError 。

我还建议避免在变量命名约定（例如Worksheet使用保留或半保留关键字。

Dim WS as Worksheet
Dim wb1 as Workbook
Dim wb2 as Workbook

Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Add

For Each WS In wb1.Worksheets
    If Not IsError(WS.Cells(1,8).Value Then
        If WS.Cells(1, 8).Value = "PI Fin Ops" Then
            WS.Move After:=wb2.Sheets(wb2.Sheets.Count)
        End If
    End If

Next WS