Lọc số phiếu duy nhất và tìm số phiếu lớn nhất

[charactor5566]

Em chào anh/chị GPE
Anh/chị giúp em lọc số phiếu duy nhất và tìm số phiếu lớn nhất với ạ. File em ghim phía dưới. Em cảm ơn

 

[longtay1111]

Em chào anh/chị GPE
Anh/chị giúp em lọc số phiếu duy nhất và tìm số phiếu lớn nhất với ạ. File em ghim phía dưới. Em cảm ơn

Bạn thử công thức xem có đúng ko

C2=INDEX(MID($A$2:$A$19,1,SEARCH("_",$A$2:$A$19)-1),AGGREGATE(15,6,ROW($1:$20)/(MATCH(MID($A$2:$A$19,1,SEARCH("_",$A$2:$A$19)-1),MID($A$2:$A$19,1,SEARCH("_",$A$2:$A$19)-1),0)=ROW($1:$18)),ROW(A1)))

D2=AGGREGATE(14,6,--MID($A$2:$A$19,SEARCH("_",$A$2:$A$19)+1,10)/(MID($A$2:$A$19,1,SEARCH("_",$A$2:$A$19)-1)=C2),1)

Bạn xem trong file nhé

 

[VIENLUONG]

Bạn có thể tham khảo nhé!

 

[Nhattanktnn]

Em chào anh/chị GPE
Anh/chị giúp em lọc số phiếu duy nhất và tìm số phiếu lớn nhất với ạ. File em ghim phía dưới. Em cảm ơn

Công thức cho C2:

=IFERROR(TRIM(LEFT(SUBSTITUTE(INDEX($A$2:$A$19,AGGREGATE(15,6,ROW($A$1:$A$19)/(COUNTIF($C$1:C1,LEFT($A$2:$A$19,FIND("_",$A$2:$A$19)-1))=0),ROW(A1))),"_",REPT(" ",100)),100)),"")

Công thức cho D2:

=AGGREGATE(14,6,--SUBSTITUTE($A$2:$A$19,C2&"_",""),1)

 

[Thóc Sama]

Em chào anh/chị GPE
Anh/chị giúp em lọc số phiếu duy nhất và tìm số phiếu lớn nhất với ạ. File em ghim phía dưới. Em cảm ơn

Thử tham khảo cách dùng code vba xem nhé

Option Explicit
Sub GPE()
    Dim dic As Object, key, Lr&, i&, Arr(), t
    Set dic = CreateObject("Scripting.Dictionary")
    With Sheets("Sheet1")
        Lr = .Range("A" & Rows.Count).End(xlUp).Row
        Arr = .Range("A2: A" & Lr).Value
        For i = 1 To UBound(Arr)
            key = Split(Arr(i, 1), "_")(0)
            If Not dic.exists(key) Then
                dic.Add (key), Split(Arr(i, 1), "_")(1) * 1
            Else
                If Split(Arr(i, 1), "_")(1) * 1 > dic.Item(key) Then
                    dic.Item(key) = Split(Arr(i, 1), "_")(1) * 1
                End If
            End If
        Next i
        .Range("F2:G1000").ClearContents
        t = dic.Count
        With Application
            .Range("F2").Resize(t, 1).Value = .Transpose(dic.keys)
            .Range("G2").Resize(t, 1).Value = .Transpose(dic.items)
        End With
    End With
    MsgBox "Done"
    Set dic = Nothing
End Sub

 

[LmoovoenX]

Em chào anh/chị GPE
Anh/chị giúp em lọc số phiếu duy nhất và tìm số phiếu lớn nhất với ạ. File em ghim phía dưới. Em cảm ơn

Thử nhé bạn:
Lọc duy nhất:

H2=IF(H1="",LEFT(A2,FIND("_",A2)-1),INDEX(LEFT($A$2:$A$19,FIND("_",$A$2:$A$19)-1),MATCH(0,COUNTIF(H1:H$2,LEFT($A$2:$A$19,FIND("_",$A$2:$A$19)-1)),0),))

Tìm số phiếu lớn nhất:

I2=MAX(MID($A$2:$A$19,FIND("_",$A$2:$A$19)+1,5)*COUNTIF(H2,LEFT($A$2:$A$19,FIND("_",$A$2:$A$19)-1)))

 

[charactor5566]

Thực sự cảm ơn các anh/chị rất nhiều ạ. Em không nghĩ có nhiều cách hay như vậy. Dạ có cả code VBA nữa.