excel - 类型不匹配错误 (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