ไปยังเนื้อหาหลัก

วิธีกรองเซลล์ด้วยอักขระตัวหนาใน Excel

ผู้เขียน: เคลลี่ แก้ไขล่าสุด: 2020-05-21

คุณสามารถใช้รูปแบบตัวอักษรตัวหนาเพื่อจัดรูปแบบข้อมูลหรือเนื้อหาในเซลล์ใน Excel ได้ แต่คุณรู้วิธีกรองเซลล์ตามเซลล์ที่มีลักษณะแบบอักษรตัวหนาใน Excel หรือไม่? บทความนี้รวบรวมมาโคร VBA ที่ยุ่งยากเพื่อกรองเซลล์ด้วยอักขระตัวหนาใน Excel

กรองเซลล์ที่เป็นตัวหนาด้วยคอลัมน์ตัวช่วย
กรองเซลล์ตัวหนาด้วยรหัส VBA
กรองเซลล์ตัวหนาได้อย่างง่ายดายด้วยเครื่องมือที่น่าทึ่ง
บทแนะนำเพิ่มเติมสำหรับการกรองข้อมูล ...


กรองเซลล์ที่เป็นตัวหนาด้วยคอลัมน์วิธีใช้

สมมติว่าคุณต้องกรองเซลล์ที่เป็นตัวหนาทั้งหมดในคอลัมน์ B ตามภาพด้านล่างที่แสดงโปรดทำดังนี้:

ฟังก์ชันที่ผู้ใช้กำหนดด้านล่างช่วยในการระบุว่าเซลล์ในคอลัมน์เป็นตัวหนาหรือไม่จากนั้นส่งคืนผลลัพธ์เป็น TRUE หรือ False ในคอลัมน์ตัวช่วย คุณสามารถกรองผลลัพธ์ TRUE ทั้งหมดเพื่อแสดงเฉพาะเซลล์ตัวหนาในคอลัมน์ B

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล, จากนั้นคัดลอกรหัส VBA ต่อไปนี้ลงในหน้าต่างโมดูล ดูภาพหน้าจอ:

รหัส VBA: กรองเซลล์ด้วยอักขระตัวหนา

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

3 กด อื่น ๆ + Q ปุ่มเพื่อปิดหน้าต่างรหัส

4. เลือกเซลล์ว่างที่อยู่ติดกับตาราง (เซลล์ที่เลือกควรอยู่ในแถวเดียวกันของแถวแรกในตารางตัวกรอง) คัดลอกสูตรด้านล่างลงในนั้นแล้วกดปุ่ม เข้าสู่ กุญแจ

= IsBold (B2)

5. เลือกเซลล์ผลลัพธ์แรกต่อไปและลาก Fill Handle เพื่อให้ได้ผลลัพธ์ทั้งหมด ดูภาพหน้าจอ:

6. เลือกส่วนหัวของคอลัมน์ตัวช่วยคลิก ข้อมูล > กรอง. คลิกปุ่มลูกศรข้างเซลล์ส่วนหัวเลือก TRUE กล่องเท่านั้นจากนั้นคลิก ตกลง

ตอนนี้เซลล์ที่เป็นตัวหนาทั้งหมดในคอลัมน์ B จะถูกกรองออกตามภาพด้านล่างที่แสดง


กรองเซลล์ที่เป็นตัวหนาในคอลัมน์ได้อย่างรวดเร็วด้วยการคลิกหลาย ๆ ครั้งใน Excel:

พื้นที่ กรองเซลล์ตัวหนา ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยคุณกรองเซลล์ที่เป็นตัวหนาทั้งหมดในคอลัมน์หนึ่ง ๆ ได้อย่างรวดเร็วด้วยการคลิกหลายครั้งดังตัวอย่างด้านล่างที่แสดง
ดาวน์โหลดฟีเจอร์เต็มฟรี 30 วันของ Kutools for Excel ตอนนี้!


กรองเซลล์ตัวหนาด้วยรหัส VBA

โค้ด VBA ด้านล่างช่วยให้คุณสามารถกรองเซลล์ที่เป็นตัวหนาทั้งหมดในคอลัมน์เดียวได้โดยตรง กรุณาดำเนินการดังนี้

1. เลือกช่วงคอลัมน์ที่คุณจะกรองเซลล์ที่เป็นตัวหนาทั้งหมดยกเว้นเซลล์ส่วนหัว ในกรณีนี้ฉันเลือก B2: B16

