Short danh sách cột mà trong đó có ô merger cell (1 người xem)

[alex-luu]

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 ạ ?

 

[befaint]

Nguyên tắc bảng tính chứa cơ sở dữ liệu không có gộp ô gì cả.
Nếu có gộp thì không chứa dữ liệu. Chỉ gộp ô khi cần trang điểm cho đẹp và tất nhiên nó không phục vụ chứa cơ sở dữ liệu.

 

[Maika8008]

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

Nếu không cần phải merge sau khi sort thì bạn dùng code này (UnMerge xong rồi Sort):

Sub UnMergeAndSort()
Dim endR&

With Sheet1
    endR = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("A3:R" & endR).UnMerge
    .Range("A3:R" & endR).Sort Key1:=.Range("B3"), Order1:=xlAscending, Header:=xlNo
End With
End Sub

 

[Hoàng Tuấn 868]

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

Bạn bỏ gộp ô đi rồi lọc không được sao.

 

[alex-luu]

Bạn bỏ gộp ô đi rồi lọc không được sao.

Bỏ gộp đi, xong sort thì được, nhưng sau khi sort xong thì mình phải gộp trở lại trả cho người ta.
Ví dụ như trường hợp này :
Nếu bỏ merger cell đi rồi sort xong thì sẽ không biết cách merge ô nào với ô nào luôn

Lưu ý : file gốc người ta không tô màu cho mình đâu. Hiện giờ em đang làm thủ công như sau : xem ô nào có merge cell thì tô màu nó lên (khác màu nhau), rồi bỏ merge , sort , xong rồi nhìn theo màu mà merge lại lần nữa rồi bỏ màu. rất mất thời gian

Bài đã được tự động gộp: 26/7/21

Nếu không cần phải merge sau khi sort thì bạn dùng code này (UnMerge xong rồi Sort):

Sub UnMergeAndSort()
Dim endR&

With Sheet1
    endR = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("A3:R" & endR).UnMerge
    .Range("A3:R" & endR).Sort Key1:=.Range("B3"), Order1:=xlAscending, Header:=xlNo
End With
End Sub

phải merge trở lại trả cho người ta bạn ạ, cái đó mới khó, bạn xem có cách nào khác không. Hiện giờ mình đang làm bằng tay như sau : tìm bằng mắt, những ô nào đang merge , tô màu khác nhau, rồi bỏ merge , sort , rồi nhìn theo màu mà merge lại lần nữa, cuối cùng là bỏ màu. Mất rất nhiều thòi gian

 

[Maika8008]

Bỏ gộp đi, xong sort thì được, nhưng sau khi sort xong thì mình phải gộp trở lại trả cho người ta.
Ví dụ như trường hợp này :
Nếu bỏ merger cell đi rồi sort xong thì sẽ không biết cách merge ô nào với ô nào luôn

Lưu ý : file gốc người ta không tô màu cho mình đâu. Hiện giờ em đang làm thủ công như sau : xem ô nào có merge cell thì tô màu nó lên (khác màu nhau), rồi bỏ merge , sort , xong rồi nhìn theo màu mà merge lại lần nữa rồi bỏ màu. rất mất thời gian

View attachment 263058

Nếu code VBA thì cũng phải theo trình tự gần như vậy, chỉ là không cần tô màu

 

[Hoàng Tuấn 868]

Bỏ gộp đi, xong sort thì được, nhưng sau khi sort xong thì mình phải gộp trở lại trả cho người ta.
Ví dụ như trường hợp này :
Nếu bỏ merger cell đi rồi sort xong thì sẽ không biết cách merge ô nào với ô nào luôn

Lưu ý : file gốc người ta không tô màu cho mình đâu. Hiện giờ em đang làm thủ công như sau : xem ô nào có merge cell thì tô màu nó lên (khác màu nhau), rồi bỏ merge , sort , xong rồi nhìn theo màu mà merge lại lần nữa rồi bỏ màu. rất mất thời gian

View attachment 263058

Copy sang sheet mới rồi mình muốn làm gì thì làm có hơn không, không động đến file gốc.

 

