作者：乔山办公网日期：
返回目录：excel表格制作
从代码看是没问题的，检查单元格数据
类型不匹配，官方的解释百可以参考百度百科“类型不匹配”，这里我通俗的说一下
这个主要看你的代码写的是度什么，一般来说导致这种问题出现的原因是你做了一个赋值知、匹配道。而该变量的声明类型与赋值或者匹配类型不符合。
比如 ，如下代码
sub 举例（）
Dim i As Integer
i = "这样就会提示类型不专匹配"
end sub
运行这个代码就会出现“类型不匹配”的错误属，因为已经声明了i为整数， 后面又对它进行赋值文字。
Sub ExportLog(ByVal targetSheet As Object)
MsgBox "OK"
End Sub
Sub aa()
Dim ws As Worksheet
Set ws = Sheets("问题跟踪")
Call ExportLog(ws)
End Sub
的确奇了怪，在zd第一次运行专时是出错提示不匹配，后来改了一下可以运行了，然后属再改回原来的也可以通过了。。。妖怪了
Sub 生成新表来源()
Dim i As Long, n As Long
Dim x As Long
For n = 1 To Sheet1.Range("b1").End(xlToRight).Column
For i = 2 To Sheet1.Range("a65536").End(xlUp).Row
If not(IsError(Sheet1.Range("f" & i))) Then ' <> "#N/A" Then '此行提示类百型不匹度配，用问not like 也不行答
x = x + 1
Sheet3.Cells(x + 1, n) = Sheet1.Cells(i, n)
End If
Next i
x = 0
Next n
End Sub