Note: The other languages of the website are Google-translated. Back to English

 Làm thế nào để áp dụng cùng một bộ lọc cho nhiều trang tính trong Excel?

Chúng tôi có thể dễ dàng áp dụng chức năng Bộ lọc để lọc dữ liệu trong trang tính, nhưng đôi khi, bạn có thể cần lọc trên nhiều trang tính có định dạng dữ liệu chung với cùng tiêu chí lọc. Để lọc từng cái một sẽ lãng phí rất nhiều thời gian, ở đây, tôi có thể giới thiệu một cách dễ dàng để giải quyết nó ngay lập tức.

Áp dụng cùng một bộ lọc cho nhiều trang tính với mã VBA


mũi tên màu xanh bong bóng bên phải Áp dụng cùng một bộ lọc cho nhiều trang tính với mã VBA

Ví dụ: tôi có bốn trang tính như ảnh chụp màn hình sau đây cần được lọc với cùng tiêu chí Sản phẩm = KTE cùng một lúc.

doc lọc nhiều trang 1

Không có cách trực tiếp để lọc dữ liệu trong nhiều trang tính trong Excel, nhưng mã VBA sau có thể giúp bạn hoàn thành công việc này, vui lòng thực hiện như sau:

1. Giữ ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Áp dụng cùng một bộ lọc cho nhiều trang tính:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. Và sau đó nhấn F5 để chạy mã này, tất cả các sản phẩm của KTE đã được lọc trong tất cả các trang tính cùng một lúc, xem ảnh chụp màn hình:

doc lọc nhiều trang 2

Chú thích: Trong mã trên, trong này xWs.Range ("A1"). AutoFilter 1, "= KTE" kịch bản, A1= KTE cho biết cột và tiêu chí mà bạn muốn lọc dựa trên, số 1 là số cột bạn đã lọc dựa trên, bạn có thể thay đổi chúng theo nhu cầu của mình. Ví dụ: nếu bạn muốn lọc thứ tự lớn hơn 50, bạn chỉ cần sửa đổi tập lệnh này như sau: xWs.Range ("B1"). AutoFilter 2, "> 50".


Lọc dữ liệu theo nhiều tiêu chí hoặc điều kiện cụ thể khác, chẳng hạn như độ dài văn bản, phân biệt chữ hoa chữ thường, v.v.

Kutools cho Excel'S Siêu lọc tính năng là một tiện ích mạnh mẽ, bạn có thể áp dụng tính năng này để hoàn thành các thao tác sau:

  • Lọc dữ liệu với nhiều tiêu chí; Lọc dữ liệu theo độ dài văn bản;
  • Lọc dữ liệu theo chữ hoa / thường; Lọc ngày theo năm / tháng / Ngày / tuần / quý

doc-siêu lọc1

Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (41)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm thế nào để bạn áp dụng công thức lọc này: cho một loạt các trang tính? tôi có một sổ làm việc có dữ liệu trên 5 trang đầu tiên và sổ làm việc có 200 trang, tôi chỉ cần áp dụng bộ lọc cho trang 6-200. Sub apply_autofilter_across_worksheets () 'Cập nhật Extendoffice 20160623 Làm mờ xWs khi trang tính bị lỗi Tiếp tục lại tiếp theo cho mỗi xWs trong trang tính xWs.Range ("A1"). AutoFilter 1, "= KTE" Next End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub apply_autofilter_across_worksheets () Dim J Dưới dạng số nguyên Khi Lỗi Tiếp tục Tiếp theo Cho J = 6 đến Worksheets (worksheets.count) Thisworkbook.Sheets (J) .Range ("A1"). Autofilter 1, "= KTE" Next End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kính gửi, tôi muốn lọc nhiều hơn một giá trị, tôi đã sử dụng xWs.Range này ("B1"). AutoFilter 2, "= 223AM", xlOr, "= 113IR", xlOr, "= 003IR" và nó hoạt động nhưng khi tôi tăng các giá trị mong muốn lên> 2 thì xảy ra lỗi. lệnh này tôi sử dụng xWs.Range ("B1"). AutoFilter 2, "= 223AM", xlOr, "= 113IR", xlOr, "= 003IR", xlOr, "= 019IR", xlOr, "= 311IR", xlOr , "= 518ZA", xlOr, "= 223AM", xlOr, "= 592IR", cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
trong khi lọc từ đơn trong nhiều trang tính, nó không hiển thị dữ liệu đã lọc .... tất cả các dữ liệu đều được ẩn.pleace giải quyết vấn đề này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,


Dữ liệu của tôi nằm trong Cột E và khi tôi áp dụng bộ lọc này với Phạm vi ("E1"), nó vẫn lọc cột A


