VBA Sắp xếp các cột dữ liệu tăng dần theo điều kiện (1 người xem)

[hongphuong1997]

Em có 5 mảng từ 1-5, mỗi mảng có 2 cột. Cột chữ tô màu đỏ là số thứ tự, Cột thứ 2 là dữ liệu chưa được sắp xếp theo quy luật
*Em muốn sắp xếp tất cả dữ liệu như bảng bên dưới Tức là sắp xếp các cột có chữ màu đen (Từ nhỏ đến lớn thì cột chữ đỏ của từng mảng sẽ sắp xếp theo.
Em xin cảm ơn.

 

[befaint]

Em có 5 mảng từ 1-5Mỗi mảng có 2 cột Cột chữ to màu đỏ là số thứ tựCột thứ 2 là dữ liệu chưa được sắp xếp theo quy luật*****Em muốn sắp xếp tất cả dữ liệu như bảng bên dưới Tức là sắp xếp các cột có chữ màu đen (Từ nhỏ đến lớn thì cột chữ đỏ của từng mảng sẽ sắp xếp theoEm xin cảm ơn.

Cho xin vài dấu chấm, vài dấu phẩy.
Đọc được khúc trên chắc đứt hơi chết luôn!

 

[hongphuong1997]

Cho xin vài dấu chấm, vài dấu phẩy.
Đọc được khúc trên chắc đứt hơi chết luôn!

Dạ em cũng đã ghi rõ trong file roài anh oi

Bài đã được tự động gộp: 24/9/18

Excel có chức năng sort mà. Chọn từng vùng dữ liệu (2 cột) mà sort.
Muốn code thì record macro.

Anh ơi, nếu Sort được cái nọ thì mất cái kia anh à, Vì vậy em mới .....

 

[VetMini]

Cho xin vài dấu chấm, vài dấu phẩy.
Đọc được khúc trên chắc đứt hơi chết luôn!

Tôi thì không đứt hơi. Nhưng tò mò đoán xem 5 cái dấu thị kia là từ nào bị kiểm duyêt. Nát óc vẫn chưa ra.
(có ai đoán được chưa?)

 

[hongphuong1997]

Tôi thì không đứt hơi. Nhưng tò mò đoán xem 5 cái dấu thị kia là từ nào bị kiểm duyêt. Nát óc vẫn chưa ra.
(có ai đoán được chưa?)

Đâu mờ, cháu ghi rõ ở trong file rùi
Đấy là cháu copy từ file ra, nên nó bị như thế đấy bác ui. Bác thông cảm cho cháu,

Bài đã được tự động gộp: 24/9/18

Chưa đọc kỹ mà đã khẳng định là được cái này mất cái kia à?

Em đã làm rùi, nhưng không được anh à
Anh làm gips cho em với anh nhé

 

[befaint]

Dạ em cũng đã ghi rõ trong file

Thế thì viết làm quái gì ở bài #1. Mà viết câu này vào đó: Đã ghi rõ trong file.

 

[hongphuong1997]

Thế thì viết làm quái gì ở bài #1. Mà viết câu này vào đó: Đã ghi rõ trong file.

Àh, để em mô tả sơ sơ khi mọi nười nhìn vào đó mà anh!

 

[befaint]

mọi nười

Là cái gì vậy nhỉ?
Mà bạn đừng có "rùi mài, roài bọ" gì, kinh chết. Lúc trích dẫn bài của bạn phải chừa ra, mệt!

 

[hongphuong1997]

Em có 5 mảng từ 1-5, mỗi mảng có 2 cột. Cột chữ tô màu đỏ là số thứ tự, Cột thứ 2 là dữ liệu chưa được sắp xếp theo quy luật
*Em muốn sắp xếp tất cả dữ liệu như bảng bên dưới Tức là sắp xếp các cột có chữ màu đen (Từ nhỏ đến lớn thì cột chữ đỏ của từng mảng sẽ sắp xếp theo.
Em xin cảm ơn.

Buồn quá, chẳng ai giúp em làm bài này

 

[Ba Tê]

Buồn quá, chẳng ai giúp em làm bài này

"Àh, để em mô tả sơ sơ khi mọi nười nhìn vào đó mà anh! "
Viết xong đọc lại 7 lần như ông bà dạy "uốn lưỡi 7 lần trước khi nói" xem có sai sót gì không.
Chỉ cần 1 chữ sai sẽ làm người khác "ngộ nhận" gây phản cảm ngay.

Public Sub sGpe()
Dim J As Long
For J = 2 To 14 Step 3
    Cells(6, J).Resize(7, 2).Sort Key1:=Cells(6, J + 1), Order1:=xlAscending
Next J
End Sub

 

[hongphuong1997]

"Àh, để em mô tả sơ sơ khi mọi nười nhìn vào đó mà anh! "
Viết xong đọc lại 7 lần như ông bà dạy "uốn lưỡi 7 lần trước khi nói" xem có sai sót gì không.
Chỉ cần 1 chữ sai sẽ làm người khác "ngộ nhận" gây phản cảm ngay.

Public Sub sGpe()
Dim J As Long
For J = 2 To 14 Step 3
    Cells(6, J).Resize(7, 2).Sort Key1:=Cells(6, J + 1), Order1:=xlAscending
Next J
End Sub

Ơ được rồi anh ơi,
Em cứ tưởng bài này rất khó sử lý, thế mà anh làm có 2 dòng được ngay anh à
Em cảm ơn rất nhiều
Khổ quá em có 680 cột như vậy
Em đang lo không biết có ai làm được không
Em cảm ơn anh nhé!

 

[hongphuong1997]

"Àh, để em mô tả sơ sơ khi mọi nười nhìn vào đó mà anh! "
Viết xong đọc lại 7 lần như ông bà dạy "uốn lưỡi 7 lần trước khi nói" xem có sai sót gì không.
Chỉ cần 1 chữ sai sẽ làm người khác "ngộ nhận" gây phản cảm ngay.

Public Sub sGpe()
Dim J As Long
For J = 2 To 14 Step 3
    Cells(6, J).Resize(7, 2).Sort Key1:=Cells(6, J + 1), Order1:=xlAscending
Next J
End Sub

Anh ơi cho em hỏi thêm chút síu nữa là
Nếu sắp xếp thêm 2 mảng bên dưới nữa thì phải sửa code như thế nào?
Em cảm ơn

 

[concogia]

Anh ơi cho em hỏi thêm chút síu nữa là
Nếu sắp xếp thêm 2 mảng bên dưới nữa thì phải sửa code như thế nào?
Em cảm ơn

Anh ơi cho em hỏi thêm chút síu nữa là
Nếu sắp xếp thêm 2 mảng bên dưới nữa thì phải sửa code như thế nào?
Em cảm ơn

Thì thêm 1 vòng lặp, nhưng cấu trúc dữ liệu phải sắp xếp đúng như trong bài nhé, nếu không thì....tèo:

Public Sub sGpe()
Dim J As Long, K As Long
    For K = 6 To 24 Step 9
        For J = 2 To 14 Step 3
            Cells(K, J).Resize(7, 2).Sort Key1:=Cells(6, J + 1), Order1:=xlAscending
        Next J
    Next K
End Sub

Thân

 

[hongphuong1997]

Thì thêm 1 vòng lặp, nhưng cấu trúc dữ liệu phải sắp xếp đúng như trong bài nhé, nếu không thì....tèo:

Public Sub sGpe()
Dim J As Long, K As Long
    For K = 6 To 24 Step 9
        For J = 2 To 14 Step 3
            Cells(K, J).Resize(7, 2).Sort Key1:=Cells(6, J + 1), Order1:=xlAscending
        Next J
    Next K
End Sub

Thân

Hi hi... dạ, cháu cảm ơn ơn bác ạ!
Cháu chúc bác Gacon vui vẻ, mạnh khỏe nhé

 

[lameco411]

Em có 5 mảng từ 1-5, mỗi mảng có 2 cột. Cột chữ tô màu đỏ là số thứ tự, Cột thứ 2 là dữ liệu chưa được sắp xếp theo quy luật
*Em muốn sắp xếp tất cả dữ liệu như bảng bên dưới Tức là sắp xếp các cột có chữ màu đen (Từ nhỏ đến lớn thì cột chữ đỏ của từng mảng sẽ sắp xếp theo.
Em xin cảm ơn.

Cái này dùng custom sort là được mà bạn:
trước tiên tô vùng cần sort:

Chọn custom sort:

chọn cột cần sort, nhớ bỏ tích cái chỗ " My data has headers"

ok. Kết quả thế này:

 

[Ba Tê]

Hi hi... dạ, cháu cảm ơn ơn bác ạ!
Cháu chúc bác Gacon vui vẻ, mạnh khỏe nhé

Tự nhiên từ concogia thành gacon ?

 

[hongphuong1997]

Cái này dùng custom sort là được mà bạn:
trước tiên tô vùng cần sort:
View attachment 204435
Chọn custom sort:
View attachment 204436
chọn cột cần sort, nhớ bỏ tích cái chỗ " My data has headers"
View attachment 204437
ok. Kết quả thế này:
View attachment 204439

Thế em có 680 cột thì làm như nào hở anh?

 

[lameco411]

Thế em có 680 cột thì làm như nào hở anh?

Ai biết đâu nè: tại đề bài bạn ghi " Em có 5 mảng mỗi mảng có 2 cột"