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

วิธีลบหรือลบข้อความขีดทับหรืออักขระทั้งหมดจากเซลล์ใน Excel

บทความนี้พูดถึงการลบข้อความหรืออักขระขีดทับทั้งหมดออกจากเซลล์หลายเซลล์ใน Excel

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


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

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

1. ในแผ่นงานมีข้อความขีดทับที่คุณต้องการลบให้กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

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

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3 กด F5 หรือคลิกปุ่ม วิ่ง ปุ่มเพื่อเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools สำหรับ Excel โปรดเลือกช่วงที่มีข้อความขีดทับที่คุณจะลบจากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นข้อความทั้งหมดที่มีเครื่องหมายขีดทับจะถูกลบออกจากเซลล์ทันทีดังภาพด้านล่างที่แสดง


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


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

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

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

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

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

ฉันใช้ Office 365 ProPlus
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันทำงานในขนาดเล็ก ฉันคิดว่าเหตุผลที่เข้าสู่โหมดไม่ตอบสนองนั้นเป็นเพราะมาโครจะใช้เวลาตลอดไปเมื่อคุณมีข้อมูลจำนวนมากที่ต้องผ่าน มาโครนี้กำลังตรวจสอบทุกอักขระเพื่อขีดฆ่า

ฉันขอแนะนำให้เพิ่มโค้ดที่ฟอร์แมตเซลล์ใหม่เมื่อเสร็จสิ้น เพราะฉันมีหลายเซลล์ที่โค้ดลบข้อความที่ขีดทับออก แต่ข้อความที่เหลือยังคงอยู่ในการขีดฆ่า ฉันเชื่อว่าเป็นเพราะการจัดรูปแบบเต็มเซลล์เป็นแบบขีดทับโดยที่ข้อความไม่ขีดทับถูกจัดรูปแบบแตกต่างกัน ดังนั้นจึงเป็นเพียง FYI
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ผ่าน python, pandas ได้ไหม ?
ถ้าใช่ใครสามารถช่วยฉันเกี่ยวกับวิธีการใช้งานนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณ Girish
โค้ดยังไม่ได้รับการทดสอบใน python, pandas ขออภัยไม่สามารถช่วยคุณในเรื่องนั้นได้ ขอบคุณสำหรับความคิดเห็น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้มันทั้งคอลัมน์และ excel ของฉันจะไม่กลับมาอีกเลย....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีซาน
คุณจะให้เวอร์ชัน Excel ที่คุณใช้อยู่หรือไม่
รหัสทำงานได้ดีในกรณีของฉัน
ขออภัยในความไม่สะดวก.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้ พวก มันใช้ได้สำหรับฉัน แต่ในบางกรณี จะเปลี่ยนข้อความที่ไม่ได้จัดรูปแบบเป็นขีดทับเป็นการขีดทับ แก้ไขได้ง่ายเพื่อย้อนกลับและตรวจสอบข้อมูลเฉพาะบางกรณีและยกเลิกการตีผ่านช่วง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณใช้ Excel เวอร์ชันใดอยู่
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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