类型不匹配错误（VBA）

Question

我得到类型不匹配的错误在这部分代码的最后一行：

Dim test As Object 
Set test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2 

我该如何解决呢？

Answer 1

VBA中没有类型层次结构，Object用于对象实例，它不能保存原始类型。

使用Long

Dim test As long 
test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2