[已解决]如何改代码得到我希望的结果

水上漂123

如何找出不同.rar (6.79 KB, 下载次数: 6)

2013-3-17 22:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2013-3-17 23:23

好像是这样的结果？？

1. 
   
2. Sub cc()
   
3. Dim Rg As Range, S As String
   
4. Dim X As Long, Hx As Long, H As Long
   
5.   With Sheets("Sheet3")
   
6.     X = .Range("A65536").End(xlUp).Row
   
7.     For Hx = 2 To X
   
8.       S = .Cells(Hx, "A").Value
   
9.       Set Rg = .Range(.Cells(Hx + 1, "A"), .Cells(X, "A"))
   
10.       If ChaZhao(Rg, S) Then
    
11.         H = H + 1
    
12.         .Cells(H, "C").Value = S
    
13.       ElseIf Not ChaZhao(.Range("B:B"), S) Then
    
14.         H = H + 1
    
15.         .Cells(H, "C").Value = S
    
16.       End If
    
17.     Next
    
18.     X = .Range("B65536").End(xlUp).Row
    
19.     H = 0
    
20.     For Hx = 2 To X
    
21.       S = .Cells(Hx, "B").Value
    
22.       If Not ChaZhao(.Range("A:A"), S) Then
    
23.         H = H + 1
    
24.         .Cells(H, "D").Value = S
    
25.       End If
    
26.     Next
    
27.   End With
    
28. End Sub
    
29. Function ChaZhao(ByVal Rng As Range, ByVal What As Variant)
    
30. Dim C As Range
    
31.   Set C = Rng.Find(What, , , 1)
    
32.   ChaZhao = Not C Is Nothing
    
33. End Function
    

复制代码

跳转到最佳答案楼层

无聊的疯子

第一：附件中没有代码
第二：看不懂你需要的结果是依据什么条件计算来的

无聊的疯子

好像是这样的结果？？

1. 
   
2. Sub cc()
   
3. Dim Rg As Range, S As String
   
4. Dim X As Long, Hx As Long, H As Long
   
5.   With Sheets("Sheet3")
   
6.     X = .Range("A65536").End(xlUp).Row
   
7.     For Hx = 2 To X
   
8.       S = .Cells(Hx, "A").Value
   
9.       Set Rg = .Range(.Cells(Hx + 1, "A"), .Cells(X, "A"))
   
10.       If ChaZhao(Rg, S) Then
    
11.         H = H + 1
    
12.         .Cells(H, "C").Value = S
    
13.       ElseIf Not ChaZhao(.Range("B:B"), S) Then
    
14.         H = H + 1
    
15.         .Cells(H, "C").Value = S
    
16.       End If
    
17.     Next
    
18.     X = .Range("B65536").End(xlUp).Row
    
19.     H = 0
    
20.     For Hx = 2 To X
    
21.       S = .Cells(Hx, "B").Value
    
22.       If Not ChaZhao(.Range("A:A"), S) Then
    
23.         H = H + 1
    
24.         .Cells(H, "D").Value = S
    
25.       End If
    
26.     Next
    
27.   End With
    
28. End Sub
    
29. Function ChaZhao(ByVal Rng As Range, ByVal What As Variant)
    
30. Dim C As Range
    
31.   Set C = Rng.Find(What, , , 1)
    
32.   ChaZhao = Not C Is Nothing
    
33. End Function
    

复制代码

水上漂123

谢谢疯子，确实是你说的要求，我记得我把代码写进去了，结果是没有，晕啊