溢出！类型不匹配1 13的错误

XIHAUA · 发表于 2023-2-22 14:13

本帖最后由 XIHAUA 于 2023-2-22 15:11 编辑

大师们帮我处理分析一下谢谢

实在想不明白哪里出问题了，删除一半的数据又能正常运行了，不删除一直有错误提示溢出类型不匹配。。。
刚学的小萌新急需您的解答。。。

tanglf188 · 发表于 2023-2-22 14:44

本帖最后由 tanglf188 于 2023-2-22 14:48 编辑

有字母，加条件判断就好了

Dim k
k = 2
Do While Cells(k, 1) <> ""
If IsNumeric(Cells(k, 3).Value) And IsNumeric(Cells(k, 4).Value) And IsNumeric(Cells(k, 5).Value) And IsNumeric(Cells(k, 6).Value) Then
Cells(k, 6) = Cells(k, 6) + Cells(k, 3) - Cells(k, 4) - Cells(k, 5)
End If
k = k + 1
Loop

复制代码

mmwwdd · 发表于 2023-2-22 14:51

程序在那呢,没看到呀

XIHAUA · 发表于 2023-2-22 14:59

本帖最后由 XIHAUA 于 2023-2-22 15:03 编辑

tanglf188 发表于 2023-2-22 14:44
有字母，加条件判断就好了

谢谢您的解答，非常感谢！！！

XIHAUA · 发表于 2023-2-23 00:07

tanglf188 发表于 2023-2-22 14:44
有字母，加条件判断就好了

https://t.wss.ink/f/akf42m4zn2b
复制链接到浏览器打开
我刚看到师傅，以上就是附件

消息发不了了说是超过24小时发送的限制了。

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

[求助] 溢出！类型不匹配1 13的错误