Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 5,063
- Được thích
- 4,753
Mong muốn cuối cùng của bạn là như thế nào nhỉ.không thể để hiển thị kiểu 4 ngày , 4 ô cùng 1 nội dung
Mong muốn cuối cùng của bạn là như thế nào nhỉ.không thể để hiển thị kiểu 4 ngày , 4 ô cùng 1 nội dung
Tức là sort văn phòng theo a-z, sort xong thì vẫn phải giữ nguyên những ô nào mà trước khi sort người ta merge cell.Mong muốn cuối cùng của bạn là như thế nào nhỉ.
Bạn không nói rõ ngay từ đầu nên mình chỉ làm một file, còn lại bạn tự lo nhé.Túm lại là thế này : từ nhiều cái danh sách nhiều người gởi cho mình (mình up 1 file mẫu của các văn phòng miền bắc lên thôi, mấy file kia cũng y chang, chỉ là ở miền trung với miền Nam). mình ghép tất cả lại thành 1 file tổng, rồi sort cột văn phòng theo thứ tự từ A-Z. Yêu cầu chung là như vậy.
Quá trình sort thì nó phát sinh vấn đề là trong file có nhiều ô có merge cell nên nó không cho sort. vậy mình phải làm cách nào để sort được là xong.
Nếu bạn unmerge rồi sort thì sau khi sort xong, phải merge lại y chang như cũ , chứ nếu không thì dữ liệu sẽ bị sai
Ông thớt có dùng code của tôi không mà im re vậy. Ít nhất cũng nói là nó không chạy được hay là ABC gì chứ!Tức là sort văn phòng theo a-z, sort xong thì vẫn phải giữ nguyên những ô nào mà trước khi sort người ta merge cell.
Túm lại là thế này : từ nhiều cái danh sách nhiều người gởi cho mình (mình up 1 file mẫu của các văn phòng miền bắc lên thôi, mấy file kia cũng y chang, chỉ là ở miền trung với miền Nam). mình ghép tất cả lại thành 1 file tổng, rồi sort cột văn phòng theo thứ tự từ A-Z. Yêu cầu chung là như vậy.
Quá trình sort thì nó phát sinh vấn đề là trong file có nhiều ô có merge cell nên nó không cho sort. vậy mình phải làm cách nào để sort được là xong.
Nếu bạn unmerge rồi sort thì sau khi sort xong, phải merge lại y chang như cũ , chứ nếu không thì dữ liệu sẽ bị sai
Nếu bạn có từng "profile" thớt sẽ không phải hỏi câu này.Ông thớt có dùng code của tôi không mà im re vậy. Ít nhất cũng nói là nó không chạy được hay là ABC gì chứ!
Chưa biết ý bác là thế nào chứ em thấy chức danh + đơn vị của thớt là "nể" rồi.Nếu bạn có từng "profile" thớt sẽ không phải hỏi câu này.
Lắm lúc người hỏi sau một đống bài tới lui sẽ không còn nhớ câu hỏi bạn đầu của mình (có khi nó xoay chiều 180 độ), và cứ làm theo kiểu hỏi được thêm khúc nào, chắp thêm khúc nấy.
Bạn không thấy hỏi thêm gì nữa thì cứ tin là người ta đang chú trọng vào code khác.
Nhờ anh chị hướng dẫn em cách nào để sort danh sách mà trong đó có ô bị merger cell
em phải tổng hợp danh sách lịch làm việc của các văn phòng toàn quốc, sau khi gom nhiều file báo cáo của họ lại thành 1 file tổng, thì em cần sort tên văn phòng, sắp xếp theo chữ cái từ A-Z, nhưng nó không sort được vì trong đó có những ô merger cell. Em cũng không thể yêu cầu các văn phòng đừng merger cell được vì họ có thể làm cùng 1 công việc trong 3 ~4 ngày , nếu ghi 3 ~ 4 lần cùng 1 nội dung thì cũng không hay. vậy có cách nào để sort được không ạ ?
View attachment 263051
Sub abc()
Dim rng As Range
Dim rw
Dim i, j, k
With Sheet1
.Range("B3", .Range("B3").End(xlDown)).Copy .Range("T3")
Application.CutCopyMode = False
For i = 3 To 25
.Range("T" & i) = .Range("T" & i) & Right(100 + i, 2)
Next i
Call Macro3
For i = 3 To 25
rw = Right(.Range("T" & i), 2) * 1
.Range("A" & rw, "R" & rw).Copy .Range("V" & i)
Application.CutCopyMode = False
Next i
.Range("V3:AM25").Copy .Range("A3")
Application.CutCopyMode = False
.Range("S1:AM25").Clear
End With
End Sub
Sub Macro3()
Range("T3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("T3:T25") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("T3:T25")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Dạ có anh, em đây, bữa giờ bị mấy cái báo cáo khác dí quá không có thời gian lên đây. Em có thử code của anh rồi , hihihi , nó chạy tốt. có điều tại cái lịch làm việc đó em làm xong rồi, nên không hỏi tiếp nữa. Cái code của anh tiện lắm, em ghép cái code của anh vào với 1 đoạn code import file nữa là mọi thứ hoàn hảo,, nó gom hết 3 file về 1 chỗ rồi code của anh chạy 1 phát, nó sort như ý luôn. Sang 2 tuần nữa, lại có báo cáo lịch làm việc là có cơ hội ứng dụng đoạn code của anh rồi. Cảm ơn ah nhiều nhaÔng thớt có dùng code của tôi không mà im re vậy. Ít nhất cũng nói là nó không chạy được hay là ABC gì chứ!
Dạ, cảm ơn anh nha. Em vừa thử xong, code của anh chạy đúng như ý luôn.Chạy thử sub abc
Mã:Sub abc() Dim rng As Range Dim rw Dim i, j, k With Sheet1 .Range("B3", .Range("B3").End(xlDown)).Copy .Range("T3") Application.CutCopyMode = False For i = 3 To 25 .Range("T" & i) = .Range("T" & i) & Right(100 + i, 2) Next i Call Macro3 For i = 3 To 25 rw = Right(.Range("T" & i), 2) * 1 .Range("A" & rw, "R" & rw).Copy .Range("V" & i) Application.CutCopyMode = False Next i .Range("V3:AM25").Copy .Range("A3") Application.CutCopyMode = False .Range("S1:AM25").Clear End With End Sub
Mã:Sub Macro3() Range("T3").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("T3:T25") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("T3:T25") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Em rất cảm ơn các anh trên diễn đàn này. Nhờ sự hỗ trợ của các anh trên đây mà công việc của em nhẹ đi được rất nhiều do không cần phải làm thủ công nữa.Nếu bạn có từng "profile" thớt sẽ không phải hỏi câu này.
Lắm lúc người hỏi sau một đống bài tới lui sẽ không còn nhớ câu hỏi bạn đầu của mình (có khi nó xoay chiều 180 độ), và cứ làm theo kiểu hỏi được thêm khúc nào, chắp thêm khúc nấy.
Bạn không thấy hỏi thêm gì nữa thì cứ tin là người ta đang chú trọng vào code khác.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2