Bỏ qua nội dung chính

Làm cách nào để chỉ xóa văn bản khỏi các ô chứa số và văn bản trong Excel?

Như ảnh chụp màn hình bên dưới được hiển thị, đối với những ô được trộn với số và văn bản, làm cách nào để xóa tất cả văn bản và chỉ giữ lại số trong ô? Các phương pháp trong bài viết này có thể giúp bạn.

Chỉ xóa văn bản khỏi các ô có chứa số và văn bản với chức năng Do người dùng xác định
Dễ dàng chỉ xóa văn bản khỏi các ô có chứa số và văn bản với Kutools cho Excel


Chỉ xóa văn bản khỏi các ô có chứa số và văn bản với chức năng Do người dùng xác định

Bạn cũng có thể sử dụng chức năng do Người dùng xác định bên dưới để xóa văn bản khỏi các ô được chỉ định và chỉ giữ lại số.

1. Nhấn nút Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ. Xem ảnh chụp màn hình:

Mã VBA: Chỉ xóa văn bản khỏi các ô có chứa số và văn bản

Function OnlyNums(strWord As String)
    Dim strChar As String
    Dim x As Integer
    Dim strTemp As String

    strTemp = ""
    Application.ScreenUpdating = False
    For x = 1 To Len(strWord)
        strChar = Mid(strWord, x, 1)
        If Asc(strChar) >= 48 And _
          Asc(strChar) <= 57 Then
            strTemp = strTemp & strChar
        End If
    Next
    Application.ScreenUpdating = True
    OnlyNums = Val(strTemp)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

3. Nhấn nút Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

4. Chọn một ô trống, nhập công thức = OnlyNums (A2) vào Thanh Công thức, rồi nhấn đăng ký hạng mục thi phím để nhận kết quả. Tiếp tục chọn ô kết quả, kéo Fill Handle của nó xuống để nhận tất cả kết quả. Xem ảnh chụp màn hình:

Chú thích: Trong công thức. A2 là ô bạn sẽ xóa văn bản và chỉ giữ lại số. Vui lòng thay đổi nó khi bạn cần.

Bây giờ bạn có thể thấy tất cả các văn bản đã bị xóa và chỉ số được giữ trong các ô được chỉ định.


Dễ dàng chỉ xóa văn bản khỏi các ô có chứa số và văn bản với Kutools cho Excel

Phần này sẽ giới thiệu Xóa ký tự tiện ích của Kutools cho Excel. Với tiện ích này, bạn có thể xóa tất cả các ký tự không phải số khỏi ô chỉ bằng vài cú nhấp chuột và chỉ giữ lại số trong ô. Hãy làm như sau.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Chọn các ô bạn cần xóa văn bản và chỉ giữ lại số, sau đó nhấp vào Kutools > bản văn > Xóa ký tự

2. bên trong Xóa ký tự hộp thoại, chỉ kiểm tra Không phải số và sau đó bấm vào OK .

Sau đó, tất cả các ký tự không phải số (văn bản) sẽ bị xóa khỏi các ô đã chọn ngay lập tức như hình minh họa bên dưới.

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Bài viết liên quan:

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 đầu12 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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The issue I encountered was the slowdown of my Excel upon opening.
This comment was minimized by the moderator on the site
Bonjour,

Si on veut conserver les virgules avec les chiffres, comment peut-on faire? Merci pour votre réponse
This comment was minimized by the moderator on the site
Hi Enzo,

Sorry I don't quite understand your question. For clarity, please attach a sample file or a screenshot with your data and desired results.
This comment was minimized by the moderator on the site
Hallo, zusammen
Ich finde die VBA super und genau das was ich für meinen Job benötige. Jedoch eine Frage an euch Spezialisten, wenn ich führende Nullen habe dann funktioniert die VBA bei mir nicht, gibt's da einen Trick damit dies auch geht? Grüße
This comment was minimized by the moderator on the site
Hi Rolands,
Sorry I don't quite understand what you mean. Do you want to keep the leading zeros after removing only the texts from cells?
Or you can upload a screenshot of your data here to describe the problem more clearly.
This comment was minimized by the moderator on the site
I have used excel for years but not a power worker never used Visual Basic in a spreadsheet before. This method worked absolutely first time just following the clear instructions above and saved me hours cleaning up an imported Sheet. Many thanks - much appreciated. Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations