Cân giúp tìm và liệt kê các giá trị khác nhau trong khối (1 người xem)

[kieuhunglongbinh]

Chào các bạn !
minh xin hỏi các bạn 1 vấn đề ! mong các bạn giúp !
giả sử trong khối B2:H20 là các giá trị số được nhập vào từ bàn phím. Làm thế nào để liệt kê tất cả các giá trị khác nhau trong khối đó ra dòng 22 {mỗi giá trị vào một ô, các giá trị được xếp từ nhỏ -> lớn theo chiều trái -> phải}

Bạn nào biết xin chỉ giúp mình !( càng chi tiết càng tốt)
Xin cảm ơn !

Bác nào giúp mình với !
Nếu không sắp xếp theo thứ tự được thì liệt kê ra cũng được !

 

[kieuhunglongbinh]

hôm nay 29/01/2012. Sau 20 ngày đăng bài Sao vẫn không có bạn nào giúp mình vậy?
Các bác pro ơi ! giúp tôi với !
bác PhanTuHuong ơi ! giúp em với !

 

[Ba Tê]

hôm nay 29/01/2012. Sau 20 ngày đăng bài Sao vẫn không có bạn nào giúp mình vậy?
Các bác pro ơi ! giúp tôi với !
bác PhanTuHuong ơi ! giúp em với !

Bạn hỏi chung chung khó hiểu sao biết đường trả lời.

giả sử trong khối B2:H20 là các giá trị số được nhập vào từ bàn phím. Làm thế nào để liệt kê tất cả các giá trị khác nhau trong khối đó ra dòng 22 {mỗi giá trị vào một ô, các giá trị được xếp từ nhỏ -> lớn theo chiều trái -> phải}

Bạn đưa file có đủ "giả sử" của bạn và kết quả muốn có như thế nào vào file đi.
Chỉ cần nhập thủ công kết quả và nói rõ kết quả đó lấy từ đâu mà có!
Bảo đảm trong vài giờ là có bài trả lời cho bạn.

 

[SA_DQ]

Thật là sơ sót của năm cũ, nhỉ?

Bạn chạy macro sau:

Option Explicit
Sub Macro1()
 Dim Cls As Range
 
1 'Them Cot Mói Tai "A:A":'
 Columns("A:A").Select
 Selection.Insert Shift:=xlToRight
2 'Them Tieu Dè Cot Tai Cot Mói Này:'
 Range("A1").FormulaR1C1 = "GPE"
3 'Tao Vòng Lap Chép Du Lieu Tù Vùng Só Lieu Dén Cot "A":'
 For Each Cls In [c2].CurrentRegion
   With [A300].End(xlUp).Offset(1)
      .Value = Cls.Value
   End With
 Next Cls
4 'Xép Cot "A:A" này:'
 Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1
5 'Copy Cot "A:A" Dén Noi Càn Thiét:'
 Set Cls = Range([A2], [A2].End(xlDown)):       Cls.Copy
 Range("B22").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
6 'Xóa Cot "A:A" Di:'
    Columns("A:A").Select
    Range("A4").Activate
    Selection.Delete Shift:=xlToLeft
End Sub