Trộn ô hàng loạt trong Excel với VBA

[moihocvba]

Xin chào anh chị GPE, sau khi em lọc ra báo cáo, để cho dễ nhìn em muốn trộn những ô như sau, anh chị giúp em với, em cảm ơn ạ!

Đây là sheet gốc:


Đây là kết quả em mong muốn, em trộn cột Số HĐ, Ngày và Khách hàng lại cho dễ nhìn ạ! (Cùng số hóa đơn thì cũng cùng ngày và cùng tên khách hàng)


Cách em làm thủ công là em trộn ô những phiếu giống nhau và căn giữa cho nó. Giờ em muốn dùng VBA để mỗi lần lọc ra kết quả và trộn tự động cho nhanh ạ!
Kết quả trả về sau khi lọc có thể tới 1000 dòng.
Em xin cám ơn nhiều ạ!

 

[BuiQuangThuan]

Xin chào anh chị GPE, sau khi em lọc ra báo cáo, để cho dễ nhìn em muốn trộn những ô như sau, anh chị giúp em với, em cảm ơn ạ!

Đây là sheet gốc:
View attachment 269101

Đây là kết quả em mong muốn, em trộn cột Số HĐ, Ngày và Khách hàng lại cho dễ nhìn
Cách em làm thủ công là em trộn ô những phiếu giống nhau và căn giữa cho nó. Giờ em muốn dùng VBA để mỗi lần lọc ra kết quả và trộn tự động cho nhanh ạ!
Kết quả trả về sau khi lọc có thể tới 1000 dòng.
Em xin cám ơn nhiều ạ!

Co đảm bảo là số HD giống nhau thì ngày và Khách hàng giống nhau không
Mà file bạn muốn làm dữ liệu gốc đâu

 

[befaint]

Cái đó Pivot Table là siêu tốc, siêu đẹp.

 

[moihocvba]

Co đảm bảo là số HD giống nhau thì ngày và Khách hàng giống nhau không
Mà file bạn muốn làm dữ liệu gốc đâu

Em mới cập nhật lại file gốc ạ. Cùng số hóa đơn thì cùng ngày tháng và cùng khách hàng ạ!

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

Cái đó Pivot Table là siêu tốc, siêu đẹp.

Bảng dữ liệu này chỉ là demo, bảng của em phức tạp hơn, e ko biết dùng Pivot Table nên muốn học cách trộn ô như này để áp dụng ạ! Cám ơn anh befaint đã tư vấn!

 

[BuiQuangThuan]

Em mới cập nhật lại file gốc ạ. Cùng số hóa đơn thì cùng ngày tháng và cùng khách hàng ạ!

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

Bảng dữ liệu này chỉ là demo, bảng của em phức tạp hơn, e ko biết dùng Pivot Table nên muốn học cách trộn ô như này để áp dụng ạ! Cám ơn anh befaint đã tư vấn!

Dùng Pivottable là đẹp nhất. Còn vẫn muốn dùng VBA thì thử dùng code này coi

Sub ABC()
Dim iR, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheet1
    iR = .Range("A" & Rows.Count).End(3).Row
    For i = iR To 2 Step -1
        If .Range("A" & i).Value = .Range("A" & i - 1).Value Then
            .Range("A" & i & ":A" & i - 1).Merge
            .Range("B" & i & ":B" & i - 1).Merge
            .Range("C" & i & ":C" & i - 1).Merge
        End If
    Next
    With .Range("A:C")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[moihocvba]

Dùng Pivottable là đẹp nhất. Còn vẫn muốn dùng VBA thì thử dùng code này coi

Sub ABC()
Dim iR, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheet1
    iR = .Range("A" & Rows.Count).End(3).Row
    For i = iR To 2 Step -1
        If .Range("A" & i).Value = .Range("A" & i - 1).Value Then
            .Range("A" & i & ":A" & i - 1).Merge
            .Range("B" & i & ":B" & i - 1).Merge
            .Range("C" & i & ":C" & i - 1).Merge
        End If
    Next
    With .Range("A:C")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Dạ rất đúng ý em ạ, cám ơn anh rất nhiều!

 

[Cá ngừ F1]

Xin chào anh chị GPE, sau khi em lọc ra báo cáo, để cho dễ nhìn em muốn trộn những ô như sau, anh chị giúp em với, em cảm ơn ạ!

Đây là sheet gốc:
View attachment 269101

Đây là kết quả em mong muốn, em trộn cột Số HĐ, Ngày và Khách hàng lại cho dễ nhìn ạ! (Cùng số hóa đơn thì cũng cùng ngày và cùng tên khách hàng)
View attachment 269102

Cách em làm thủ công là em trộn ô những phiếu giống nhau và căn giữa cho nó. Giờ em muốn dùng VBA để mỗi lần lọc ra kết quả và trộn tự động cho nhanh ạ!
Kết quả trả về sau khi lọc có thể tới 1000 dòng.
Em xin cám ơn nhiều ạ!

Tuyệt đối không merge cell, rất tối kỵ với excel.
Từ data gốc dùng Pivot table là chuẩn nhất.

 

[moihocvba]

Tuyệt đối không merge cell, rất tối kỵ với excel.
Từ data gốc dùng Pivot table là chuẩn nhất.

Dạ anh có thể tư vấn là tại sao ko merge cell không ạ? Em thì nghĩ đây chỉ sheet báo cáo, trước khi xuất dữ liệu chỉ cần unmerge là được, sau đó dán dữ liệu ra và chạy code merge. Em ko biết hạn chế như nào, nhờ anh tư vấn ạ!

 

[Cá ngừ F1]

Dạ anh có thể tư vấn là tại sao ko merge cell không ạ? Em thì nghĩ đây chỉ sheet báo cáo, trước khi xuất dữ liệu chỉ cần unmerge là được, sau đó dán dữ liệu ra và chạy code merge. Em ko biết hạn chế như nào, nhờ anh tư vấn ạ!

Một cái nhìn thấy ngay. Giả sử bạn merge số hợp đồng.
Bạn thử thao tác Sort theo số hợp đồng xem có được không?

 

[moihocvba]

Một cái nhìn thấy ngay. Giả sử bạn merge số hợp đồng.
Bạn thử thao tác Sort theo số hợp đồng xem có được không?

Ah em hiểu rồi, cám ơn anh ạ!
Trong trường hợp của em thì ko thành vấn đề vì sau khi merge nó là kết quả cuối cùng rồi ạ, còn muốn sort thì em sẽ làm trước bước này ạ!

 

[Cá ngừ F1]

Ah em hiểu rồi, cám ơn anh ạ!
Trong trường hợp của em thì ko thành vấn đề vì sau khi merge nó là kết quả cuối cùng rồi ạ, còn muốn sort thì em sẽ làm trước bước này ạ!

Vậy, một ngày đẹp trời. Sếp yêu cầu sắp xếp ngược lại. Bạn lại sắp xếp rồi mới merge cell. Chưa kể sắp xếp nhiều tiêu chí khác.

 

[Hoàng Tuấn 868]

muốn sort thì em sẽ làm trước bước này ạ!

Mượn code của bạn BuiQuangThuan, thêm thắt một chút, bạn có thể lọc được khi gộp ô hoặc quay lại trạng thái chưa gộp như dữ liệu gốc.

 

[VetMini]

Vậy, một ngày đẹp trời. Sếp yêu cầu sắp xếp ngược lại. Bạn lại sắp xếp rồi mới merge cell. Chưa kể sắp xếp nhiều tiêu chí khác.

Ngày đẹp trời ấy thì lên GPE xin giúp tiếp. Những cái "chưa kể" lúc ấy sẽ từ từ mà kể.
Đã báo cáo dạng Pivot Table mà nhất định không chịu học Pivot Table thì đâu phải là người muốn lo xa và tự lập.

 

[Cá ngừ F1]

Tôi làm bằng Pivot Table vào một sheet Report riêng,
Trong Pivot có thể Sort, ở đây tôi Sort theo Hợp đồng và Tên hàng với Thành tiền từ lớn đến bé.
Nếu data nguồn thêm/sử a cần refresh bên Pivot là xong. Chứ mà có đến trăm hợp đồng, trăm tên hàng thì tôi chưa hiểu bạn sẽ Merge đến ngày nào.