筛选“不曾”出现重复的数据

migang

migang

大能们帮帮忙，在线等

migang

顶上来~~~~~~~~~~~~~~

jiangxiaoyun

这要求看不明白,,,,,,,,,,,,

migang

jiangxiaoyun 发表于 2019-12-2 20:45
这要求看不明白,,,,,,,,,,,,

就是筛选 i 列 为唯一值的行数据

feiyang8878

1. 
   
2. Sub test()
   
3.     Dim arr, brr(), i%, j%, n%, myrange As Range
   
4.     Set myrange = Sheet1.Range("A1:M" & Sheet1.Range("A1").End(xlDown).Row)
   
5.     arr = Sheet1.Range("A1:M" & Sheet1.Range("A1").End(xlDown).Row)
   
6.     ReDim brr(LBound(arr) To UBound(arr), LBound(arr, 2) To UBound(arr, 2))
   
7.     For i = 1 To UBound(arr)
   
8.         If Application.WorksheetFunction.CountIf(myrange, arr(i, 9)) = 1 Then
   
9.             n = n + 1
   
10.             For j = 1 To UBound(brr, 2)
    
11.                 brr(n, j) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.     Next
    
15.     [A28].Resize(UBound(arr), UBound(arr, 2)) = brr
    
16.    
    
17. End Sub
    

复制代码

feiyang8878

看看是想要的结果吗？？？？？

migang

feiyang8878 发表于 2019-12-2 21:02
看看是想要的结果吗？？？？？

是的，谢谢您，就是这个结果

feiyang8878

migang 发表于 2019-12-2 21:08
是的，谢谢您，就是这个结果

大概就是这个思路，解决这个问题好多方法

FOB_FN_L

feiyang8878 发表于 2019-12-2 21:02
看看是想要的结果吗？？？？？

借楼主这个问题，楼主的条件不变，添加个条件，假如  第5到第9行（具体是哪行不定），只有第五行中只有A5单元格有值 ，第6号，只有A6单元格有值，.......第9行只有A9有值 也就是说，存在空行的情况下，和象楼主这个I列有多个单元格空值的情况下呢~~~