thanhlp2007
Thành viên thường trực




- Tham gia
- 24/10/07
- Bài viết
- 201
- Được thích
- 11
Function Unique(Vung As Range, STT As Long) As String
Dim i As Long, K As Long
Dim Temp As String
For i = 1 To Vung.Cells.Count
If Vung(i) <> "" Then
If i = Application.WorksheetFunction.Match(Vung(i), Vung, 0) Then
K = K + 1
End If
If K = STT Then Temp = Vung(i): Exit For
End If
Next i
Unique = Temp
End Function
Bạn tham khảo.Chào cả nhà,
Mình có 1 VD nhỏ.
Mình muốn lọc những mã giống nhau thành 1 mã duy nhất như file đính kèm thì dùng hàm gì đơn giản để lọc.
Vui lòng chỉ giáo.
Cảm ơn
Khi tôi mới biết vài hàm đơn giản của Excel, tôi dùng cột phụ rồi Vlookup() thế này.Chào cả nhà,
Mình có 1 VD nhỏ.
Mình muốn lọc những mã giống nhau thành 1 mã duy nhất như file đính kèm thì dùng hàm gì đơn giản để lọc.
Vui lòng chỉ giáo.
Cảm ơn
Có cách này đơn giản hơn bạn ạ: Remove Duplicate.Bạn tham khảo.