[已解决]代码错在哪？

empty7401

找出B与D有差异数据.rar (13.63 KB, 下载次数: 3)

2013-8-30 23:53 上传

点击文件名下载附件
Sub 找差异()
Sheets("1").Select
Dim A As Double, b As Double
n = Range("b2:b" & [b65536].End(3).Row)
m = Range("D2:D" & [D65536].End(3).Row)
For i = 1 To n
A = Cells(i, 2).Value
For i1 = 1 To m
b = Cells(i1, 4).Value

  If A = b Then
    Cells(i, 2).ClearContents
    Cells(i1, 4).ClearContents
    Exit For
    End If
Next i1
Next i

End Sub
实现目的，一旦在D列中找到与B相同数据，并清除两个单元格的相同数据，同时停止在D中查找，再找下一个B列数据。最后余下的数据即B与D存在差异的数据。（原B和D列求和有差异，现余下的数据就是差异原因）。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-8-31 09:10

找一个末尾行号何必兜圈子？简单一点。
Sub 找差异()
    Sheets("1").Select
    For i = 2 To Range("B65536").End(3).Row-1
        For i1 = 2 To Range("D65536").End(3).Row-1
            If Cells(i, 2).Value = Cells(i1, 4).Value Then
                Cells(i, 2).ClearContents
                Cells(i1, 4).ClearContents
                Exit For
            End If
        Next i1
    Next i
End Sub

跳转到最佳答案楼层

1032446692

n = Range("b2:b" & [b65536].End(3).Row)
你这个得到的n和下面的m是一个数组，你却当作一个整型数据   当然错了

1032446692

1. 
   
2. Sub 找差异()
   
3. Sheets("sheet1").Select
   
4. Dim A As Double, b As Double
   
5. n = Range("b2:b" & [b65536].End(3).Row)
   
6. m = Range("D2:D" & [D65536].End(3).Row)
   
7. For i = 2 To UBound(n)
   
8. A = Cells(i, 2).Value
   
9. For i1 = 2 To UBound(m)
   
10. b = Cells(i1, 4).Value
    
11. 
    
12.   If A = b Then
    
13.     Cells(i, 2).ClearContents
    
14.     Cells(i1, 4).ClearContents
    
15.     Exit For
    
16.     End If
    
17. Next i1
    
18. Next i
    
19. 
    
20. End Sub

复制代码

没仔细分析  只是把你的代码修改的可以执行了   你看看是不是你要的结果

我心飞翔410

最好再把i ， i1 ，m，n 也定义哈

zjdh

找一个末尾行号何必兜圈子？简单一点。
Sub 找差异()
    Sheets("1").Select
    For i = 2 To Range("B65536").End(3).Row-1
        For i1 = 2 To Range("D65536").End(3).Row-1
            If Cells(i, 2).Value = Cells(i1, 4).Value Then
                Cells(i, 2).ClearContents
                Cells(i1, 4).ClearContents
                Exit For
            End If
        Next i1
    Next i
End Sub

empty7401

1032446692 发表于 2013-8-31 00:06
没仔细分析  只是把你的代码修改的可以执行了   你看看是不是你要的结果

谢谢，是我想要的结果。

empty7401

zjdh 发表于 2013-8-31 09:10
找一个末尾行号何必兜圈子？简单一点。
Sub 找差异()
    Sheets("1").Select

感谢帮助，你的代码比我的精简多了，看着也舒服。谢谢！