Làm cách nào để khắc phục sự cố?
Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn chỉ cần viết số Cột trong Bộ lọc Tự động, trong trường hợp này là: xWs.Range ("E1"). Bộ lọc Tự động 5,
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
CẢM ƠN BẠN!!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
XÓA CỘT A LOL
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào để thực thi nếu bộ lọc nằm trên một cột khác nhau trên mỗi trang tính?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào bạn có thể sử dụng kết quả của bộ lọc tự động để đặt bộ lọc cho từng trang tính khác thay vì sử dụng = (tên cụ thể)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có thể sử dụng tính năng này để lọc các bảng tổng hợp trong nhiều trang tính nếu tất cả các bảng tổng hợp đều từ cùng một nguồn dữ liệu và được thiết lập bằng cách sử dụng cùng một tiêu chí không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có tùy chọn nào để lọc theo màu sắc không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Mahesh,
Nếu bạn muốn lọc dữ liệu theo màu sắc, có thể hai bài viết sau đây có thể giúp bạn! Hãy xem chúng, hy vọng nó có thể giúp bạn!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,


Điều này hoạt động như thế nào nếu cột Sản phẩm được trình bày ở những vị trí khác nhau trong các trang tính khác?


Trong sheet1, nó là A1 trong sheet2 nó là B1 và ​​trong sheet3 lại là A1?

Cảm ơn,
Monika
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để thay đổi phần "= KTE" cho mỗi trang tính bằng bộ lọc chứa dựa trên tên của trang tính không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn vì mật mã!! có cách nào để thay đổi "= KTE" để sử dụng một giá trị từ Danh sách hoặc Danh sách thả xuống không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, siêu bộ lọc trên toàn bộ sổ làm việc có tự động áp dụng lại bất cứ khi nào có bản cập nhật của tệp không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng ta có thể sử dụng tên ô như Sản phẩm thay vì A1 trong: xWs.Range ("A1"). AutoFilter 1, "= KTE"
Tôi có cột khác và một số tên nằm trong cột khác nhau.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã sử dụng bộ lọc trong mỗi trang tính. Và tôi muốn thay đổi s.no từ 1 đến 2 nối tiếp trong mỗi trang sau bộ lọc.


Vui lòng cho tôi biết nếu bạn có mã vba cho nó
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào để sử dụng Chức năng "Lọc giữa", cho nhiều trang tính giống nhau?

(Ví dụ: Phạm vi thời gian)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm thế nào để loại bỏ các hàng đã lọc?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kính thưa,

Làm thế nào để lọc với nhiều điều kiện?
Ví dụ: tôi muốn lọc theo thứ tự trên 50 nhưng chỉ các sản phẩm KTE.

Cảm ơn bạn trước.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Pedjaa,
Để lọc trên nhiều trang tính dựa trên hai điều kiện, vui lòng áp dụng mã sau:
Sub apply_autofilter_across_worksheets ()

'Cập nhật bởi Extendoffice

Làm mờ xWs dưới dạng trang tính

On Error Resume Next

Đối với mỗi xW trong trang tính

Với xWs.Range ("A1")

Trường .AutoFilter: = 1, Criteria1: = "KTE" 'Cột A bằng "KTE"

Trường .AutoFilter: = 2, Criteria1: = "> 500" 'Cột B lớn hơn 500

Kết thúc với

Sau

End Sub

Hãy cố gắng, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
ngay cả khi tôi thay thế A1 bằng G1, nó sẽ làm hỏng bộ lọc trên cột A1
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Tan,
Bạn chỉ cần thay A1 bằng G1, đồng thời, bạn nên thay đổi cột số 1 thành cột số 7, như mã dưới đây:
xWs.Range ("G1"). AutoFilter 7, "= KTE"
Hãy cố gắng, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
có thể lọc dựa trên Tên cột, thay vì số (vì dữ liệu của tôi nằm trong các cột khác nhau trong các trang tính khác nhau) không?
Cảm ơn bạnManuela
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn lọc với cùng điều kiện "KTE", nhưng nếu nó không hiển thị trong một trang tính hoặc không hiển thị bất kỳ dữ liệu nào.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi,
Tôi muốn tiêu chí lọc dựa trên giá trị ô thay vì "KTE" có được không ???
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Hemraj, Để lọc dữ liệu dựa trên một giá trị ô cụ thể thay vì văn bản cố định, vui lòng áp dụng mã dưới đây: Sub apply_autofilter_across_worksheets ()
'Cập nhật bởi Extendoffice
Làm mờ xWs dưới dạng trang tính
On Error Resume Next
Đối với mỗi xW trong trang tính
xWs.Range ("A1"). AutoFilter 1, Sheet1.Range ("E2")
Sau
End SubChú thích: Vui lòng thay đổi Sheet1E2 Trong khoảng này Sheet1.Range ("E2") tập lệnh vào trang tính và giá trị ô của riêng bạn. Hãy thử, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Skyyang,
Cảm ơn sự hỗ trợ của bạn và Fablous, tôi đã cố gắng sử dụng các công thức tương tự nhưng nó không hoạt động vì lý do có thể là gì. Sau đây là mã mà tôi đang sử dụng cho trang tính excel của mình.
Sub apply_autofilter_across_worksheets ()
'Cập nhật bởi Extendoffice
Làm mờ xWs dưới dạng trang tính
On Error Resume Next
Đối với mỗi xW trong trang tính
xWs.Range ("A1"). AutoFilter 1, Sheet2.Range ("C4")
Sau
End Sub
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL