Bỏ qua nội dung chính

Làm cách nào để lọc các ô theo ký tự in đậm trong Excel?

Bạn có thể áp dụng kiểu phông chữ đậm để định dạng dữ liệu hoặc nội dung trong các ô trong Excel, nhưng bạn có biết cách lọc ô theo các ô chứa kiểu phông chữ đậm trong Excel không? Bài viết này thu thập một số macro VBA phức tạp để lọc các ô theo ký tự in đậm trong Excel.

Lọc các ô đậm bằng cột trợ giúp
Lọc các ô in đậm bằng mã VBA
Dễ dàng lọc các ô đậm bằng một công cụ tuyệt vời
Các hướng dẫn khác về lọc dữ liệu…


Lọc các ô in đậm bằng cột trợ giúp

Giả sử bạn cần lọc tất cả các ô in đậm trong cột B như hình minh họa bên dưới, vui lòng thực hiện như sau:

Hàm dưới đây do người dùng xác định giúp xác định xem một ô trong cột có được in đậm hay không và sau đó trả về kết quả là TRUE hoặc False trong cột trợ giúp. Bạn có thể lọc tất cả các kết quả ĐÚNG để chỉ hiển thị các ô in đậm trong cột B.

1. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho ứng dụng cửa sổ, nhấp Chèn > mô-đun, sau đó sao chép mã VBA sau vào cửa sổ Mô-đun. Xem ảnh chụp màn hình:

Mã VBA: Lọc ô theo ký tự in đậm

Function IsBold(rCell As Range)
IsBold = rCell.Font.Bold
End Function

3. Nhấn nút Khác + Q phím để đóng cửa sổ mã.

4. Chọn một ô trống bên cạnh bảng (ô đã chọn phải nằm trên cùng một hàng của hàng đầu tiên trong bảng bộ lọc), sao chép công thức bên dưới vào đó và nhấn nhập Chìa khóa.

= IsBold (B2)

5. Tiếp tục chọn ô kết quả đầu tiên và kéo Fill Handle để nhận tất cả kết quả. Xem ảnh chụp màn hình:

6. Chọn tiêu đề của cột trợ giúp, nhấp vào Ngày > Lọc. Bấm vào nút mũi tên bên cạnh ô tiêu đề, chọn TRUE chỉ hộp, và sau đó nhấp vào OK.

Bây giờ tất cả các ô in đậm trong cột B được lọc ra như hình minh họa bên dưới.


Nhanh chóng lọc các ô in đậm trong một cột bằng vài cú nhấp chuột trong Excel:

Sản phẩm Lọc các ô in đậm tiện ích của Kutools cho Excel có thể giúp bạn nhanh chóng lọc tất cả các ô in đậm trong một cột nhất định với vài cú nhấp chuột như hình minh họa bên dưới.
Tải xuống bản đầy đủ tính năng miễn phí trong 30 ngày của Kutools cho Excel ngay bây giờ!


Lọc các ô in đậm bằng mã VBA

Mã VBA dưới đây cho phép bạn lọc trực tiếp tất cả các ô in đậm trong một cột. Hãy làm như sau.

1. Chọn phạm vi cột mà bạn sẽ lọc ra tất cả các ô in đậm ngoại trừ ô tiêu đề. Trong trường hợp này, tôi chọn B2: B16.

2. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho ứng dụng cửa sổ.

3. bên trong Microsoft Visual Basic cho ứng dụng cửa sổ, nhấp Chèn > mô-đun, sau đó sao chép và dán mã VBA sau vào cửa sổ Mô-đun.

Mã VBA: Lọc các ô in đậm trong một cột

Sub FilterBold()
'Updated by Extendoffice 20191018
Dim cell As Range
For Each cell In Selection
If cell.Font.Bold = False Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

4. Nhấn nút F5 phím để chạy macro này. Sau đó, tất cả các ô in đậm được lọc ra trong phạm vi cột đã chọn ngay lập tức.


Dễ dàng lọc các ô đậm bằng một công cụ tuyệt vời

Trong phần này, chúng tôi khuyên bạn nên sử dụng một công cụ hữu ích - Lọc các ô in đậm tiện ích của Kutools cho Excel. Với tiện ích này, tất cả các ô in đậm trong cột đã chọn sẽ được lọc ngay lập tức với vài cú nhấp chuột.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Chọn phạm vi cột bạn sẽ lọc các ô in đậm, nhấp vào Kutools Plus> Bộ lọc đặc biệt > Lọc in đậm để hoàn thành công việc. Xem demo dưới đây:

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Các bài liên quan

Lọc nhiều cột đồng thời trong Excel
Sau khi lọc một cột bằng tính năng Bộ lọc, chỉ tiêu chí VÀ mới có thể được áp dụng cho nhiều cột. Trong trường hợp này, làm thế nào bạn có thể áp dụng cả tiêu chí VÀ và HOẶC để lọc nhiều cột đồng thời trong trang tính Excel? Các phương pháp trong bài viết này có thể giúp ích cho bạn.

