解决VBA运行时错误13 类型不匹配问题
先说解决方法：找到出错的语句以后给里面的参数改类型，使其互相兼容。

比如：给单元格Cells()外面套个马甲 Val()
比如：给数字外面套个马甲Int()

详细的排查过程后面会慢慢讲……这是一个翻转灵异的奇怪问题。

我这边出问题的例子参见杨洋老师的书《深入浅出Excel VBA》第3章，3.2.1节，我原样敲仅VBE里面运行就报错了：
Sub Scores()
	   Dim i
	   For i = 3 To 5
	   		Cells(i, 6) = Cells(i, 3) + Cells(i, 4) + Cells(i, 5)
	   		Cells(i, 7) = Cells(i, 6) / 3 '报错就在这一行
	   Next i
 End Sub

我试了下，解决方案有二：

Val(Cells(i, 6)) 也就是给Cells(i, 6) 穿马甲
或者， In(3)—— 强调下3不是字符串是整数（）

解决归解决，但是要搞清楚之前死在哪里才行，于是我在代码里加了一句显示数据类型的代码
Sub Scores()
      Dim i
      For i = 3 To 5
      		Cells(i, 6) = Cells(i, 3) + Cells(i, 4) + Cells(i, 5)
      		MsgBox MsgBox TypeName(Cells(i, 6))
      		 '让EXCEL给我跳个弹窗看看这单元格里面到底什么数据格式
      		MsgBox MsgBox TypeName(3)
      		'再看看一个数字3还能是什么形式……
      		Cells(i, 7) = Cells(i, 6) / 3 
      Next i
End Sub

果然，Cells(i,6)的数据类型不是正常的变量或者整数，而是range



而3就是平平无奇的integer



那么问题来了，Range不能被integer除可以理解，给range套上Val()完全可以理解，variant和一切都搭嘛……但为什么给本来就是integer的3外面套上一层Int()也可以解决问题不再报错呢？？？
看到这里只是一般奇怪哈，更奇怪的是
当我把两条MsgBox代码删掉，想再看看报错效果
然后，竟然不再报错说什么 运行时错误13了
只能风中凌乱………………