Nếu bạn có một bảng tính chứa các chuỗi văn bản được bao quanh vớ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 các ả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 để đối phó với nhiệm vụ 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ế lệnh
Xóa tất cả các thẻ HTML khỏi chuỗi văn bản bằng mã VBA
Trên thực tế, chức năng tìm và thay thế trong Excel có thể giải quyết vấn đề này, vui lòng làm như sau:Find and Replace function in Excel may solve this problem, please do as follows:
1. Chọn các ô mà bạn muốn xóa các thẻ HTML.. Select the cells that you want to remove the HTML tags.
2. Giữ các phím Ctrl + H để mở hộp thoại Tìm và thay thế, trong hộp thoại, trong tìm hộp văn bản, loại và để trống thay thế với hộp giấy văn bản, xem ảnh chụp màn hình:. Hold Ctrl + H keys to open the Find and Replace dialog box, in the dialog, in the Find what text box, type , and leave the Replace with text box blank, see screenshot:
3. Sau đó nhấp vào nút Thay thế tất cả, tất cả các thẻ HTML được xóa cùng một lúc.. Then click Replace All button, all the HTML tags are removed at once.
Mã VBA sau đây có thể giúp bạn xóa các thẻ HTML khỏi lựa chọn, vui lòng làm như sau:
1. Giữ các phím ALT + F11 trong Excel và nó mở cửa sổ Microsoft Visual Basic cho các ứng dụng.. Hold down the Alt + F11 keys in Excel, and it opens the Microsoft Visual Basic for Applications window.
2. Nhấp vào Chèn> Mô -đun và Dán mã VBA sau vào cửa sổ mô -đun.. Click Insert > Module, and paste the following VBA code in the Module Window.
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 phím F5 để chạy mã này, trong hộp thoại bật 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:. Then press F5 key to run this code, in the popped out dialog, please select the cells that you want to remove the HTML tags, see screenshot:
4. Và sau đó bấm OK, tất cả các thẻ HTML đã bị xóa khỏi lựa chọn cùng một lúc. And then click OK, all the HTML tags have been removed from the selection at once.
Tải xuống miễn phí Kutools cho Excel ngay bây giờ!
Các công cụ năng suất văn phòng tốt nhất
Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng năng suất của bạn lên 80%
- Tái sử dụng: nhanh chóng chèn các công thức phức tạp, biểu đồ & nbsp; và bất cứ điều gì bạn đã sử dụng trước đây; Mã hóa các ô bằng mật khẩu; Tạo danh sách gửi thư và gửi email ...: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- Thanh siêu công thức [dễ dàng chỉnh sửa nhiều dòng văn bản và công thức]; Đọc bố cục [dễ dàng đọc và chỉnh sửa số lượng lớn các ô]; Dán vào phạm vi được lọc ... [easily edit multiple lines of text and formula]; Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
- Hợp nhất các ô/hàng/cột mà không mất dữ liệu; Chia nội dung tế bào; Kết hợp các hàng/cột trùng lặp ... Ngăn chặn các ô trùng lặp; So sánh phạm vi ... without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Chọn các hàng trùng lặp hoặc độc đáo; Chọn các hàng trống [tất cả các ô trống]; Siêu tìm và mờ tìm trong nhiều sách bài tập; Chọn ngẫu nhiên ... Rows; Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Sao chép chính xác nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tham chiếu đến nhiều tờ; Chèn đạn, hộp kiểm và nhiều hơn nữa ... Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Trích xuất văn bản, thêm văn bản, xóa theo vị trí, loại bỏ không gian; Tạo và in các phần phụ phân trang; Chuyển đổi giữa nội dung ô và bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Siêu bộ lọc [lưu và áp dụng các sơ đồ lọc cho các bảng khác]; Sắp xếp nâng cao theo tháng/tuần/ngày, tần suất và nhiều hơn nữa; Bộ lọc đặc biệt của in đậm, nghiêng ... [save and apply filter schemes to other sheets]; Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Kết hợp sách bài tập và bảng tính; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều tờ; Batch Chuyển đổi XLS, XLSX và PDF ...; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office/Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn lại tiền 60 ngày.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
Tab Office mang giao diện được lập bảng đến văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều
- Kích hoạt chỉnh sửa và đọc theo bảng trong Word, Excel, PowerPoint, Nhà xuất bản, Truy cập, Visio và Dự án., Publisher, Access, Visio and 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 năng suất của bạn lên 50%và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày!