解决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了
 
只能风中凌乱………………

先来说一下解决方案：使用 CurrentRegion.Value 即可。
 
--------
 
今天需要在 Excel 里放一个小程序，于是在网上边搜 VBA 边写程序。
 
其中一步要获取“单元格所在列的最后一行的行数”，网上给了很多方法，其中一个是用求上限函数：Ubound(数组，位置)
 
按照文章的方法，我可以写：
 
rowMax = UBound(Worksheets(1).Range("b2").CurrentRegion, 1)
 
但是运行的时候系统提示：
 
 
类型不匹配？
 
于是我想调一下监视窗口，结果点了半天屏幕没反应……后来才发现是在窗口的最下面的那一小条，拉起来……（感觉好傻哈哈）
 
经过查询发现，如果只写到“CurrentRegion”，那么类型是variant/object/range，但是如果后面再写上".value"的话，类型则是variant/variant(1 to 40, 1 to 4)，就解决了。仔细查了一下函数里的内容，发现竟然没有 value 属性，但是有 value2，而且在后面写“.value2”也是可以的。Hmm, interesting...
 
我用的版本是买电脑送的Office 2019 家庭学生版
 

昨天领导开会，谈论关于运营支撑系统的报表数据处理的需求问题，也就是把一张excel表中的数据复制到另外一张excel表中，人工也可以操作，为了解放这份劳动力，运营支撑部门的领导要求用程序来实现这个功能。



 会议期间领导提出可以使用VBA来实现，而领导对VBA也是了解不多，而Ricki则是一点具体的概念也没有，只听说过VB，呵呵！领导说了，这份功能由他来实现，而且必须当天内实现从一张表中取数据并复制到另外一张表中，并保存的。



 说实在，听后压力蛮大，不过领导也把他所知道的如何在excel中录制宏、执行宏、生成启动宏的工作薄一一的告诉了Ricki，听后感觉也真如领导说的那样，“so easy”，呵呵，天底下的领导都是这样的！



 话说了这么多，还是切入正题吧！



 因为没有使用过VBA，录制过程中，虽然代码是自动产生的，但也要做相应的修改。如当前需要“广州”炫铃的信息费数据，那么到另外一张表中，必须去查找“广州”这个地市在哪行，并定位到该地市的信息费在哪行哪列。



 由于有多个地市，所以必须遍历比较，使用了for和if。如：

 For Row = 9 To 29 Step 1

 If Range("B" + Row).Value = "广州" Then

 Range("AH" + Row).Select

 Exit For

 End If

 Next Row



 执行的时候，在Range("B" + Row).Value报类型不匹配。后在网上查找，发现不能用+号（虽然帮助文档说+号是连接运算符），数字和字符串连接的话只能使用&，改后如下：

 For Row = 9 To 29 Step 1

 If Range("B" & Row).Value = "广州" Then

 Range("AH" & Row).Select

 Exit For

 End If

 Next Row 



 使用+号，会包“B”转为数字，然后相加。这跟Javascript不一样，如：

 <script>

 var i = 1;

 var j = "AH";

 document.write(j+i);

 document.write("<br/>");

 document.write(i+j);

 </script>

 结果：AH1

 1AH



 今天看到一篇很搞笑的文章，在此也跟大家分享一下《[url=http://hongfanshu.blogbus.com/logs/78875298.html]令人喷饭的程序注释[/url]》

VBA：SumProduct函数在使用过程中，发现通过*的形式是无法添加条件的，有一个非常简单的处理方式：就是把数据单独相乘作为一列，然后用Sumifs函数直接取就好了。