Tự động merge & center tự xếp các hàng giống nhau
- Thread starter nammkn02
- Ngày gửi
huonglien1901
GPE là ngôi nhà thứ 2 của tôi!!!
- Tham gia
- 17/4/16
- Bài viết
- 2,701
- Được thích
- 2,433
- Giới tính
- Nam
- Nghề nghiệp
- Nhân viên kỹ thuật in ấn
Nhờ Thầy @ptm0412 xem giúp em tại sao 3 cột cuối không thể gộp lại với nhau khi em sử dụng pivottable.
Em cảm ơn Thầy nhiều!
Lần chỉnh sửa cuối:
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 5,074
- Được thích
- 4,768
!!!.............
Chỉ cần đưa ra kết quả thế là xong hẳn luôn hay là còn cần hiển thị nhiều kết quả khác?Các cao nhân giúp em với ạ
Bài đã được tự động gộp:
file excel đính kèm ạ
Tức toàn cột màu xanh đều Merge & center theo cột A1 đầu tiên ạ
File bài 2 là đúng ý này rồi mà bạn
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 5,074
- Được thích
- 4,768
Sao lúc thì các cột mầu xanh, trong file thì lại các cột mầu vàng vậy bạn.
Ý mình là cột màu xanh là giao diện Merge & Center CHUẨN. (gộp các ô trùng nhau). Sau đó toàn bộ các ô màu vàng cũng phải theo ô màu Xanh đó
(ví dụ: ô màu xanh gộp 3 ô thì toàn bộ các ô màu vàng cũng phải gộp 3 ô)
Bài đã được tự động gộp:
dạ em ko hiểu ý anh lắm. Ý em muốn nhờ các cao thủ ở đây code giúp em
Hoàng Tuấn 868
Đăng ký hôm qua
- Tham gia
- 9/11/19
- Bài viết
- 5,074
- Được thích
- 4,768
Bạn không nên dùng từ cao thủ và các từ viết tắt như "ko" nhé.
dạ cảm ơn Anh nhiều, em theo dõi diễn đàn đây cũng hơn 5 năm rồi. Em rất cảm ơn những thành viên như Anh trong group này vì nhờ đó mà học hỏi được nhiều.
Binbo2020
Thành viên tích cực
- Tham gia
- 10/11/11
- Bài viết
- 955
- Được thích
- 961
Lần chỉnh sửa cuối:
Binbo2020
Thành viên tích cực
- Tham gia
- 10/11/11
- Bài viết
- 955
- Được thích
- 961
Tại mình không theo bài từ đầu đọc mỗi bài #2 của bạn @huonglien1901 thôi nên hiểu nhầm. Bạn muốn là như này đúng không, mình thêm vào file bài 2 một chút
Dạ vẫn chưa đúng ạ. Như của Anh @Hoàng Tuấn 868 trên mới đúng ạ
Nhattanktnn
Thành viên gắn bó
- Tham gia
- 11/11/16
- Bài viết
- 3,100
- Được thích
- 3,995
- Donate (Momo)
- Giới tính
- Nam
Thử code này xem sao
Mã:
Option Explicit
Sub MergeCells()
Dim I&,Rng As Range, fC As Range, lC As Range, iCol
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("sheet1")
Set Rng = .Range("A12:L" & .Cells(Rows.Count, "A").End(xlUp).Row)
Set fC = Rng(Rng.Rows.Count, 1)
For I = Rng.Rows.Count To 1 Step -1
If Rng(I, 1) <> Rng(I - 1, 1) Or Rng(I, 2) <> Rng(I, 2) Then
Set lC = Rng(I, 1)
For Each iCol In Array(0, 1, 2, 8, 9, 10, 11)
.Range(fC.Offset(, iCol), lC.Offset(, iCol)).Merge
Next
Set fC = Rng(I - 1, 1)
End If
Next
Rng.VerticalAlignment = xlCenter
Rng.Borders.LineStyle = True
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubNhờ anh chuyển thành marco cho em được ko ạ? Em copy đoạn mã của anh về mà khác module nên không chạy được
huonglien1901
GPE là ngôi nhà thứ 2 của tôi!!!
- Tham gia
- 17/4/16
- Bài viết
- 2,701
- Được thích
- 2,433
- Giới tính
- Nam
- Nghề nghiệp
- Nhân viên kỹ thuật in ấn
3 cột cuối cách làm sao bạn? Bạn có thể chỉ cách làm không?
Binbo2020
Thành viên tích cực
- Tham gia
- 10/11/11
- Bài viết
- 955
- Được thích
- 961
Mình dùng biểu tượng cái chổi quét cột trước đấy lần lượt cho 3 cột còn lại thôi. Nhưng nếu lọc nó trở lại do cùng =0 nên nó gộp cả cột
