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

วิธีลบเครื่องหมายขีดกลางออกจากเซลล์ใน Excel อย่างรวดเร็ว

สมมติว่ามีรายการรหัสไปรษณีย์หรือหมายเลข ISBN แบบยาวในเซลล์แผ่นงานของคุณและตัวเลขแบบยาวมีเครื่องหมายขีดกลางเพื่อจุดประสงค์บางอย่างคุณต้องกำจัดเส้นประระหว่างตัวเลข (ดังภาพหน้าจอต่อไปนี้) มีวิธีง่ายๆในการลบเครื่องหมายขีดกลางระหว่างตัวเลขใน excel หรือไม่?

ลบขีดกลางออกจากเซลล์ด้วยสูตร
ลบขีดกลางออกจากเซลล์ด้วยรหัส VBA
ลบขีดกลางออกจากเซลล์ได้อย่างง่ายดายด้วย Kutools for Excel


ลบขีดกลางออกจากเซลล์ด้วยสูตร

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

1. ในเซลล์ว่างที่อยู่ติดกันเช่น C1 ให้ป้อนสูตรนี้: = SUBSTITUTE (A1, "-", "")ดูภาพหน้าจอ:

2. กด เข้าสู่ และเลือกเซลล์ C1 จากนั้นลากที่จับเติมไปยังช่วงที่คุณต้องการให้มีสูตรนี้ และขีดกลางระหว่างตัวเลขจะถูกลบออก ดูภาพหน้าจอ:

ลบอักขระที่เป็นตัวเลขไม่ใช่ตัวเลขหรือระบุเช่น "ขีดกลาง" ออกจากเซลล์ใน Excel ได้อย่างง่ายดาย:

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


ลบขีดกลางออกจากเซลล์ด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณยังสามารถลบขีดกลางระหว่างตัวเลขออกจากช่วงของเซลล์ได้

1. ไฮไลต์ช่วงที่คุณต้องการลบขีดกลาง

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

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

VBA: ลบขีดกลางระหว่างตัวเลข

Sub DeleteDashes()
'Update 20130907
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องโต้ตอบจะปรากฏขึ้นเพื่อบอกให้คุณเลือกช่วงที่คุณต้องการใช้ ดูภาพหน้าจอ:

5. จากนั้นคลิก OKขีดกลางระหว่างตัวเลขจะถูกลบออกจากเซลล์ และรูปแบบตัวเลขจะถูกแปลงเป็นรูปแบบข้อความ ดูภาพหน้าจอ:


ลบขีดกลางออกจากเซลล์ด้วย Kutools for Excel

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

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

1. เลือกช่วงเซลล์ที่คุณต้องการลบขีดกลางจากนั้นคลิก Kutools > ข้อความ > ลบอักขระดูภาพหน้าจอ:

2. ใน ลบอักขระ กล่องโต้ตอบตรวจสอบ ประเพณี ตัวเลือกและพิมพ์“-” ลงในกล่องข้อความจากนั้นคุณสามารถดูผลลัพธ์จากไฟล์ ดูตัวอย่าง บานหน้าต่าง จากนั้นคลิกไฟล์ OK เพื่อลบขีดกลางทั้งหมดในเซลล์ที่เลือก ดูภาพหน้าจอ:

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

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


ลบขีดกลางออกจากเซลล์ได้อย่างง่ายดายด้วย Kutools for 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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
this and the concatenate command have saved my brain from melting! thank you!
This comment was minimized by the moderator on the site
Sub DeleteDashes() 'Update 20130907 Dim rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False For Each rng In WorkRng rng.NumberFormat = "@" rng.Value = VBA.Replace(rng.Value, "-", "") Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
unimpressed with your instructions - using the =SUBSTITUTE formula above, the leading zeros are stripped
This comment was minimized by the moderator on the site
THANK YOU EXTEND OFFICE IT'S VERY HELPFUL AND SIMPLE.. KUDOS!
This comment was minimized by the moderator on the site
Use the find and replace feature. (Ctrl + F, click the replace tab). Enter "-" Into the find field (or whatever you're trying to remove) and hit the replace button. Make sure you leave the "Replace with" field blank.
This comment was minimized by the moderator on the site
Great it works
This comment was minimized by the moderator on the site
WOW.... You win this whole thread, THANK YOU!!!
This comment was minimized by the moderator on the site
Hi, This is manish gupta and it is the good code of removing the border areas in excel sheets. thanks and regards manish gupta
This comment was minimized by the moderator on the site
HI , MY PROBMEL SOLVE PLEASE
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations