Private Sub CommandButton1_Click()
Dim Row_dn1, i, j, s As Integer
Row_dn1 = Sheet8.Range("A65536").End(xlUp).Row
For i = 6 To Row_dn1
For j = 10 To 14
If Sheet8.Cells(j, i) <> 0 Then 这一句类型不匹配
Sheet8.Cells(21, 5) = Sheet8.Cells(j, i)
End If
Next j
Next i
End Sub
VBA 错误13 类型不匹配
答案:2 悬赏:80 手机版
解决时间 2021-01-26 01:06
- 提问者网友：温柔港
- 2021-01-25 03:23
最佳答案
- 五星知识达人网友：大漠
- 2021-01-25 04:29
先定义一个变量假设为k，然后把If Sheet8.Cells(j, i) <> 0 Then 这句改成：
k=sheet8.cells(j,i)-0
if k<>0 then
k=sheet8.cells(j,i)-0
if k<>0 then
全部回答
- 1楼网友：慢性怪人
- 2021-01-25 05:11
msgbox "计算结果为" & iy & chr(10) & chr(13) - "结果放在工作表中." 改成 msgbox "计算结果为" & iy & chr(10) & chr(13), , "结果放在工作表中。"
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