Hôm nay trong bài viết này, chúng tôi sẽ trình bày cách xóa các ký tự không phải chữ và số khỏi ô trong excel. Đó là một vấn đề rất phổ biến, đặc biệt là khi bạn đang xử lý dữ liệu thô. Các số, văn bản và các ký tự không phải chữ và số được trộn lẫn trong các ô và đôi khi chúng ta cần tách các văn bản và số đó ra. Có nhiều công thức để xóa các ký tự không phải chữ và số khỏi ô trong excel bằng cách sử dụng mã lập trình VBA và Chức năng do người dùng xác định. Chúng ta sẽ tìm hiểu chúng trong bài tập này.
Tải xuống sách thực hành này để thực hiện nhiệm vụ khi bạn đang đọc bài viết này.
2 cách phù hợp để loại bỏ các ký tự không phải chữ và số trong Excel
Hãy tưởng tượng một tình huống khi bạn nhận được một tập dữ liệu thô để phân tích và bạn thấy rằng các số và văn bản được trộn lẫn với các ký tự không phải chữ và số trong một cột. Để làm việc thuận tiện, bạn cần xóa chúng khỏi chuỗi. Chạy mã VBA hoặc áp dụng một chức năng do người dùng xác định có thể hữu ích trong vấn đề này. Ở đây trong phần này, chúng tôi sẽ trình bày các phương pháp phù hợp để thực hiện công việc đó.
1. Chạy mã VBA để xóa các ký tự không phải chữ và số
Bạn có thể sử dụng VBA mã macro để xóa các ký tự không phải chữ và số khỏi các ô trong excel. Chúng tôi sẽ trình bày phương pháp này bên dưới.
Bước 1:
- Đầu tiên, chúng tôi sẽ mở Cửa sổ Microsoft Visual Basic cho Ứng dụng. Để làm điều đó, hãy nhấn Alt + 11.
- Một cửa sổ mới được mở. Bây giờ hãy nhấp vào Chèn và chọn Mô-đun để mở một mô-đun mới.
Bước 2:
- Trong mô-đun mới mở, Chèn mã VBA để xóa các ký tự không phải chữ và số. Chúng tôi đã cung cấp mã cho bạn. Bạn chỉ có thể sao chép mã này và sử dụng nó trong trang tính của mình. Mã là,
Sub VBA_to_remove()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Non-alphanumeric text remove"
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
- Bây giờ hãy chạy mã bằng cách nhấn F5 . Chọn phạm vi của bạn và nhấp vào OK để kết thúc hoạt động.
- Chúng tôi đã xóa thành công các ký tự không phải chữ và số đó khỏi các ô của mình.
Đọc thêm: Cách xóa các ký tự không phải số khỏi ô trong Excel
Bài đọc tương tự:
- Cách Loại bỏ Ký tự Trống trong Excel (5 Phương pháp)
- Xóa các ký tự cụ thể trong Excel (5 cách)
- Cách loại bỏ các ký tự không in được trong Excel (4 cách dễ dàng)
- Xóa Dấu ngoặc kép trong Excel (6 cách)
- Cách Loại bỏ Dấu nháy đơn trong Excel (5 Phương pháp Dễ dàng)
2. Áp dụng một chức năng do người dùng xác định để xóa các ký tự không phải chữ và số
Vì excel không có bất kỳ chức năng riêng biệt nào để xóa các ký tự không phải chữ và số khỏi các ô, bạn có thể tạo một hàm khác biệt! Đúng vậy, bạn có thể xác định một chức năng tùy chỉnh của riêng mình để thực hiện công việc của mình. Bạn cần viết mã VBA để làm điều đó. Chúng tôi sẽ thảo luận về quá trình này bằng cách sử dụng các bước dưới đây. Để biết thêm về các chức năng tùy chỉnh, hãy Nhấp vào đây!
Bước 1:
- Trước tiên, hãy truy cập Microsoft Cửa sổ Visual Basic cho ứng dụng bằng cách nhấn Alt + F11 .
- Viết ra mã cho UFD của bạn. Chúng tôi đã đặt tên cho hàm của mình là RemoveNonNlphaNumeric . Và mã để tạo chức năng này là,
Function RemoveNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String
Dim xStrMode As String
Dim xInt As Integer
xStrMode = "[A-Z.a-z 0-9]"
xStrR = ""
For xInt = 1 To Len(xStr)
xCh = Mid(xStr, xInt, 1)
If xCh Like xStrMode Then
xStrR = xStrR & xCh
End If
Next
RemoveNonAlphaNumeric = xStrR
End Function
Bước 2:
- Mã của chúng tôi được viết. Bây giờ quay lại trang tính và nhập hàm =RemoveNonAlphaNumeric . Chúng ta có thể thấy rằng hàm đã được tạo.
- Bây giờ hãy áp dụng hàm trong ô C4 . Chức năng là,
=RemoveNonAlphaNumeric(B4)
- Nhấn ENTER để nhận được kết quả.
- Chức năng tùy chỉnh của chúng tôi đang hoạt động bình thường. Bây giờ chúng ta sẽ áp dụng hàm này cho các ô còn lại để có kết quả cuối cùng.
Đọc thêm: Cách xóa ký tự trong Excel (6 phương pháp)
Những điều cần nhớ
👉 Tạo công thức tùy chỉnh có nhiều hạn chế hơn so với macro VBA thông thường. Nó không thể thay đổi cấu trúc hoặc định dạng của trang tính hoặc ô.
👉 Nếu bạn không hiển thị tab nhà phát triển của mình, bạn có thể kích hoạt nó bằng cách sử dụng hướng dẫn này.
Thanh công cụ truy cập nhanh được tùy chỉnh → Lệnh khác → Tùy chỉnh ruy-băng → Nhà phát triển → OK
Kết luận
Trong hướng dẫn này, chúng tôi đã đi qua hai cách tiếp cận khác nhau. Chúng tôi hoan nghênh bạn bình luận nếu bạn có bất kỳ câu hỏi hoặc thắc mắc nào. Để lại phản hồi của bạn trong phần bình luận. Cảm ơn bạn đã ghé thăm ExcelDemy. Tiếp tục học hỏi!
Các bài viết liên quan
- Xóa các ký tự từ bên phải trong Excel (5 cách)
- Cách loại bỏ ký tự cuối cùng trong Excel (6 cách dễ nhất)
- Xóa Dấu gạch ngang khỏi Số điện thoại trong Excel (4 cách)
- Cách Loại bỏ Ký tự Đầu tiên trong Excel (6 Phương pháp)
- Cách xóa các ký tự khỏi bên trái trong Excel (6 cách)