先来说一下解决方案：使用 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中子函数调用时出现如下错误："ByRef Argument Type Mismatch"，(参数类型不匹配）代码如下：
 

Function MainFunc()
    Dim a, b, c As Integer
    
    a = 111
    b = 222
    
    Call AddFunc(a, b, c)
    MsgBox c
    
End Function



Sub AddFunc(a As Integer, b As Integer, Sum As Integer)
    Sum = a + b
End Sub


 

 
 
原来是变量定义在捣鬼，在C，或者C++中，多个同类型的变量定义可以像下面这样：
 
int a, b, c ;
 
 
而如果在VB中，如下定义的话：
 
Dim a, b, c As Integer
 
却只表示变量c 是Interger类型，而变量a,b都是变体型，也就是任意类型，所以当函数传值调用的时候，会报上述错误！
 
修改后的代码如下：
 
Function MainFunc()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    
    a = 111
    b = 222
    
    Call AddFunc(a, b, c)
    MsgBox c
    
End Function



Sub AddFunc(a As Integer, b As Integer, Sum As Integer)
    Sum = a + b
End Sub
重新运行，以上错误消失。

 

 
今天写了段提取字符串长度的代码，如下：
 
 
 
  
    Dim strF,freq
    Dim len
   
    freq = 200 

    strF  = Cstr(freq)

    len = Len(strF) 'error
 
 
 
 
程序总是在len = Len(strF) 这句话这里提示len 类型不匹配；本来以为len 是个变量，Len 是函数；经过各种折腾才想到 应该是VBS 是不区分大小写的；
 
 
VBS 将len 也当做了函数。所以才会报错。 把变量名len 改为num 就没问题了。
 
 
        虽然问题不大还是记录下，提醒下自己吧！
 
转载于:https://www.cnblogs.com/small-lazybee/p/10956082.html