[已解决]代码问题指教

mhyjcm8888

工作簿1.rar (31.55 KB, 下载次数: 3)

2012-9-25 14:20 上传

点击文件名下载附件
Sub 宏A3()
Dim A As Byte, B As Byte, C As Byte
For i = 1 To Range("A46").End(xlToRight).Column  '循环 1 到 使用的最大列
For A = 25 To 34
For B = 36 To 45
If (Cells(A, i) = 4 Or Cells(A, i) = 0) And (Cells(B, i) = 1 Or Cells(B, i) = 3) Then Cells(47, i) = Cells(A, i)
If (Cells(A, i) = 4 Or Cells(A, i) = 0) And (Cells(B, i) = 1 Or Cells(B, i) = 3) Then Cells(48, i) = Cells(B, i)
Next
Next
Next
End Sub
这段代码，为什么当Cells(A, i) =0 或者 当Cells(B, i) =0 的时候，选出的结果就会出错误，连空格都选出来了！

最佳答案

月排行榜 / 总排行榜

zjdh

2012-9-25 16:15

excel 的确将空值和0 等效了，
可将        Cells(A, i) = 0
·替换成    (Cells(A, i) = 0 And Cells(A, i) <> "")

跳转到最佳答案楼层

zjdh

你不传附件，谁知道怎么回事？

mhyjcm8888

zjdh 发表于 2012-9-25 14:09
你不传附件，谁知道怎么回事？

附件已经上传

zjdh

excel 的确将空值和0 等效了，
可将        Cells(A, i) = 0
·替换成    (Cells(A, i) = 0 And Cells(A, i) <> "")