不知道这里哪里错了，高手指点

denxxx · 发表于 2023-9-18 22:49

本帖最后由 denxxx 于 2023-9-18 22:54 编辑

For z = 1 To UBound(Finalarr) + 1
For s = 1 To Cells(1048576, "I").End(3).Row
If Cells(s, "I") Like "*" & Finalarr(z) & "*" Then zong = zong + Cells(s, "K").Value
Next
Next

Then zong = zong + Cells(s, "K").Value 这一部分报错，谢谢

excel玉米 · 发表于 2023-9-19 07:44

目前来看，没有什么问题。如果报错类型是类型不符，检查前面的 dim zong是不是定义为别的类型了

3190496160 · 发表于 2023-9-19 10:26

zong = zong + Cells(s, "K").Value
这是累计计算，如果Cells(s, "K").Value不是数值，而是字符串或者是公式产生的错误值符号，肯定就会报类型不匹配的错误的

		自动登录	找回密码
密码			免费注册