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

วิธีการแปลง 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 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 (5)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Can we prevent the links present in the html to stop converting?
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi Yash,
I don't quite understand what your mean. Can you upload a screenshot of your data?
This comment was minimized by the moderator on the site
I believe Yash likely means he would like to retain the "src" & "href" attributes. I would suggest extracting those using formulas in adjacent columns, editing the formula values into text and then proceeding with the html to text replacement
This comment was minimized by the moderator on the site
compile error: User defined type not defined
This comment was minimized by the moderator on the site
Thanks for that sub routine - just the job!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations