Tách hoặc xóa thẻ html khỏi chuỗi văn bản

Nếu có nhiều chuỗi văn bản được bao quanh bởi các thẻ html, để xóa tất cả các thẻ html, các phương pháp trong bài viết này có thể giúp bạn.

• Loại bỏ hoặc xóa tất cả các thẻ html đơn giản bằng công thức
• Loại bỏ hoặc xóa một số thẻ html phức tạp bằng mã VBA

Loại bỏ hoặc xóa tất cả các thẻ html đơn giản bằng công thức

Nếu chuỗi văn bản của bạn được bao quanh bằng một số thẻ html đơn giản, thì hàm MID trong Excel có thể giúp bạn giải quyết công việc này. Cú pháp chung là:

• string: chuỗi văn bản hoặc giá trị ô mà bạn muốn xóa các thẻ html.
• text_start: số vị trí mà ký tự đầu tiên định vị mà bạn muốn sử dụng.
• tag_len: độ dài của các thẻ html trong chuỗi văn bản.

Vui lòng sao chép hoặc nhập công thức sau vào ô trống:

Sau đó, kéo chốt điền xuống các ô mà bạn muốn áp dụng công thức này và tất cả các thẻ html đã bị xóa khỏi các ô như hình minh họa bên dưới:

Giải thích công thức:

LEN (A2) -7: Hàm LEN này được sử dụng để tính toán độ dài của chuỗi văn bản trong ô A2 và trừ đi 7 (số lượng thẻ html, cả thẻ đầu và thẻ kết thúc) có nghĩa là để lấy số ký tự bạn muốn trích xuất mà loại trừ thẻ html. Giá trị trả về sẽ được sử dụng làm đối số num_chars trong hàm MID.

MID (A2,4, LEN (A2) -7): Hàm MID này được sử dụng để trích xuất tất cả các ký tự bắt đầu từ ký tự thứ tư và độ dài của chuỗi là các ký tự num được trả về bởi hàm LEN.

Loại bỏ hoặc xóa một số thẻ html phức tạp bằng mã VBA

Nếu có nhiều thẻ html trong chuỗi văn bản như hình minh họa bên dưới, công thức trên có thể không hoạt động chính xác, trong trường hợp này, mã VBA sau có thể giúp bạn xử lý một số thẻ html phức tạp trong chuỗi văn bản.

1. Giữ Alt + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã VBA sau vào Cửa sổ mô-đun.

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện, vui lòng chọn các ô mà bạn muốn xóa các thẻ html, xem ảnh chụp màn hình:

4. Và sau đó, nhấp vào OK và tất cả các thẻ html đã bị xóa khỏi các ô đã chọn, hãy xem ảnh chụp màn hình:

Các hàm tương đối được sử dụng:

Các bài viết khác:

---

Các công cụ năng suất văn phòng tốt nhất

Kutools for Excel - Giúp Bạn Nổi Bật Giữa Đám Đông

	Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao  |  Xóa hàng trống  |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu  |  Vòng không có công thức hữu ích. Cảm ơn !
	Super VLookup: Nhiều tiêu chí  |  Nhiều giá trị  |  Trên nhiều trang tính  |  Tra cứu mờhữu ích. Cảm ơn !
	Khuyến cáo. Danh sách thả xuống: Danh sách thả xuống dễ dàng  |  Danh sách thả xuống phụ thuộc  |  Danh sách thả xuống nhiều lựa chọnhữu ích. Cảm ơn !
	Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh các cột với Chọn các ô giống nhau và khác nhau hữu ích. Cảm ơn !
	Các tính năng nổi bật: Tiêu điểm lưới  |  Chế độ xem thiết kế  |  Thanh công thức lớn  |  Trình quản lý sổ làm việc & trang tính | Thư viện tài nguyên (Văn bản tự động)  |  Bảng chọn ngày  |  Kết hợp các bảng tính  |  Mã hóa/Giải mã ô  |  Gửi email theo danh sách  |  Siêu lọc  |  Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
	15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự ...)  |  50 + Biểu đồ Các loại (Biểu đồ Gantt ...)  |  40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh ...)  |  19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn ...)  |  12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ ...)  |  7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Tách ô Excel ...)  |  ... và nhiều hơn nữa

Kutools for Excel Tự hào có hơn 300 tính năng, Đảm bảo rằng những gì bạn cần chỉ là một cú nhấp chuột...

 Tìm hiểu thêmTải xuống miễn phí

---

Office Tab - Cho phép đọc và chỉnh sửa theo tab trong Microsoft Office (bao gồm Excel)

• Một giây để chuyển đổi giữa hàng chục tài liệu đang mở!
• Giảm hàng trăm cú click chuột cho bạn mỗi ngày, tạm biệt bàn tay chuột.
• Tăng năng suất của bạn lên 50% khi xem và chỉnh sửa nhiều tài liệu.
• Mang các tab hiệu quả đến Office (bao gồm Excel), giống như Chrome, Edge và Firefox.

 Tìm hiểu thêm Tải xuống miễn phí