[alex-luu]

Nếu code VBA thì cũng phải theo trình tự gần như vậy, chỉ là không cần tô màu

làm bằng tay bị sai hoài luôn, cực dã man, lý do : tô màu không hết, do nhìn bằng mắt, tìm những ô nào có merge rồi tô màu sau đó sort , rồi merge lại. Vấn đề là ngay khúc đầu nếu làm thiếu , tức là có những ô có merge mà mình không nhìn thấy ==> không tô màu ==> sau khi sort thì những ngày phía sau trở thành ô trống ==> xem như những ngày đó họ không có làm việc ==> họ sẽ la làng lên, tui có merge ghi là 3 ngày đó tui làm cùng 1 việc mà sao ghi tui làm có 1 ngày đầu còn 2 ngày sau không có ? hazz, cực kỳ mệt mỏi

 

[Maika8008]

làm bằng tay bị sai hoài luôn, cực dã man, lý do : tô màu không hết, do nhìn bằng mắt, tìm những ô nào có merge rồi tô màu sau đó sort , rồi merge lại. Vấn đề là ngay khúc đầu nếu làm thiếu , tức là có những ô có merge mà mình không nhìn thấy ==> không tô màu ==> sau khi sort thì những ngày phía sau trở thành ô trống ==> xem như những ngày đó họ không có làm việc ==> họ sẽ la làng lên, tui có merge ghi là 3 ngày đó tui làm cùng 1 việc mà sao ghi tui làm có 1 ngày đầu còn 2 ngày sau không có ? hazz, cực kỳ mệt mỏi

Cho tôi hỏi: Dữ liệu thực của bạn có chừng bao nhiêu cột? dòng?

 

[alex-luu]

Copy sang sheet mới rồi mình muốn làm gì thì làm có hơn không, không động đến file gốc.

9 xác, em cũng copy qua sheet mới, vấn đề là em cũng phải làm thủ công như vậy. Sheet cũ dùng để đối chiếu lại lần nữa sau khi sort. mà đối chiếu thì cũng là nhìn bằng mắt thôi, vì hàm tìm kiếm nó không nhìn thấy những ô có merge. Em bị sót hoài nên mới đưa file lên đây nhờ mọi người giúp em cách làm, không làm thủ công nữa

 

[Hoàng Tuấn 868]

làm bằng tay bị sai hoài luôn, cực dã man, lý do : tô màu không hết, do nhìn bằng mắt, tìm những ô nào có merge rồi tô màu sau đó sort , rồi merge lại. Vấn đề là ngay khúc đầu nếu làm thiếu , tức là có những ô có merge mà mình không nhìn thấy ==> không tô màu ==> sau khi sort thì những ngày phía sau trở thành ô trống ==> xem như những ngày đó họ không có làm việc ==> họ sẽ la làng lên, tui có merge ghi là 3 ngày đó tui làm cùng 1 việc mà sao ghi tui làm có 1 ngày đầu còn 2 ngày sau không có ? hazz, cực kỳ mệt mỏi

Chỉ có gộp ô hàng ngang hay cả dọc hả bạn.

 

[alex-luu]

chỉ gộp ngang thôi bạn, không có gộp dọc. Mỗi hàng ngang là 1 người nên không có chuyện gộp doc.

Bài đã được tự động gộp: 26/7/21

Cho tôi hỏi: Dữ liệu thực của bạn có chừng bao nhiêu cột? dòng?

cột thì cố định từ A:R (tương đương 2 tuần lễ) báo cáo 1 lần.
Hàng thì là tên nhân viên nên chưa biết, lúc nhiều lúc ít, thường khoảng dưới 100 hàng

 

[VetMini]

Nguyên tắc bảng tính chứa cơ sở dữ liệu không có gộp ô gì cả.
Nếu có gộp thì không chứa dữ liệu. Chỉ gộp ô khi cần trang điểm cho đẹp và tất nhiên nó không phục vụ chứa cơ sở dữ liệu.

