Các anh chị xem hình minh họa nhé!
Bạn xem file này thử nhen có đúng không
Tôi thấy tác giả muốn như thế này, hổng biết đúng không.
Mình muốn dò tìm ở cột B những giá trị không trùng mà
Hic! Bạn đưa kết quả mẫu đi, nhìn hình ở bài #1 "Hơi bị hổng hiểu".
Ba Tê chỉ là "HƠI BỊ".. còn tôi thì.. ngu quá, thậm chí là HOÀN TOÀN KHÔNG HIỂU TÍ GÌ luôn
mình add file đính kèm theo ( chỉ là quy đổi giá trị B1=3;4;10;11;12 )
Như vậy thì kết quả của bài #4 bên trên là đúng rồi, chỉ khác là áp dụng: file của bạn bắt đầu từ dòng 6, còn file của bài #4 bắt đầu từ dòng 2.
Thêm một giá trị nữa thôi mà.Mình muốn cho kết quả ở B1 kèm theo chữ B1=3C;4D;10B;11C;12D
Public Function GPE(Vung As Range) As String
Dim Str As String, Clls As Range
For Each Clls In Vung
If Clls.Value <> Clls.Offset(, 1).Value Then Str = Str & Clls.Row - 5 & Clls.Value & ";"
Next
GPE = Left(Str, Len(Str) - 1)
End FunctionGiờ mới hiểu.
Function GPE(ByVal Rng1 As Range, ByVal Rng2 As Range) As String
Dim i As Long, n As Long, Arr()
On Error Resume Next
For i = 1 To Rng1.Count
If Rng1(i).Value <> Rng2(i).Value Then
ReDim Preserve Arr(n)
Arr(n) = i & UCase(Rng1(i).Value)
n = n + 1
End If
Next
GPE = Join(Arr, ", ")
End FunctionXem file này.
