Làm cách nào để xóa tất cả các thẻ HTML khỏi chuỗi trong Excel?
Nếu bạn có một trang tính chứa các chuỗi văn bản được bao quanh bởi các thẻ HTML, bây giờ, bạn muốn xóa tất cả các thẻ HTML khỏi các chuỗi để làm cho các ô rõ ràng và dễ đọc hơn như sau ảnh chụp màn hình được hiển thị. Bài viết này, tôi sẽ giới thiệu một số phương pháp để giải quyết công việc này trong Excel.
Xóa tất cả các thẻ HTML khỏi chuỗi văn bản bằng lệnh Tìm và Thay thế
Xóa tất cả các thẻ HTML khỏi chuỗi văn bản bằng mã VBA
Xóa tất cả các thẻ HTML khỏi chuỗi văn bản bằng lệnh Tìm và Thay thế
Trong thực tế, Tìm và Thay thế trong Excel có thể giải quyết vấn đề này, vui lòng làm như sau:
1. Chọn các ô mà bạn muốn xóa các thẻ HTML.
2. Giữ Ctrl + H phím để mở Tìm và Thay thế hộp thoại, trong hộp thoại, trong Tìm hộp văn bản, loại <*>, và rời khỏi Thay thế bằng hộp văn bản trống, xem ảnh chụp màn hình:
3. Sau đó nhấn vào Thay thế Tất cả , tất cả các thẻ HTML đều bị xóa cùng một lúc.
Xóa tất cả các thẻ HTML khỏi chuỗi văn bản bằng mã VBA
Mã VBA sau có thể giúp bạn xóa các thẻ HTML khỏi một lựa chọn, vui lòng thực hiện như sau:
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 Mô-đun Cửa sổ.
Mã VBA: xóa tất cả các thẻ HTML khỏi chuỗi văn bản
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, trong hộp thoại hiện ra, 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, tất cả các thẻ HTML đã bị xóa khỏi lựa chọn cùng một lúc.
Tải xuống miễn phí Kutools cho Excel ngay!
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!