【发布时间】：2012-09-24 22:31:23
【问题描述】：
这部分代码的最后一行出现类型不匹配错误：
Dim test As Object
Set test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2
我该如何解决？
【问题讨论】：
【发布时间】：2012-09-24 22:31:23
【问题描述】：
VBA 中没有类型层次结构，Object 用于对象实例，它不能保存原始类型。
使用Long
Dim test As long
test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2
【讨论】：
-
也可以使用字符串函数
Mid$，而不是变体Mid