Dùng PivotTable để tách sheet và đặt tên sheet (1 người xem)

  • Thread starter Thread starter be_09
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

be_09

Biên Hòa, Đồng Nai
Tham gia
9/4/11
Bài viết
9,972
Được thích
9,874
Nghề nghiệp
Công chức
Không biết trên diễn đàn (GPE) đã có bài viết nào như nội dung như nêu ở tiêu đề chưa? Tôi cãm thấy có vẽ là mới nên đưa lên để các bạn tham khảo.

Trên diễn đàn đã có nhiều bài viết về tách sheet (dựa vào tiêu chí ở 1 cột nào đó).

Dựa vào cái có sẳn là PivotTable, ta có thể dùng code để tách sheet và dựa vào nội dung cần tách ta đặt tên cho sheet mới tách, mời tham khảo code trong File.

Lưu ý:
1/Muốn dựa vào cột nào để tách thì thay F2 bằng cột khác, tại dòng này.
sht.Name = sht.Range("F2")

2/ Khi thay đổi tên cột (F2), thì sang sheet PivotTable thay đổi trường đó (tiêu đề cột) vào Filters của PivotTable Fields.
 

File đính kèm

Không biết trên diễn đàn (GPE) đã có bài viết nào như nội dung như nêu ở tiêu đề chưa? Tôi cãm thấy có vẽ là mới nên đưa lên để các bạn tham khảo.

Trên diễn đàn đã có nhiều bài viết về tách sheet (dựa vào tiêu chí ở 1 cột nào đó).

Dựa vào cái có sẳn là PivotTable, ta có thể dùng code để tách sheet và dựa vào nội dung cần tách ta đặt tên cho sheet mới tách, mời tham khảo code trong File.

Lưu ý:
1/Muốn dựa vào cột nào để tách thì thay F2 bằng cột khác, tại dòng này.
sht.Name = sht.Range("F2")

2/ Khi thay đổi tên cột (F2), thì sang sheet PivotTable thay đổi trường đó (tiêu đề cột) vào Filters của PivotTable Fields.
Cái này hay nè Anh, Cảm ơn Anh rất nhiều!
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom