Sort 2 vùng chọn cùng lúc trên 1 cột

[ktsvn]

tôi có 1 file như trong hình 1,bây giờ muốn sort 1 lần( cùng 1 lúc cả vùng 1 +2) để ra được kết quả như hình 2

 

[huuthang_bd]

tôi có 1 file như trong hình 1,bây giờ muốn sort 1 lần( cùng 1 lúc cả vùng 1 +2) để ra được kết quả như hình 2

Chọn vùng 1, Sort;
Chọn vùng 2, Sort.

 

[ktsvn]

không,ý em là sort cùng 1 lúc chứ k phải làm 2 lần như vậy,cảm ơn bác

 

[Hoàng Trọng Nghĩa]

Có thể bạn viết code:
Sub Code1 ()
(sắp xếp bảng 1)
End sub

Sub Code2 ()
(sắp xếp bảng 2)
End sub

Sub Code3 ()
Code1
Code2
End sub

Nhưng mà như vậy làm chi cho rắc rối, không có nhiều chọn lựa sắp xếp. Làm như bạn huuthang_bd là đủ lắm rồi.
thân.

 

[huuthang_bd]

không,ý em là sort cùng 1 lúc chứ k phải làm 2 lần như vậy,cảm ơn bác

Sort 2 lần thì mất thêm bao nhiêu thời gian so với Sort 1 lần nhỉ. Có cần phải nghiên cứu những vấn đề như vậy không??!

 

[ktsvn]

không bác ơi,cái file của em nó có khoảng 100 vùng như thế,e trích ra 2 vùng để nhờ các bác chỉ giúp rồi áp dụng cho phần còn lại

 

[ndu96081631]

không bác ơi,cái file của em nó có khoảng 100 vùng như thế,e trích ra 2 vùng để nhờ các bác chỉ giúp rồi áp dụng cho phần còn lại

Thì dùng code mà sort ---> Nó cũng sẽ sort từng vùng.. có điều là nó làm rât nhanh, bạn chỉ việc "nhấn nút" ---> Vèo 1 cái là xong!
Đưa file lên đây sẽ có người giúp bạn (đừng có đưa hình, mất công lắm)

 

[ChanhTQ@]

Để mình giúp bạn ấy cho,

đưa file lên đây sẽ có người giúp bạn (đừng có đưa hình, mất công lắm)

Nhờ các bạn xóa giúp bài này!
​

 

[ktsvn]

cảm ơn các bác đã quan tâm,cái file của em giống y chang file GPE.rar mà bác ChanhTQ@ up lên đó,file của em đây(sort những vùng thuộc cột B)

 

[ndu96081631]

cảm ơn các bác đã quan tâm,cái file của em giống y chang file GPE.rar mà bác ChanhTQ@ up lên đó,file của em đây(sort những vùng thuộc cột B)

Bạn chắc chắn muốn sort cột B, đúng không? Vậy thì dùng code này:

Sub SortMultiRng()
  Dim i As Long
  With Range([A3], [A65536].End(xlUp)).SpecialCells(2)
    For i = 1 To .Areas.Count
      .Areas(i).Resize(, 2).Sort .Areas(i)(1, 2), 1, Header:=xlNo
    Next i
  End With
End Sub

Xem file ---> Nhấn nút 1 nhát, nó sort cho bạn toàn bộ các vùng

 

[Hoàng Trọng Nghĩa]

CẢNH BÁO, CÓ VIRUS TRONG FILE GPE ĐÓ!
"C:\GPE.rar";"Virus found XF/Sic";"Moved to Virus Vault"
"C:\GPE.rar:\Book1.xls";"Virus found XF/Sic";"Moved to Virus Vault"

 

[ktsvn]

http://www.giaiphapexcel.com/forum/member.php?u=61139chính xác là cái em cần,chân thành cảm ơn bác ndu96081631