Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีการแปลง html เป็นข้อความในเซลล์ใน Excel

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

แปลง html เป็นข้อความในเซลล์ที่เลือกด้วยฟังก์ชัน Find and Replace
แปลง html เป็นข้อความในแผ่นงานทั้งหมดด้วย VBA


แปลง html เป็นข้อความในเซลล์ด้วยฟังก์ชัน Find and Replace

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

1. เลือกเซลล์ที่คุณจะแปลง html ทั้งหมดเป็นข้อความแล้วกดปุ่ม Ctrl + F คีย์เพื่อเปิด ค้นหาและแทนที่ กล่องโต้ตอบ

2 ใน ค้นหาและแทนที่ ให้ไปที่ไฟล์ แทนที่ แท็บป้อน <*> เข้าไปใน สิ่งที่ค้นหา กล่องเก็บไฟล์ แทนที่ด้วย กล่องว่างแล้วคลิกไฟล์ แทนที่ทั้งหมด ปุ่ม. ดูภาพหน้าจอ:

3. จากนั้นก Microsoft Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่ามีการแทนที่แท็ก html จำนวนเท่าใดให้คลิกที่ไฟล์ OK และปิดปุ่ม ค้นหาและแทนที่ กล่องโต้ตอบ

จากนั้นคุณจะเห็นแท็ก html ทั้งหมดถูกลบออกจากเซลล์ที่เลือกตามภาพด้านล่างที่แสดง


แปลง html เป็นข้อความในแผ่นงานทั้งหมดด้วย VBA

นอกจากนี้คุณสามารถแปลง html ทั้งหมดเป็นข้อความในแผ่นงานทั้งหมดพร้อมกันด้วยรหัส VBA ด้านล่าง

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

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

รหัส VBA: แปลง html เป็นข้อความในแผ่นงานทั้งหมด

Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xRegEx As RegExp
    Dim xMatch As Match
    Dim xMatches As MatchCollection
    Set xRegEx = New RegExp
    Application.EnableEvents = False
    Set xRg = Cells.SpecialCells(xlCellTypeConstants)
    With xRegEx
        .Global = True
        .Pattern = "<(""[^""]*""|'[^']*'|[^'"">])*>"
    End With
    For Each xCell In xRg
        xStr = xCell.Value
            Set xMatches = xRegEx.Execute(xCell.Text)
            For Each xMatch In xMatches
                xStr = Replace(xStr, xMatch.Value, "")
            Next
        xCell.Value = xStr
    Next
   Application.EnableEvents = True
End Sub

3. ยังอยู่ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก เครื่องมือ > อ้างอิงตรวจสอบไฟล์ Microsoft VBScript นิพจน์ทั่วไป 5.5 ตัวเลือกใน เอกสารอ้างอิง -VBAProject กล่องโต้ตอบจากนั้นคลิกไฟล์ OK ปุ่ม

4 กด F5 หรือคลิกปุ่ม Run เพื่อเรียกใช้รหัส

จากนั้นแท็ก html ทั้งหมดจะถูกลบออกจากแผ่นงานทั้งหมดทันที


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


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

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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ghyslain · 3 months ago
    compile error: User defined type not defined
  • To post as a guest, your comment is unpublished.
    Brian M · 2 years ago
    Thanks for that sub routine - just the job!