Bỏ qua nội dung chính

Làm cách nào để xóa một số ký tự đặc biệt khỏi chuỗi trong Excel?

Tác giả: Tiểu Dương Sửa đổi lần cuối: 2020-04-21

Nếu có một số ký tự đặc biệt như % ^ & * () trong các chuỗi văn bản và bây giờ, bạn muốn xóa các ký tự cụ thể của luận văn khỏi các chuỗi ô. Để loại bỏ từng cái một sẽ tốn nhiều thời gian, sau đây, tôi sẽ giới thiệu một số thủ thuật nhanh chóng để giải quyết công việc này trong Excel.

Xóa một số ký tự đặc biệt khỏi chuỗi văn bản bằng Hàm do Người dùng Xác định

Loại bỏ một số ký tự đặc biệt khỏi chuỗi văn bản với Kutools cho Excel

mũi tên màu xanh bong bóng bên phải Xóa một số ký tự đặc biệt khỏi chuỗi văn bản bằng Hàm do Người dùng Xác định

Mã VBA sau 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 tắt ALT + F11 phím để 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ã sau vào Mô-đun Cửa sổ.

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: = removepecial (A2) vào một ô trống nơi bạn muốn đặt kết quả, xem ảnh chụp màn hình:

doc xóa các ký tự đặc biệt 1

4. Và 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 ký tự đặc biệt mà bạn không cần phải bị xóa khỏi chuỗi văn bản, hãy xem ảnh chụp màn hình:

doc xóa các ký tự đặc biệt 2

Chú thích: Trong đoạn mã trên, bạn có thể thay đổi các ký tự đặc biệt # $% () ^ * & cho bất kỳ người nào khác mà bạn muốn xóa.

xóa các ký tự số, chữ cái hoặc các ký tự đặc biệt khác từ chuỗi văn bản

Kutools cho Excel's Xóa ký tự tính năng có thể giúp bạn nhanh chóng loại bỏ tất cả số, alpha, không phải số, không phải alpha, không in, các nhân vật cụ thể khác từ 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!

doc xóa các ký tự đặc biệt 7

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!

Nếu bạn không thành thạo với mã VBA, Kutools cho Excel'S Xóa ký tự tiện ích có thể giúp bạn hoàn thành công việc này một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, xin vui lòng như sau:

1. Chọn chuỗi văn bản mà bạn muốn xóa một số ký tự đặc biệt.

2. Nhấp chuột Kutools > bản văn > Xóa ký tự, xem ảnh chụp màn hình:

3. Trong Xóa ký tự hộp thoại, kiểm tra Tuỳ chỉnh tùy chọn theo 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:

doc xóa các ký tự đặc biệt 4

4. Và sau đó nhấp vào Ok or Đăng Nhập , các ký tự bạn đã chỉ định trong Tuỳ chỉnh hộp văn bản đã được xóa khỏi chuỗi văn bản cùng một lúc, hãy xem ảnh chụp màn hình:

doc xóa các ký tự đặc biệt 5 2 doc xóa các ký tự đặc biệt 6

Nhấp để Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!

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ông cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
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 !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọ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 dãy và cột 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, Chia ô,...)   |   ... và nhiều hơn nữa

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...

Mô 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!
Comments (11)
No ratings yet. Be the first to rate!
Linny Anthony
Linny Anthony
This comment was minimized by the moderator on the site
Excelllent .. Five Stars.. thanks a lot
Reply
0
0
Cris
Cris
This comment was minimized by the moderator on the site
Thanks for this code
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

But it is possible that that can remove specific text? like "ab", "abc", "bc" and etc.
Reply
0
0
minhys1
minhys1
This comment was minimized by the moderator on the site
With Emoji need remove, how ?
Reply
0
0
gndecastro@gmail.com
This comment was minimized by the moderator on the site
Rather than searching for specific special characters, how about if you want to search for and replace ALL special characters. In other words, how would you write the search for NOT one of the following characters: "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Reply
Report
0
0
skyyang
skyyang    
This comment was minimized by the moderator on the site
Hi, Nick,
Do you want to remove all ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 characters from the cells?
Looking forward to your reply, thank you!
Reply
Report
0
0
gndecastro@gmail.com
    skyyang
This comment was minimized by the moderator on the site
No. I want to keep only "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Reply
Report
0
0
skyyang
skyyang    
This comment was minimized by the moderator on the site
Nick,
Maybe the below VBA code can solve your problem, please try:

Sub RemoveNotAlphasNotNum()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub


Hope it can help you!
Reply
Report
0
0
Kim
Kim
This comment was minimized by the moderator on the site
Hmm I wonder, does it only work in the worksheet you've originally pasted the code in?
As for that one it only seems to work, not for any new workbook you open
Reply
0
0
skyyang
skyyang     Kim
This comment was minimized by the moderator on the site
Hello, Kim,
The VBA code can only applied in one workbook, if you want to apply it in a new workbook, you should copy and paste the code into your new workbook again.
Thank you!
Reply
Report
0
0
Kim
Kim
This comment was minimized by the moderator on the site
Hi guys,

I've applied the =removespecial(A2) code and it works perfectly in one worksheet but then in the other it gives me an invalid #NAME? error.
I checked the "format cells" and it's both on general and I've copied the same text + formula to both worksheets but it won't work.
Any clue what this might cause this?

Thanks and thank you so much for this code.
Saves me hours and hours of work!

Regards, Kim
Reply
0
0
Deepak
Deepak
This comment was minimized by the moderator on the site
Function GetWordWOSpecChar(Rng As Range)
'paste in VBA module, Use as a Formula
'Created by 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.Value, Len(Rng.Value) - (i - 1)): Exit Function
Next g
Next i

End Function
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations