Cách xóa chữ trong Excel chỉ để lại ký tự số của chuỗi

Giả sử bạn có một trang tính với nhiều dữ liệu như sau ABCD4578124YUIOH, bạn muốn xóa các chữ như ABCD, YUIOH và chỉ để lại các ký tự số trong chuỗi. Tất nhiên, bạn có thể xóa từng ký tự một, nhưng chúng mình sẽ hướng dẫn cách xóa chữ trong Excel và chỉ để lại ký tự số trong chuỗi tự động và ngược lại. Cùng xem nhé!

Cách xóa chữ trong Excel chỉ để lại ký tự số trong chuỗi bằng VBA

Để xóa các ký tự không phải số khỏi một dải ô có mã VBA, bạn vui lòng thực hiện như sau:

Bước 1: Bấm Developer -> Visual Basic để mở cửa sổ Microsoft Visual Basic cho ứng dụng. Trong cửa sổ Microsoft Visual Basic for applications, bấm Insert -> Module, sau đó sao chép và dán đoạn mã sau vào modul:

Sub RemoveNotNum() 'Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range Dim xTitleId As String Dim xOut As String Dim xTemp As String Dim xStr As String Dim i As Integer On Error Resume Next xTitleId = "Excel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) On Error GoTo 0 ' Reset error handling If WorkRng Is Nothing Then Exit Sub ' User canceled For Each Rng In WorkRng xOut = "" For i = 1 To Len(Rng.Value) xTemp = Mid(Rng.Value, i, 1) If xTemp Like "[0-9]" Then xStr = xTemp Else xStr = "" End If xOut = xOut & xStr Next i Rng.Value = xOut Next Rng End Sub

Bước 2: Sau đó, nhấp vào phím F5 để chạy code của bạn. Tất cả những ký tự không phải số trong phạm vi bạn chọn sẽ bị xóa như hình dưới đây:

Nếu các số có dấu thập phân, bạn có thể sử dụng VBA sau:

Sub RemoveNotNum() ' Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range Dim xOut As String Dim xTemp As String Dim xStr As String Dim i As Integer On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", "Select Range", WorkRng.Address, Type:=8) On Error GoTo 0 ' Reset error handling If WorkRng Is Nothing Then Exit Sub ' User canceled For Each Rng In WorkRng xOut = "" For i = 1 To Len(Rng.Value) xTemp = Mid(Rng.Value, i, 1) If xTemp Like "[0-9.]" Then xStr = xTemp Else xStr = "" End If xOut = xOut & xStr Next i Rng.Value = xOut Next Rng End Sub

Bạn có thể xem kết quả như ảnh chụp màn hình dưới đây:

Cách xóa các ký tự số ra khỏi ô trong Excel

Bây giờ, bạn có một trang tính chứa rất nhiều thông tin dữ liệu chứa cả ký tự chữ cái và ký tự số. Bạn muốn giữ lại các ký tự chữ và loại bỏ các ký tự số cho tất cả các dữ liệu đó. Chẳng hạn như chuyển đổi James987den thành Jamesdenm, bạn phải làm thế nào?

Nếu bạn đã quen với mã VBA, bạn có thể sử dụng phương pháp sau:

Bước 1: Bấm Developer -> Visual Basic để mở cửa sổ Microsoft Visual Basic cho ứng dụng. Trong cửa sổ VBA, bấm Insert > Module, sau đó sao chép và dán đoạn mã sau vào modul:

Sub RemoveNum() ' Updateby20131129 Dim Rng As Range Dim WorkRng As Range Dim xOut As String Dim xTemp As String Dim xStr As String Dim i As Integer On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", "Select Range", WorkRng.Address, Type:=8) On Error GoTo 0 ' Reset error handling If WorkRng Is Nothing Then Exit Sub ' User canceled For Each Rng In WorkRng xOut = "" For i = 1 To Len(Rng.Value) xTemp = Mid(Rng.Value, i, 1) If Not xTemp Like "[0-9.]" Then xStr = xTemp Else xStr = "" End If xOut = xOut & xStr Next i Rng.Value = xOut Next Rng End Sub

Bước 2: Nhấn F5 để chạy mã, sau đó bạn sẽ thu được bảng tính chứa các chuỗi đã bị xóa bỏ số.

->

Cách xóa các ký tự không phải chữ và số trong Excel

Giả sử có một dải dữ liệu, chẳng hạn như JAMES0898 # 4% ^ {}, bây giờ bạn chỉ muốn giữ lại các ký tự chữ và số (JAMES0898). Bạn có thể thực hiện một trong hai cách sau:

Xóa các ký tự không phải chữ và số bằng Hàm tùy chỉnh

Để xóa cá ký tự không cần thiết ra khỏi ô, bạn có thể tạo một hàm tùy chỉnh.

Bước 1: Bấm phím tắt Alt + F11 để mở trình VBA, sau đó nhấn Insert > Module và sao chép và dán đoạn mã sau vào modul:

Function DeleteNonAlphaNumeric(xStr As String) As String Dim xStrR As String Dim xCh As String Dim xStrMode As String Dim xInt As Integer xStrMode = "[A-Za-z0-9]" ' Chỉ số không dấu và không cần khoảng trắng xStrR = "" For xInt = 1 To Len(xStr) xCh = Mid(xStr, xInt, 1) If xCh Like xStrMode Then xStrR = xStrR & xCh End If Next DeleteNonAlphaNumeric = xStrR End Function

Bước 2: Bây giờ quay lại trang tính, chọn một ô trống và nhập công thức sau:

=DeleteNonAlphaNumeric(B3)

Sau đó kéo xuống để áp dụng công thức này cho các ô khác. Ta thu được kết quả như sau:

Xóa các ký tự không phải chữ và số bằng mã VBA

Ngoài ra, bạn có thể sử dụng mã VBA ngắn sau đây để xóa các ký tự không phải chữ và số ra khỏi ô nhanh chóng:

Bước 1: Mở cửa sổ Microsoft Visual Basic trên ứng dụng Excel.

Bước 2: Bấm Insert > Module, sau đó sao chép và dán đoạn mã sau vào modul:

Sub RemoveNotAlphasNotNum() ' Updateby2014128 Dim Rng As Range Dim WorkRng As Range Dim xOut As String Dim xTemp As String Dim xStr As String Dim i As Integer On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", "Select Range", WorkRng.Address, Type:=8) On Error GoTo 0 ' Reset error handling If WorkRng Is Nothing Then Exit Sub ' User canceled For Each Rng In WorkRng xOut = "" For i = 1 To Len(Rng.Value) xTemp = Mid(Rng.Value, i, 1) If xTemp Like "[a-zA-Z0-9.]" Then xStr = xTemp Else xStr = "" End If xOut = xOut & xStr Next i Rng.Value = xOut Next Rng End Sub

Bước 3: Nhấn phím F5 hoặc nhấp vào nút Run để thực thi mã.

Bước 4: Sau đó, chọn một phạm vi bạn muốn xóa tất cả các ký tự không phải chữ và số trong hộp thoại bật lên và nhấp vào nút OK .

Bây giờ tất cả các ký tự không phải chữ và số đã bị xóa khỏi phạm vi đã chọn.

Như bạn thấy VBA không khó, nhưng có thể tối ưu tối đa hiệu suất thực hiện công việc và tiết kiệm thời gian. Vậy tại sao bạn không học VBA ngay để tự động hóa công việc hàng ngày hiệu quả. Bạn có thể tham khảo một số khóa học tại Gitiho sau:

Cách xóa các ký tự không thể in được trong Excel bằng hàm CLEAN

Nếu bạn làm việc với các tệp đến từ một nguồn không phải Excel hoặc bạn dán thông tin từ một ứng dụng khác vào các ô trang tính, đôi khi bạn có một số ký tự không in được hoặc không hiển thị được trong trang tính của mình.

Để làm cho trang tính của bạn sạch và đẹp hơn, bạn cần xóa các ký tự không cần thiết đó. Hàm CLEAN có thể xóa tất cả các ký tự không thể in ra khỏi ô. Ví dụ, tôi có Cột C (C2: C11) cần loại bỏ các ký tự không in được. Bạn có thể làm như hướng dẫn sau:

Bước 1: Chọn một ô trống D2 liền kề với C2 và nhập:

=CLEAN(C2)

Bước 2: Nhấn phím Enter .

Bước 3: Và sau đó kéo công thức trong phạm vi ô mà bạn muốn xóa các ký tự không in được.

Kết luận

Hy vọng qua bài viết này, bạn đã biết cách xóa chữ trong Excel hoặc các ký tự không cần thiết khác trong chuỗi. Để đọc thêm những mẹo và thủ thuật khác trong Excel bạn hãy truy cập Blog Excel của Gitiho nhé.

Gitiho chân thành cảm ơn bạn đọc!