[已解决]求教如何引用符合多条件的单元格

H_j

求高手赐教，谢谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-14 14:36

1. Sub aaa()
   
2. Dim arr, i&, brr, d As Object, r&, s$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets(1).[a1].CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 2)
   
6. For i = 2 To UBound(arr)
   
7.   If arr(i, 6) <> "" Then
   
8.     s = arr(i, 2) & "," & arr(i, 6)
   
9.     If Not d.exists(s) Then
   
10.       d(s) = ""
    
11.       r = r + 1
    
12.       brr(r, 1) = arr(i, 2)
    
13.       brr(r, 2) = arr(i, 6)
    
14.     End If
    
15.   End If
    
16. Next i
    
17. [a2].Resize(r, 2) = brr
    
18. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, brr, d As Object, r&, s$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets(1).[a1].CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 2)
   
6. For i = 2 To UBound(arr)
   
7.   If arr(i, 6) <> "" Then
   
8.     s = arr(i, 2) & "," & arr(i, 6)
   
9.     If Not d.exists(s) Then
   
10.       d(s) = ""
    
11.       r = r + 1
    
12.       brr(r, 1) = arr(i, 2)
    
13.       brr(r, 2) = arr(i, 6)
    
14.     End If
    
15.   End If
    
16. Next i
    
17. [a2].Resize(r, 2) = brr
    
18. End Sub

复制代码