minhang2007
Thành viên mới
- Tham gia
- 10/10/07
- Bài viết
- 16
- Được thích
- 2
Option Explicit [b]
Sub SepTheoChuan()[/b]
Dim Rng As Range
Set Rng = Range("A5:B69")
SortRng Rng, Cells(5, 2)
SortRng Range("D5:F69"), Cells(5, 5)
Rng.Copy Destination:=Range("F5")
SortRng Rng, Cells(5, 1)
SortRng Range("D5:F69"), Cells(5, 4)
Set Rng = Nothing
Range("G:G").ClearContents [COLOR="Blue"] 'Mới thêm![/COLOR][b]
End Sub[/b]
[b]
Sub SortRng(Rng As Range, Rng0 As Range)[/b]
Rng.Sort Key1:=Rng0, Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
[b]End Sub[/b]
Mình thấy Vụ1' không có các kí tự 'TỈNH', tưởng bở, nhưng khi Sort thì không theo trật tư của bản gốc (xếp theo tên tỉnh!); khổ không cơ chứphamnhukhang đã viết:Phù....Mệt rồi...danh sách địa phương bây giờ lại lòi ra chữ "Tỉnh" đứng đằng trước, chỗ thì "T.Quang", chỗ thì "Tuyên Quang", chỗ thì "Tỉnh Tuyên Quang", Chắc phải làm cho mỗi tỉnh một cái mã quy chuẩn thôi. Bác Tuấn và bác SA_DQ ơi ...đâm lao phải theo lao thôi. hi hi.
---------------------------------------minhang2007 đã viết:Em nhờ các anh chị chỉ giúp em cách sắp xếp danh sách các đơn vị (ở bảng số 2) theo đúng như danh sách gôc (danh sách ở bảng số 1). Câu hỏi em nhờ anh chị giúp em gửi kèm theo File.
Em cảm ơn anh chị nhiều!
minhang2007 đã viết:Các anh chị ơi, không có cách nào để giúp em được à?
Em nghĩ hướng làm như thế này có được không nhé:
- Trước hết sẽ dùng lệnh để tách tên tỉnh ra như kiểu tách họ tên
- sau đó dùng lệnh để sắp xếp danh sách các tỉnh theo file gốc.
Em chỉ nghĩ cách làm như thế, nhưng không biết làm cụ thể, các anh chị có thể giúp em được không.