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

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

คุณสามารถใช้รูปแบบตัวอักษรตัวหนาเพื่อจัดรูปแบบข้อมูลหรือเนื้อหาในเซลล์ใน 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 สามารถช่วยคุณกรองเซลล์ที่เป็นตัวหนาทั้งหมดในคอลัมน์หนึ่ง ๆ ได้อย่างรวดเร็วด้วยการคลิกหลายครั้งดังตัวอย่างด้านล่างที่แสดง
ดาวน์โหลดตัวเต็ม

- วันเส้นทางฟรีของ Kutools สำหรับ 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 สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (15)
ได้รับคะแนน 4.5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันคิดว่าคอลัมน์ A เป็นคอลัมน์อ้างอิงที่มีเซลล์ตัวหนา ฉันสร้างชื่อ "ตัวหนา?" ด้วยการอ้างอิงด้านล่าง =GET.CELL(20,OFFSET(INDIRECT("A1"),ROW()-1,0)) ในคอลัมน์ B ฉันพิมพ์: =Bold? คัดลอกสูตรแล้วใช้ตัวกรองอัตโนมัติเพื่อกรองค่า TRUE เสร็จแล้ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
@Cadafi .... ยอดเยี่ยม ... สงสัยว่ามันทำงานอย่างไร!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
@cadafi สูตรของคุณทำงานได้ดี แต่ไม่ใช่การใช้งานที่ปรับให้เหมาะสมหรือมีประสิทธิภาพ แต่เราควรใช้การอ้างอิงโดยตรงของช่วงหรือเซลล์แทนคำสั่งออฟเซ็ตที่สมบูรณ์นั้น เช่นเดียวกับตัวอย่างต่อไปนี้: =GET.CELL(20,'Sheet1'!A1) คัดลอกสูตรแล้วใช้ตัวกรองอัตโนมัติเพื่อกรองค่า TRUE เสร็จแล้ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
@Mohammad Faizan คุณถูกต้องทั้งหมด ขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ Mohamand Faizan คุณถูกต้องทั้งหมด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันทำงานได้อย่างสมบูรณ์ ขอบคุณ !!! :D :lol:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียบง่ายและยอดเยี่ยม ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้รหัสนี้และทำงานได้ดี แต่เมื่อใดก็ตามที่ฉันคลิกยกเลิกกล่องโต้ตอบ หน้าต่างป๊อปอัปจะปรากฏขึ้นและแสดงข้อผิดพลาดบางอย่าง คุณช่วยบอกฉันหน่อยได้ไหมว่าจะลบข้อผิดพลาดนั้นได้อย่างไร :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 สำหรับแต่ละ myRange ในส่วนที่เลือก ถ้า myRange.Font.Bold = False จากนั้น myRange.EntireRow.Hidden = True End ถ้า Next myRange Application.ScreenUpdating = True End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน คุณนิทิน เจน

ขอโทษที่ตอบช้า!

เราพบปัญหาและแก้ไขแล้ว สคริปต์ VBA ในบทความได้รับการอัปเดตแล้ว

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



เราไม่พบปัญหาตามที่คุณกล่าวถึง คุณช่วยกรุณาส่งภาพหน้าจอพร้อมรายละเอียดการดำเนินการของคุณให้หน่อยได้ไหม



ขอบคุณสำหรับความคิดเห็นของคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสูตร..มันช่วย
ได้รับคะแนน 4.5 จาก 5
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL