วิธีระบุและเลือกเซลล์ที่ผสานทั้งหมดใน Excel

คุณรู้วิธีค้นหาและเลือกเซลล์ที่ผสานทั้งหมดใน Excel หรือไม่? นี่คือวิธีที่ยุ่งยากในการระบุและเลือกเซลล์ที่ผสานทั้งหมดในส่วนที่เลือกหรือช่วงใน Microsoft Excel 2007 และ 2010 อย่างรวดเร็ว

ระบุและเลือกเซลล์ที่ผสานทั้งหมดด้วยคำสั่ง Find

ระบุเซลล์ที่ผสานทั้งหมดด้วยรหัส VBA

เลือกและนับเซลล์ที่ผสานทั้งหมดด้วย Kutools for Excel

ระบุและเลือกเซลล์ที่ผสานทั้งหมดด้วยคำสั่ง Find

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

1. คลิก หน้าแรก > ค้นหาและเลือก > หา เพื่อเปิด ค้นหาและแทนที่ กล่องโต้ตอบ คุณยังสามารถเปิดไฟล์ ค้นหาและแทนที่ กล่องโต้ตอบด้วยการกดปุ่ม Ctrl + F กุญแจ

2. คลิก รูปแบบ ในกล่องโต้ตอบ (หากคุณไม่พบไฟล์ รูปแบบ โปรดคลิกปุ่ม Options เพื่อขยายกล่องโต้ตอบ) ดูภาพหน้าจอ:

3. ในการโผล่ขึ้นมา ค้นหารูปแบบ ให้เลือกเฉพาะไฟล์ ผสานเซลล์ ตัวเลือกใน การควบคุมข้อความ ส่วนภายใต้ การวางแนว แล้วคลิก OK.

4. ตอนนี้คุณกลับไปที่ไฟล์ ค้นหาและแทนที่ คลิกตกลง ค้นหาทั้งหมด ปุ่ม. เซลล์ที่ผสานทั้งหมดจะแสดงอยู่ที่ด้านล่างของกล่องโต้ตอบนี้ เลือกผลการค้นหาทั้งหมดโดยกดปุ่ม เปลี่ยน กุญแจ

ตอนนี้เซลล์ที่ผสานทั้งหมดในแผ่นงานที่ใช้งานอยู่จะถูกเลือกเมื่อคุณเลือกผลลัพธ์การค้นหาทั้งหมด ดูภาพหน้าจอ:

ทิปส์: หากคุณต้องการระบุค้นหาและเลือกเซลล์ที่ผสานในส่วนที่เลือกเท่านั้นคุณต้องเลือกช่วงก่อน

ระบุเซลล์ที่ผสานทั้งหมดด้วยรหัส VBA

VBA 1: ระบุและเน้นเซลล์ที่ผสานทั้งหมด

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

Sub FindMergedcells()
'updateby Extendoffice
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
x.Interior.ColorIndex = 8
End If
Next
End Sub

3. กด F5 กุญแจสำคัญในการเรียกใช้แมโครนี้ เซลล์ที่ผสานทั้งหมดในแผ่นงานที่ใช้งานอยู่จะถูกระบุและเน้นดูภาพหน้าจอ:

VBA 2: ระบุและแสดงรายการเซลล์ที่ผสานทั้งหมด

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

Sub ListMergedcells()
'updateby Extendoffice
Dim x As Range
Dim sMsg As String
sMsg = ""
For Each x In ActiveSheet.UsedRange
If x.MergeCells Then
If sMsg = "" Then
sMsg = "Merged cells:" & vbCr
End If
sMsg = sMsg & Replace(x.Address, "$", "") & vbCr
End If
Next
If sMsg = "" Then
sMsg = "No merged cells."
End If
MsgBox sMsg
End Sub

3. กด F5 สำคัญในการเรียกใช้แมโครนี้เซลล์ที่ผสานทั้งหมดจะแสดงรายการในกล่องโต้ตอบที่โผล่ขึ้นมา ดูภาพหน้าจอ:

เลือกและนับเซลล์ที่ผสานทั้งหมดด้วย Kutools for Excel

Kutools สำหรับ Excel's เลือก Merged Cells เครื่องมือจะช่วยให้คุณระบุตัวตนค้นหาและเลือกเซลล์ที่ผสานทั้งหมดในส่วนที่เลือกได้ด้วยคลิกเดียว

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้ :( ดาวน์โหลด Kutools for Excel ได้ฟรีทันที! )

1. เลือกช่วงข้อมูลที่คุณต้องการเลือกเซลล์ที่ผสาน

2. คลิก Kutools > เลือก > เลือก Merged Cellsดูภาพหน้าจอ:

3. และเซลล์ที่ผสานทั้งหมดในส่วนที่เลือกได้ถูกเลือกพร้อมกันและจำนวนเซลล์ที่ผสานจะถูกนับด้วยดูภาพหน้าจอ:

ดาวน์โหลด Kutools for Excel ได้ฟรีทันที!

---

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย

80%

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ... 

---

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...