Lọc một chuỗi dữ liệu và xếp theo dạng cột (1 người xem)

[jbaptie]

Mình muốn nhập 1 chuỗi dữ liệu vào sau đó có thể tự động lọc theo đúng thư tự và chuyển sang dạng cột, các cao thủ có cách nào thì hướng dẫn với ạ, chân thành cảm ơn.

ví dụ

11121133311111
View attachment 110033

AAABAABBBB

 

[nginh]

Mình muốn nhập 1 chuỗi dữ liệu vào sau đó có thể tự động lọc theo đúng thư tự và chuyển sang dạng cột, các cao thủ có cách nào thì hướng dẫn với ạ, chân thành cảm ơn.

ví dụ

11121133311111
View attachment 110033

AAABAABBBB
View attachment 110035

Bạn làm theo file đính kèm

 

[siwtom]

Mình muốn nhập 1 chuỗi dữ liệu vào sau đó có thể tự động lọc theo đúng thư tự và chuyển sang dạng cột, các cao thủ có cách nào thì hướng dẫn với ạ, chân thành cảm ơn.

ví dụ

11121133311111
View attachment 110033

AAABAABBBB
View attachment 110035

code Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        Application.EnableEvents = False
        SplitTextToColumns Target
        Application.EnableEvents = True
    End If
End Sub

code module1

Sub SplitTextToColumns(rng As Range)
Dim text As String, index As Long, ch As String, firstRow As Long
    text = Trim(rng.Value)
    If text <> "" Then
        r = rng.Row + 1
        firstRow = r
        c = rng.Column
        Cells(r, c) = Mid(text, 1, 1)
        For index = 2 To Len(text)
            ch = Mid(text, index, 1)
            If ch = Cells(r, c) Then
                r = r + 1
            Else
                r = firstRow
                c = c + 1
            End If
            Cells(r, c) = ch
        Next
    End If
End Sub