Tôi hy vọng bạn đã hiểu cách xóa các ký tự không mong muốn khỏi văn bản bằng hàm SUBSTITUTE trong Excel. Tham khảo thêm các bài viết về hàm TEXT trong Excel tại đây. Vui lòng nêu câu hỏi hoặc phản hồi của bạn cho bài viết trên
Mã VBA sau đây có thể giúp bạn xóa các ký tự cụ thể mà bạn cần, vui lòng thực hiện như sau
1. Giữ phím ALT + F11 để mở cửa sổ Microsoft Visual Basic for Applications
2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun
mã VBA. Xóa một số ký tự đặc biệt khỏi chuỗi văn bản
Function RemoveSpecial[Str As String] As String
'updatebyExtendoffice 20160303
Dim xChars As String
Dim I As Long
xChars = "#$%[]^*&"
For I = 1 To Len[xChars]
Str = Replace$[Str, Mid$[xChars, I, 1], ""]
Next
RemoveSpecial = Str
End Function
3. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này. =removespecial[A2] vào ô trống nơi bạn muốn đặt kết quả, xem ảnh chụp màn hình.
4. Và sau đó kéo núm điều khiển đ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 ký tự đặc biệt mà bạn không cần đã bị xóa khỏi chuỗi văn bản, xem ảnh chụp màn hình
Ghi chú. Trong đoạn mã trên, bạn có thể thay đổi các ký tự đặc biệt #$%[]^*& thành bất kỳ ký tự nào khác mà bạn muốn xóa.
xóa các ký tự số, alpha hoặc các ký tự đặc biệt khác khỏi chuỗi văn bản
Tính năng Xóa ký tự của Kutools cho Excel có thể giúp bạn nhanh chóng xóa tất cả các ký tự số, alpha, không phải số, không phải alpha, không in được, các ký tự cụ thể khác khỏi chuỗi văn bản khi bạn cần. Nhấp để Tải xuống và dùng thử miễn phí Kutools cho Excel ngay bây giờ.
Kutools cho Excel. với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay.
Xóa một số ký tự đặc biệt khỏi chuỗi văn bản bằng Kutools cho Excel
Nếu bạn không thành thạo mã VBA, tiện ích Xóa Ký tự của Kutools cho Excel có thể giúp bạn hoàn thành tác vụ này một cách nhanh chóng và dễ dàng
Sau khi cài đặt Kutools cho Excel, vui lòng thực hiện như sau
1. Chọn chuỗi văn bản muốn loại bỏ một số ký tự đặc biệt
2. Nhấp chuột Kutools > Văn bản > Xóa ký tự, xem ảnh chụp màn hình
3. Trong hộp thoại Xóa ký tự, chọn tùy chọn Tùy chỉnh trong phần Xóa ký tự và nhập các ký tự đặc biệt mà bạn muốn xóa, xem ảnh chụp màn hình
4. Và sau đó nhấp vào nút Ok hoặc Áp dụng, các ký tự bạn đã chỉ định trong hộp văn bản Tùy chỉnh đã bị xóa khỏi chuỗi văn bản cùng một lúc, xem ảnh chụp màn hình
Nhấp để tải xuống và dùng thử miễn phí Kutools cho Excel ngay bây giờ
Thử nghiệm. Xóa một số ký tự đặc biệt khỏi chuỗi văn bản bằng Kutools cho Excel
Kutools cho Excel. với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay.
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 80% năng suất của bạn
- Tái sử dụng. Chèn nhanh các công thức, biểu đồ phức tạp và bất kỳ thứ gì bạn đã sử dụng trước đây; . 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]; . Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
- Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
- Chọn hàng trùng lặp hoặc duy nhất ; . 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; . 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í, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
- Siêu bộ lọc [lưu và áp dụng lược đồ bộ lọc cho các trang tính khác]; . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Kết hợp Sổ làm việc và Trang tính ; . 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-2021 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 đủ tính năng Dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.
Đọc thêm. Tải xuống miễn phí. Mua.
Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Bật chỉnh sửa và đọc theo tab 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 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
Đọc thêm. Tải xuống miễn phí. Mua.
Cũ nhất đầu tiên
Sắp xếp nhận xét theo
Cũ nhất đầu tiên
mới nhất đầu tiên
Nhận xét [ 11 ]
Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng
con sâu
khoảng 4 năm trước
#25225
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hàm GetWordWOSpecChar[Rng As Range]
'dán vào mô-đun VBA, Sử dụng làm Công thức
'Được tạo bởi Deepak Sharma
Arr = Array["48", "49", "50", "51", "52", "53", "54", "55", _
"56", "57", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", _
"76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", _
"89", "90", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", _
"107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", _
"118", "119", "120", "121", "122"]
For i = 1 To Len[Rng.Value]
txt = Mid[Rng. Value, i, 1]
For g = 1 To UBound[Arr]
If txt = Chr[Arr[g]] Then GetWord = Right[Rng. Giá trị, Len[Rng. Giá trị] - [i - 1]]. Thoát chức năng
Tiếp theo g
Tiếp theo i
Kết thúc chức năng
Hồi đáp
0
0
Kim
khoảng 3 năm trước
#28044
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào các bạn,
Tôi đã áp dụng mã =removespecial[A2] và mã này hoạt động hoàn hảo trong một trang tính nhưng sau đó, trong trang tính khác, nó lại cho tôi một #NAME không hợp lệ? .
Tôi đã kiểm tra "ô định dạng" và nó nói chung là cả hai và tôi đã sao chép cùng một văn bản + công thức vào cả hai trang tính nhưng nó không hoạt động.
Có manh mối nào về nguyên nhân gây ra sự cố này không?
Cảm ơn và cảm ơn bạn rất nhiều vì mã này.
Tiết kiệm cho tôi hàng giờ đồng hồ làm việc.
Trân trọng, Kim
Hồi đáp
0
0
Kim
khoảng 3 năm trước
#28045
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hmm, tôi thắc mắc, có phải nó chỉ hoạt động trong trang tính mà bạn đã dán mã ban đầu không?
Đối với trang đó, nó dường như chỉ hoạt động, không phải cho bất kỳ sổ làm việc mới nào bạn
Hồi đáp
0
0
skyyang Kim
khoảng 3 năm trước
#28046
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Kim,
Mã VBA chỉ có thể áp dụng cho một sổ làm việc, nếu bạn muốn áp dụng mã này cho sổ làm việc mới, bạn nên sao chép và dán mã vào sổ làm việc mới của mình .
Cảm ơn bạn.
Hồi đáp
Bài báo cáo
0
0
Nick DeCastro
khoảng 3 năm trước
#30207
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thay vì tìm kiếm các ký tự đặc biệt cụ thể, nếu bạn muốn tìm kiếm và thay thế TẤT CẢ các ký tự đặc biệt thì sao?. Nói cách khác, bạn sẽ viết tìm kiếm KHÔNG phải một trong các ký tự sau như thế nào. "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"