如何解决运行时13错误types不匹配？

我运行此macros时遇到运行时13错误types不匹配。 呼吁是“如果…那么”。

代码似乎正常工作。 唯一的问题，我能想到的是一个单独的macros运行之前，使用公式命名单元格（1,8），然后复制，粘贴值发生。

Sub 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函数来捕获它。

我也build议避免在variables命名约定中使用保留或半保留关键字，如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