Lọc dữ liệu dựa vào ký tự cuối (1 người xem)

[phanphianh]

Mọi người có thể giúp mình lọc các dữ liệu ở cột Name có chứa ký tự "3p;" từ bên phải sang được không ạ? Xin cảm ơn mọi người

 

[befaint]

Mọi người có thể giúp mình lọc các dữ liệu ở cột Name có chứa ký tự "3p;" từ bên phải sang được không ạ? Xin cảm ơn mọi người

Auto Filter cột B.

 

[bebo021999]

Có 2 cách :
C1: Dùng Filter: Text Filter: End with: 3p;
Sau đó filter
C2: Dùng cột D để filter chữ OK
Tại D2 copy xuống
=IF(RIGHT(B2,3)="3p;","OK","")
Filter Cột D theo điều kiện OK

 

[Hoang2013]

Sub Loc()
 Dim Arr()
 Dim J As Long, W As Long, Dm As Byte

 Arr() = [B2].CurrentRegion.Offset(1).Value
 ReDim dArr(1 To UBound(Arr()), 1 To 3)
 [M1:O1].Value = [A1:C1].Value
 [M2].CurrentRegion.Offset(1).ClearContents
 For J = 1 To UBound(Arr())
    If Right(Arr(J, 2), 3) = "3p;" Then
        W = W + 1
        For Dm = 1 To 3
            dArr(W, Dm) = Arr(J, Dm)
        Next Dm
    End If
 Next J
 If W Then
    [M2].Resize(W, 3).Value = dArr()
 End If
End Sub