出现运行时错误'13'：类型不匹配错误通常是因为在比较两个工作表时，数据类型不匹配导致的。以下是一个解决方法的代码示例：

Sub CompareWorksheets()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    Dim diffCount As Integer
    
    ' 设置要比较的两个工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 初始化差异计数
    diffCount = 0
    
    ' 循环比较每个单元格的值
    For Each cell1 In ws1.UsedRange
        Set cell2 = ws2.Range(cell1.Address)
        
        ' 检查单元格的数据类型是否匹配
        If VarType(cell1.Value) <> VarType(cell2.Value) Then
            ' 数据类型不匹配，标记差异的单元格
            cell1.Interior.Color = RGB(255, 0, 0) ' 将单元格背景色设置为红色
            diffCount = diffCount + 1
        End If
    Next cell1
    
    ' 显示差异计数
    MsgBox "发现 " & diffCount & " 处差异。"
    
End Sub

在上面的代码中，我们使用了VarType函数来比较两个单元格的数据类型。如果数据类型不匹配，我们将差异的单元格背景色设置为红色，并增加差异计数。最后，我们使用MsgBox函数显示差异计数。

请注意，上面的代码只是一个示例，您可能需要根据实际情况进行修改和适应。