Xin code hoặc cách nào : Để lọc và sắp xếp những ô tô màu và ko tô màu

[siv2]

Mình có 1 vùng dữ liệu có những ô tô màu và ko tô màu ( lúc tô thế này lúc tô thế kia ko cố định) , mình cần lọc và sắp xếp theo thứ tự từ nhỏ đến lớn những ô trong vùng dữ liệu đó thành 2 cột , 1 cột là những ô có tô màu , và 1 cột là những ô ko tô màu. Cụ thể như file dưới đây , mong mọi người giúp đỡ!

 

[CHAOQUAY]

Mình có 1 vùng dữ liệu có những ô tô màu và ko tô màu ( lúc tô thế này lúc tô thế kia ko cố định) , mình cần lọc và sắp xếp theo thứ tự từ nhỏ đến lớn những ô trong vùng dữ liệu đó thành 2 cột , 1 cột là những ô có tô màu , và 1 cột là những ô ko tô màu. Cụ thể như file dưới đây , mong mọi người giúp đỡ!

Sub Sort()
Dim Arr(1 To 100, 1 To 2)
Dim i, j, k
For Each k In Sheet1.Range("A4").CurrentRegion
    If k.Interior.Pattern = 1 Then
        Arr(k + 1, 1) = k
    Else
        Arr(k + 1, 2) = k
    End If
Next k
For k = 1 To 100
    If Arr(k, 1) <> "" Then
        i = i + 1
        Arr(i, 1) = Arr(k, 1)
    End If
    If Arr(k, 2) <> "" Then
        j = j + 1
        Arr(j, 2) = Arr(k, 2)
    End If
Next k
If j > i Then i = j
With Sheet1
    .Range("L6").Resize(100, 2).Clear
    .Range("L6").Resize(i, 2) = Arr
    .Range("L6").Resize(i, 2).Borders.LineStyle = 1
End With
End Sub

 

[siv2]

Sub Sort()
Dim Arr(1 To 100, 1 To 2)
Dim i, j, k
For Each k In Sheet1.Range("A4").CurrentRegion
    If k.Interior.Pattern = 1 Then
        Arr(k + 1, 1) = k
    Else
        Arr(k + 1, 2) = k
    End If
Next k
For k = 1 To 100
    If Arr(k, 1) <> "" Then
        i = i + 1
        Arr(i, 1) = Arr(k, 1)
    End If
    If Arr(k, 2) <> "" Then
        j = j + 1
        Arr(j, 2) = Arr(k, 2)
    End If
Next k
If j > i Then i = j
With Sheet1
    .Range("L6").Resize(100, 2).Clear
    .Range("L6").Resize(i, 2) = Arr
    .Range("L6").Resize(i, 2).Borders.LineStyle = 1
End With
End Sub

Cụ thể làm ntn bạn nhỉ , xin hướng dẫn cụ thể do cái này mình hơi kém , thank bạn!

 

[CHAOQUAY]

Cụ thể làm ntn bạn nhỉ , xin hướng dẫn cụ thể do cái này mình hơi kém , thank bạn!

Thử thay đổi số liệu & bấm vào chỗ màu xanh

 

[siv2]

Thử thay đổi số liệu & bấm vào chỗ màu xanh

Lỗi ko dc bạn ạ, mà nếu code ở trên mình thay đổi màu các ô thì ko còn chuẩn nữa

 

[CHAOQUAY]

Lỗi ko dc bạn ạ, mà nếu code ở trên mình thay đổi màu các ô thì ko còn chuẩn nữa

Vậy là có trường hợp tất cả không có màu hả bạn

 

[siv2]

Vậy là có trường hợp tất cả không có màu hả bạn

Nếu tô màu bấm tay thì dc nhưng nếu copy cả mảng ở chỗ khác vào thì ko dc bạn xem giúp mình

 

[CHAOQUAY]

Nếu tô màu bấm tay thì dc nhưng nếu copy cả mảng ở chỗ khác vào thì ko dc bạn xem giúp mình

Bạn đưa file không được lên để tính