2 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล, จากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: กรองเซลล์ตัวหนาในคอลัมน์

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 กด F5 กุญแจสำคัญในการเรียกใช้แมโครนี้ จากนั้นเซลล์ที่เป็นตัวหนาทั้งหมดจะถูกกรองออกในช่วงคอลัมน์ที่เลือกทันที


กรองเซลล์ตัวหนาได้อย่างง่ายดายด้วยเครื่องมือที่น่าทึ่ง

ในส่วนนี้เราขอแนะนำให้คุณใช้เครื่องมือที่มีประโยชน์นั่นคือไฟล์ กรองเซลล์ตัวหนา ประโยชน์ของ Kutools สำหรับ Excel. ด้วยยูทิลิตี้นี้เซลล์ที่เป็นตัวหนาทั้งหมดในคอลัมน์ที่เลือกจะถูกกรองทันทีด้วยการคลิกหลายครั้ง

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. เลือกช่วงคอลัมน์ที่คุณจะกรองเซลล์ตัวหนาคลิก Kutools พลัส> ตัวกรองพิเศษ > กรองตัวหนา เพื่อทำให้เสร็จ ดูการสาธิตด้านล่าง:

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


บทความที่เกี่ยวข้อง

กรองหลายคอลัมน์พร้อมกันใน Excel
หลังจากกรองคอลัมน์หนึ่งคอลัมน์ด้วยคุณสมบัติตัวกรองแล้วสามารถใช้ได้เฉพาะเกณฑ์ AND กับคอลัมน์มากกว่าหนึ่งคอลัมน์ ในกรณีนี้คุณจะใช้ทั้งเกณฑ์ AND และ OR เพื่อกรองหลายคอลัมน์พร้อมกันในแผ่นงาน Excel ได้อย่างไร วิธีการในบทความนี้สามารถช่วยคุณได้

กรองหรือเลือกเซลล์ตามสีของเซลล์ใน Excel
โดยปกติคุณสามารถเติมเซลล์ด้วยสีที่ต่างกันเพื่อวัตถุประสงค์ใด ๆ ใน Excel หากคุณมีเวิร์กชีตที่ใช้สีต่างกันเพื่อระบุประเภทของเนื้อหาที่แตกต่างกันและคุณต้องการกรองหรือเลือกเซลล์เหล่านั้นตามสีของเซลล์คุณสามารถทำได้ด้วยวิธีการในบทความนี้

วางการข้ามเซลล์และแถวที่ซ่อน / กรองใน Excel
ตัวอย่างเช่นคุณได้กรองตารางใน Excel แต่ตอนนี้คุณต้องคัดลอกช่วงและวางลงในตารางที่กรองแล้วคุณรู้วิธีการวางโดยข้ามเซลล์และแถวที่ซ่อน / กรองแล้วหรือไม่? วิธีง่ายๆหลายวิธีในบทความนี้สามารถช่วยคุณได้

กรองแถวตามรายการที่เลือกในแผ่นงานอื่น
ใน Excel เรามักจะกรองแถวตามเกณฑ์ แต่ถ้ามีสองรายการรายการหนึ่งอยู่ใน Sheet1 และอีกรายการใน Sheet2 คุณมีเคล็ดลับในการกรองแถวใน Sheet1 อย่างรวดเร็วตามรายการใน Sheet2 ได้ไหม บทความนี้จะแนะนำวิธีการแก้ปัญหานี้

กรองข้อมูลที่เกี่ยวข้องทั้งหมดจากเซลล์ที่ผสานใน Excel
สมมติว่ามีคอลัมน์ของเซลล์ที่ผสานในช่วงข้อมูลของคุณและตอนนี้คุณต้องกรองคอลัมน์นี้ด้วยเซลล์ที่ผสานเพื่อแสดงแถวทั้งหมดที่เกี่ยวข้องกับแต่ละเซลล์ที่ผสานดังภาพหน้าจอต่อไปนี้ ใน excel คุณลักษณะตัวกรองช่วยให้คุณสามารถกรองเฉพาะรายการแรกที่เชื่อมโยงกับเซลล์ที่ผสานในบทความนี้เรากำลังพูดถึงวิธีการกรองข้อมูลที่เกี่ยวข้องทั้งหมดจากเซลล์ที่ผสานใน Excel

บทแนะนำเพิ่มเติมสำหรับการกรองข้อมูล ...

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
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