Không chỉ riêng vấn đề CSDL. Luật cơ bản là bảng còn dùng để tính toán thì không gộp ô.
Bảng dùng để xem mới muốn gộp, màu mè gì thì màu.

 

[alex-luu]

Không chỉ riêng vấn đề CSDL. Luật cơ bản là bảng còn dùng để tính toán thì không gộp ô.
Bảng dùng để xem mới muốn gộp, màu mè gì thì màu.

Dạ em hiểu ạ. nhưng mấy file báo cáo này là do các bạn quản lý của từng văn phòng, thống kê lịch làm việc của từng người trong văn phòng rồi gởi về cho quản lý từng vùng. Quản lý từng vùng sẽ ghép toàn bộ lại rồi gởi về cho em. Nếu em kêu họ đừng merge cell thì ví dụ 1 người đó làm cùng 1 việc trong 4 ngày thì họ phải ghi 4 lần giống nhau, tới em, sau khi tổng hợp xong , em trình lên trên thì em cũng phải merge lại, vì em không thể để hiển thị kiểu 4 ngày , 4 ô cùng 1 nội dung giống nhau như thế được..
Vấn đề là ở chỗ em tổng hợp toàn quốc nên em phải sort theo A-Z tên của VP, chứ họ chỉ có 1 văn phòng nên họ không cần sort. Từ đây mới phát sinh rắc rối

 

[VetMini]

Dạ em hiểu ạ. nhưng mấy file báo cáo này là do các bạn quản lý của từng văn phòng, thống kê lịch làm việc của từng người trong văn phòng rồi gởi về cho quản lý vùng. Quản lý vùng ghép toàn bộ lại rồi gởi về cho em. Nếu em kêu họ đừng merge cell thì ví dụ 1 người đó làm cùng 1 việc trong 4 ngày thì họ phải ghi 4 lần giống nhau, tới em, sau khi tổng hợp xong , em trình lên trên thì em cũng phải merge lại, vì em không thể để hiển thị kiểu 4 ngày , 4 ô cùng 1 nội dung giống nhau như thế được..
Vấn đề là ở chỗ em tổng hợp toàn quốc nên em phải sort theo A-Z tên của VP. Từ đây mới phát sinh rắc rối

Tôi chỉ nhắc chung chung cho các bạn trên diễn đàn.
Tôi ở đây lâu đủ để biết người hỏi luôn luôn có cái lý do để bảo vệ thiết kế file của mình.
Dân kỹ thuật có câu: muốn thì tìm cách, không muốn thì tìm cớ. (có câu hơi khác: muốn thì sẵn sàng, không muốn thì sẵn cớ)

Chỉ riêng cái này tôi còn không hiểu nữa thì nói chuyện sửa đổi chi
với tôi, shorten là cắt ngắn, short là tắt ngang (short circuit là mát dây); merger là hai công ty gần cỡ với nhau nhập lại.

 

[Hoàng Tuấn 868]

chỉ gộp ngang thôi bạn, không có gộp dọc.

Bạn thử...............

 

[Maika8008]

cột thì cố định từ A:R (tương đương 2 tuần lễ) báo cáo 1 lần.
Hàng thì là tên nhân viên nên chưa biết, lúc nhiều lúc ít, thường khoảng dưới 100 hàng

Bạn chạy code này

Sub SapXepX()
Dim i&, j&, k&, m&, endR&
Dim GT
Dim arrN, arrM, arrSM

Application.ScreenUpdating = False
ReDim arrN(1 To 1000, 1 To 2)
ReDim arrM(1 To 1000, 1 To 14)
ReDim arrSM(1 To 1000, 1 To 14)
With Sheet1
    endR = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 3 To endR
        GT = .Range("H" & i & ":R" & i).MergeCells
        If IsNull(GT) Then
            k = k + 1
            arrN(k, 1) = .Cells(i, 2)
            arrN(k, 2) = .Cells(i, 3)
            For j = 5 To 18
                If .Cells(i, j).MergeCells Then
                    m = m + 1
                    arrM(k, m) = j
                    arrSM(k, m) = .Cells(i, j).MergeArea.Columns.Count
                    j = j + arrSM(k, m) - 1
                End If
            Next
            m = 0
        End If
    Next
    .Range("A3:R" & endR).UnMerge
    .Range("A3:R" & endR).Sort Key1:=.Range("B3"), Order1:=xlAscending, Header:=xlNo
    For i = 3 To endR
        For j = 1 To k
            If .Cells(i, 2) = arrN(j, 1) And .Cells(i, 3) = arrN(j, 2) Then
                For m = 1 To 14
                    If Not IsEmpty(arrM(j, m)) Then
                        .Range(.Cells(i, arrM(j, m)), .Cells(i, arrM(j, m) + arrSM(j, m) - 1)).Merge
                    End If
                Next
            End If
        Next
    Next
End With
Application.ScreenUpdating = True
End Sub

Bài đã được tự động gộp: 26/7/21

2 ông post bài giải 1 lần, hehe!

 

[alex-luu]

Dạ em hiểu ạ. nhưng mấy file báo cáo này là do các bạn quản lý của từng văn phòng, thống kê lịch làm việc của từng người trong văn phòng rồi gởi về cho quản lý vùng. Quản lý vùng ghép toàn bộ lại rồi gởi về cho em. Nếu em kêu họ đừng merge cell thì ví dụ 1 người đó làm cùng 1 việc trong 4 ngày thì họ phải ghi 4 lần giống nhau, tới em, sau khi tổng hợp xong , em trình lên trên thì em cũng phải merge lại, vì em không thể để hiển thị kiểu 4 ngày , 4 ô cùng 1 nội dung giống nhau như thế được..
Vấn đề là ở chỗ em tổng hợp toàn quốc nên em phải sort theo A-Z tên của VP. Từ đây mới phát sinh rắc rối

Bạn thử...............

ủa vậy là bạn làm bỏ gộp ô, tô màu sẵn, mình sort A-Z xong sẽ merge cell lại bằng tay dựa theo màu hả

 

[Hoàng Tuấn 868]

ủa vậy là bạn làm bỏ gộp ô, tô màu sẵn, mình sort A-Z xong sẽ merge cell lại bằng tay dựa theo màu hả

Có nhiều cách mà, bạn thử tìm hiểu thêm xem.

 

[Hoàng Tuấn 868]

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ỉ.

 

[alex-luu]

Mong muốn cuối cùng của bạn là như thế nào nhỉ.

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

 

[Hoàng Tuấn 868]

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

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é.

 

[Maika8008]

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

Ô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ứ!

 

[VetMini]

Ô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ứ!

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.

 

[Cù Chính Năng]

Ước gì có cái Center across selection theo chiều dọc thì ngon. Mình mới đăng toppic, có cái này thì sẽ giải quyết được vấn đề của bạn.

 

[kimtanmap]

Để tránh tình trạng này thì insert nó xuống 1 dòng, rồi đặt tên cho từng ô. Rồi filter hàng mình vừa insert xuống! Sau đó hide nó đi.
Muốn nó liên kết phải tạo table tính từ hàng insert xuống.

 

[Cù Chính Năng]

Mình xem file của bạn thì thấy chỉ Merge theo phương ngang. Mình thấy vấn đề này thì ko khó. Bạn chỉ cần chuyển toàn bộ những ô đang "Merge" sang dạng "Center across seletion" là xong. Cụ thể: Ctrl + A để chọn tất cả các ô (hoặc bôi khu vực dữ liệu), ấn Ctrl + 1 và Chọn lại trong bảng "Format cell" như hình dưới là được.

 

[Maika8008]

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.

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.

 

[kimtanmap]

Ý bạn có phải như vầy?

 

[CHAOQUAY]

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

Chạy thử sub abc

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

 

[alex-luu]

Ô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ó 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

Bài đã được tự động gộp: 27/7/21

Chạy thử sub abc

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ảm ơn anh nha. Em vừa thử xong, code của anh chạy đúng như ý luôn.
Em cảm ơn nhiều

Bài đã được tự động gộp: 27/7/21

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.

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.