Nhờ anh chị giúp đỡ về món sắp xếp dữ liệu (2 người xem)

[wyhu]

[TABLE="width: 64"]
[TR]
[TD="width: 64, align: left"]Em mới học Excel nên còn nhiều bỡ ngỡ, mong các anh chị giúp đỡ. Em cảm ơn![/TD]
[/TR]
[/TABLE]

 

[sebastiantran]

Bạn có thể gộp 2 cột với nhau rồi dùng chức năng remove duplicates mà ^^

 

[wyhu]

Vấn đề của em có rất nhiều sheet, và mỗi sheet có rất nhiều nhóm như thế nên em mới cần cồng thức ạ, bấm chuột thì không biết phải thao tác bao nhiêu lần. Híc

 

[doatmenhhon]

Bạn xem file này đúng ý bạn chưa? Ấn vào nút run để thử nghiệm

 

[doatmenhhon]

Híc tôi gửi nhầm bài nhờ mod xóa luôn hai bài này

 

[HyperLink]

Em mới học Excel nên còn nhiều bỡ ngỡ, mong các anh chị giúp đỡ. Em cảm ơn!

bạn xem file có đúng ý ko nhé ! (mình chưa biết cách loại bỏ số 0)

 

[phulien1902]

[TABLE="width: 64"]
[TR]
[TD="width: 64, align: left"]Em mới học Excel nên còn nhiều bỡ ngỡ, mong các anh chị giúp đỡ. Em cảm ơn![/TD]
[/TR]
[/TABLE]

Đầu tiên bạn xóa mấy số 0 ở cột A và B đi( Xóa không phải ẩn đâu nhé)
Sau đó bạn cho chạy Code dưới đây

Sub wyhu()
    Dim rng As Range
    Dim V As Range
    Dim R As Range
    Set dt = CreateObject("Scripting.Dictionary")
    Set V = Application.Range("A1:B100")
    Set R = Range("c1")
    For Each rng In V
        If rng.Value <> "" Then
            dt(rng.Value) = ""
        End If
    Next
    R.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

 

[wyhu]

Đầu tiên bạn xóa mấy số 0 ở cột A và B đi( Xóa không phải ẩn đâu nhé)
Sau đó bạn cho chạy Code dưới đây

Sub wyhu()
    Dim rng As Range
    Dim V As Range
    Dim R As Range
    Set dt = CreateObject("Scripting.Dictionary")
    Set V = Application.Range("A1:B100")
    Set R = Range("c1")
    For Each rng In V
        If rng.Value <> "" Then
            dt(rng.Value) = ""
        End If
    Next
    R.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

- Có File để bạn tham khảo

Cảm ơn anh, nhưng vẫn phải dùng code ạ? Anh còn cách nào không dùng code không ạ?

 

[wyhu]

bạn xem file có đúng ý ko nhé ! (mình chưa biết cách loại bỏ số 0)

Cảm ơn anh! Vẫn chưa đc anh ạ. Sau một ngày mò mẫm thì để đơn giản thế này, em nhờ các anh chị sắp xếp (bằng hàm, không dùng code) giúp em: những giá trị khác 0 thì đứng lên hàng đầu, số 0 đẩy về dưới cột, minh họa như sau:
[TABLE="width: 500"]
[TR]
[TD]0[/TD]
[TD]a[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]0[/TD]
[TD]x[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]a[/TD]
[TD]c[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]x[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]c[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]0[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[/TABLE]

Xin cảm ơn mọi người!

 

[phulien1902]

Cảm ơn hpkhuong !

Không biết giải thích thế nào, vì mình còn đang "mò mẫm trên con đường tối" để mong tìm ra ánh sáng, tìm ra chân lý mà bạn. Mình hy vọng học hỏi được nhiều điều từ các thành viên.

 

[doveandrose]

Cảm ơn hpkhuong !

Không biết giải thích thế nào, vì mình còn đang "mò mẫm trên con đường tối" để mong tìm ra ánh sáng, tìm ra chân lý mà bạn. Mình hy vọng học hỏi được nhiều điều từ các thành viên.

uhm bạn nên học hỏi từ hpKhuong sẽ mau tìm đến chân lý lắm
bây giờ bạn nên hỏi hpKhuong là :
hpKhuong ơi giờ muốn xếp thứ tự cho dictionary key mà không dùng Sort trên range thì dùng cách nào ?

 

[ndu96081631]

Mình xem topic này mấy lần mà vẫn không hiểu câu hỏi ở bài 1 và trả lời ở bài 4 liên quan gì nhau nhỉ?

 

[Let'GâuGâu]

Cảm ơn anh, nhưng vẫn phải dùng code ạ? Anh còn cách nào không dùng code không ạ?

cthức thì cũng có đó
1- thứ 1 bạn phải dùng cthuc mảng để lọc nó ra một cột trước
2- rồi lại dùng cthuc để sắp xếp nó lại theo ABC
cái nào cũng xài cthuc mảng,
góp bạn một file ko xài cthuc, ko xài code
sau khi tải về, bạn hãy lưu file này lại==>vào lớp Data==>connection==>properties==>Definition==>Connection file==>chọn file mà bạn vừa lưu lại
khi nhập dữ liệu mới thì nhấp vào Refesh all