Cách lọc kí tự (1 người xem)

[thinga]

Xin chào các anh chị em có một thắc mắc mong các a/c giải đáp dùm em.

Em có 1 số kí tự thế này

aaaaaaaa (8 kí tự )
bbbbbbb ( 7 kí tự )
ccccccc ( 6 kí tự )
ddddddd ( 8 kí tự)

Các anh chị có thể chỉ em cách lọc 8 kí tự trở lên đc ko ( như ví dụ trên chỉ lấy aaaaa với ddddd , các kí tự b,c thì bỏ đi )

Cám ơn các anh chị nhiều .

 

[khongnhienttt]

bạn phải cho biết dữ liệu bạn bố trí thế nào và lấy xong rồi ghép lại hay xóa không lấy các dòng b,c

 

[Hai Lúa Miền Tây]

Xin chào các anh chị em có một thắc mắc mong các a/c giải đáp dùm em.

Em có 1 số kí tự thế này

aaaaaaaa (8 kí tự )
bbbbbbb ( 7 kí tự )
ccccccc ( 6 kí tự )
ddddddd ( 8 kí tự)

Các anh chị có thể chỉ em cách lọc 8 kí tự trở lên đc ko ( như ví dụ trên chỉ lấy aaaaa với ddddd , các kí tự b,c thì bỏ đi )

Cám ơn các anh chị nhiều .

Dùng hàm If kết hợp Len thử đi bạn.

 

[phulien1902]

Xin chào các anh chị em có một thắc mắc mong các a/c giải đáp dùm em.

Em có 1 số kí tự thế này

aaaaaaaa (8 kí tự )
bbbbbbb ( 7 kí tự )
ccccccc ( 6 kí tự )
ddddddd ( 8 kí tự)

Các anh chị có thể chỉ em cách lọc 8 kí tự trở lên đc ko ( như ví dụ trên chỉ lấy aaaaa với ddddd , các kí tự b,c thì bỏ đi )

Cám ơn các anh chị nhiều .

Giả sử dữ liệu của bạn nằm trong cột A, bắt đầu từ Cell A1, thì dùng
- Công thức:

B1=IF(LEN(A1)>=8,A1,"")

- Code :

Sub abc()
    Dim i As Long, LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        If Len(Range("A" & i)) < 8 Then
            Range("A" & i).EntireRow.Delete
        End If
    Next i
End Sub