Xin giúp đỡ về lọc mã trùng (1 người xem)

[lamchanphieu]

Xin giúp đỡ về lọc mã trùng

 

[n0thing1988]

Dùng chức năng Data/Remove Duplicates để loại những mã trùng

 

[phihndhsp]

có thể sử dụng thêm cách data- Advanced filter

 

[giangleloi]

Xin giúp đỡ về lọc mã trùng

Muốn code thì thử cái này:

Sub GPE()
 Dim sArr(), dArr(), I As Long, J As Long, K As Long
 With Sheet1    
             sArr = .Range(.[A1], .[A65000].End(xlUp)).Resize(, 1).Value
 End With    
    ReDim dArr(1 To UBound(sArr, 1), 1 To UBound(sArr, 1))   
      With CreateObject("Scripting.Dictionary")    
           For I = 1 To UBound(sArr)        
              If Not .exists(sArr(I, 1)) And sArr(I, 1) <> "" Then           
                 K = K + 1            
                 .Add sArr(I, 1), K            
                  dArr(K, 1) = sArr(I, 1)        
              End If     
          Next I     
      End With
With Sheet2
.[A1:A10000].ClearContents  
.[A1].Resize(K, 1) = dArr
End With
End Sub

 

[lamchanphieu]

được rồi đó bạn ơi,code viết quá hay, xin cảm ơn bạn nhiều nhé !!