Lọc hoặc chọn ô theo màu ô trong Excel
Thông thường, bạn có thể tô các ô bằng các màu khác nhau cho bất kỳ mục đích nào trong Excel. Nếu bạn có một trang tính sử dụng các màu khác nhau để biểu thị các loại nội dung khác nhau và bạn muốn lọc hoặc chọn các ô đó theo màu ô, bạn có thể thực hiện bằng các phương pháp trong bài viết này.

Dán các ô và hàng đã bỏ qua / đã lọc trong Excel
Ví dụ: bạn đã lọc một bảng trong Excel, nhưng bây giờ bạn cần sao chép một dải ô và dán vào bảng đã lọc này, bạn có biết cách dán bỏ qua các ô và hàng ẩn / đã lọc không? Một số cách dễ dàng trong bài viết này có thể giúp bạn.

Lọc các hàng dựa trên lựa chọn danh sách trong một trang tính khác
Trong Excel, chúng ta thường lọc các hàng dựa trên một tiêu chí, nhưng nếu có hai danh sách, một trong Sheet1 và một trong Sheet2, bạn có thể có thủ thuật nào để lọc nhanh các hàng trong Sheet1 dựa trên danh sách trong Sheet2 không? Ở đây bài viết này giới thiệu các cách giải quyết công việc này.

Lọc tất cả dữ liệu liên quan từ các ô đã hợp nhất trong Excel
Giả sử có một cột gồm các ô được hợp nhất trong phạm vi dữ liệu của bạn và bây giờ, bạn cần lọc cột này với các ô đã hợp nhất để hiển thị tất cả các hàng có liên quan với mỗi ô được hợp nhất như sau ảnh chụp màn hình được hiển thị. Trong excel, tính năng Bộ lọc cho phép bạn chỉ lọc mục đầu tiên được liên kết với các ô đã hợp nhất, trong bài viết này, chúng ta sẽ nói về cách lọc tất cả dữ liệu liên quan từ các ô đã hợp nhất trong Excel.

Các hướng dẫn khác về lọc dữ liệu…

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

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


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!
Comments (16)
Rated 4.5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Thanks for sharing, it works wonderful, thank you!
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Thanks for the formula..it helped
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
I've used this technique and had an issue when trying to copy the bold data. It only copies some of the data for some reason. Is there any way of copying only the bold data using this technique? Thanks, Richard
This comment was minimized by the moderator on the site
Dear richard skins,



We didn't encounter the problem as you mentioned. Would you please provide a screenshot with details of your operation?



Thank you for your comment!
This comment was minimized by the moderator on the site
Hi, I'm a complete excel novice, i've done the following technique but now need to copy the data which is bold/true. When I have tried to do this is won't copy what is highlighted. Any ideas on how I can copy the data? Thanks, Richard
This comment was minimized by the moderator on the site
@RICHARD Can u please provide any screenshot of your spreadsheet showing what u are exactly trying to do?
This comment was minimized by the moderator on the site
Thanks for sharing. It works wonderful.
This comment was minimized by the moderator on the site
Hi I am using this code and its working fine but whenever I click on cancel the dialogue box a popup window appear and shows some error. Can you please tell me how to remove that error. :Sub FilterBold() Dim myRange As Range Set myRange = Application.InputBox(Prompt:="Please Select a Range", Title:="InputBox Method", Type:=8) myRange.Select Application.ScreenUpdating = False For Each myRange In Selection If myRange.Font.Bold = False Then myRange.EntireRow.Hidden = True End If Next myRange Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Dear Nitin Jain,

Sorry to reply so late!

We have found the proble and fixed it already. The VBA script in the article is now updated,

Thank you for your comment!
This comment was minimized by the moderator on the site
Simple and brilliant, thank you!
This comment was minimized by the moderator on the site
This worked perfectly, thank you!!! :D :lol:
This comment was minimized by the moderator on the site
I presume that column A is the reference Column with Bold cells. I create a Name "Bold?" with the refer to as below =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) In column B, I type: =Bold? Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
@cadafi ur formula works fine but it is not the optimised or efficient use of it. Rather we should use direct reference of the range or a cell in place of that complete offset command. Like the one as follows: =GET.CELL(20,'Sheet1'!A1) Copy down the formula and then use autofilter to filter the value TRUE. DONE
This comment was minimized by the moderator on the site
Thanks Mohamand Faizan. You are entirely correct.
This comment was minimized by the moderator on the site
@Mohammad Faizan You are entirely correct. Thanks.
This comment was minimized by the moderator on the site
@Cadafi.... thats brilliant... wondering how it works though!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations