Trong quá trình thao tác làm việc với Excel mình có gặp một số trường phù hợp yêu cầu bóc tách chỉ đem phần số trong một chuỗi mang đến trước, nay đăng bài bác này share với các bạn cách làm này. Bài viết dưới trên đây hướng dẫn chi tiết cách bóc tách số tự chuỗi cho trước vào Excel.
Bạn đang xem: Cách tách số ra khỏi chuỗi trong excel 2010
Có 2 cách tách bóc số:
- Trường hòa hợp 1: bóc tách số từ bỏ chuỗi với lấy quý hiếm dương.
- Trường phù hợp 2: bóc số trường đoản cú chuỗi cùng lấy cả giá trị âm và dương.
1. Bóc số tự chuỗi và lấy giá trị dương
Bước 1: Mở file Excel cần tách bóc số -> Nhấn tổng hợp phím Alt + F11-> cửa sổ VBA mở ra -> Vào tab Insert -> Module.
Bước 2: Tại hành lang cửa số lệnh nhập đoạn Code sau:
Function Extract
Number(r
Cell As Range)Dim l
Count As Long
Dim s
Text As String
Dim l
Num As Strings
Text = r
Cell
For l
Count = Len(s
Text) khổng lồ 1 Step -1If Is
Numeric(Mid(s
Text, l
Count, 1)) Thenl
Num = Mid(s
Text, l
Count, 1) và l
Num
End If
Next l
Count
Extract
Number = CLng(l
Num)End FunctionChú ý: Bạn ghi lưu giữ tên hàm này nhé vì khi trở về File Excel phải áp dụng tới nó.
Bước 3: Sau khi nhập dứt kích chọn Save (do đựng macro nên khi lưu hiển thị hộp thoại thông báo bạn cứ chọn OK nhé) -> trở về File Excel tìm về hàm như hình vẽ:
Bước 4: Copy công thức cho những ô sót lại có kết quả sau:
2. Tách bóc số từ chuỗi cùng lấy cả quý hiếm âm với dương
Bước 1: Mở file Excel cần tách bóc số -> Nhấn tổ hợp phím Alt + F11 -> cửa sổ VBA mở ra -> Vào tab Insert -> Module.
Bước 2: Tại hành lang cửa số lệnh nhập đoạn Code sau:
Private Function Super
Trim(The
Str As String)Dim Temp As String, Double
Spase As String
Double
Spase = Chr(32) & Chr(32)Temp = Trim(The
Str)Temp = Replace(Temp, Double
Spase, Chr(32))Do Until In
Str(Temp, Double
Spase) = 0Temp = Replace(Temp, Double
Spase, Chr(32))Loop
Super
Trim = Temp
End Function
Public Function Tach_So(str
Text As String)Dim str
Text_1 As String
Dim sub
Text() As String, so() As Double
Dim i As Integer, j As Integer, k As Integer, m As Integerstr
Text = Super
Trim(str
Text)sub
Text = Split(str
Text, " ")For i = 0 lớn UBound(sub
Text)For j = 1 to lớn Len(sub
Text(i))k = 0If Is
Numeric(Mid(sub
Text(i), j, 1)) _Or (Mid(sub
Text(i), j, 1) = "-" and Is
Numeric(Mid(sub
Text(i), j + 1, 1))) Thenk = j
Exit For
End If
Next j
If k 0 Thenm = m + 1str
Text_1 = Val(Mid(sub
Text(i), k))Re
Dim Preserve so(1 lớn m) As Doubleso(m) = str
Text_1End If
Next i
If index > 0 và index Chú ý: Ghi ghi nhớ tên hàm ""Tach_so()".
Bước 3: Kích chọn Save các bạn cứ chọn OK nhé. Quay lại file Excel chọn hàm Tach_so() như hình vẽ:
Bước 4: Hàm Tach_so() chỉ có 1 tham số là vị tí ô đề nghị tách.
Bước 5: Copy công thức cho các ô còn lại ta bao gồm kết quả:
Như vậy tách bóc được cả cực hiếm âm cùng dương. Cùng dấu âm sinh hoạt vị trí đầu tiên của ô đa số lấy được.
Chú ý: Các hàm bên trên chỉ vận dụng với dãy cất 1 chuỗi kí từ số ngay lập tức nhau. Ngôi trường hợp tài liệu là nhiều chuỗi kí trường đoản cú số khác biệt cách nhau vị những kí tự vần âm thì quý hiếm trả về là chuỗi kí từ số đầu tiên.
Bạn được giao một bảng dữ liệu chứa thông tin người sử dụng và được yêu cầu chỉ mang phần số (số năng lượng điện thoại, ID khách hàng, số CMND, năm sinh….) nhằm mục tiêu trích xuất những dữ liệu này về file tính chất để giao dịch thanh toán hoặc liên hệ. Các bạn sẽ làm cố kỉnh nào để bóc số trong một bảng tài liệu lớn? Hãy theo dõi bài viết sau để biết cách thực hiện nhé.
Ví dụ ta có bảng tài liệu như hình dưới. Yêu phải cần tách số chứng tỏ thư của từng fan ra. Do dữ liệu không nhất quán nên ta sẽ không còn thể sử dụng những hàm bóc ký trường đoản cú cơ phiên bản như RIGHT, MID, LEFT được. Các bạn hãy có tác dụng theo các bước sau để tách nhé.
Bước 1: Đầu tiên chúng ta cần sử dụng tổng hợp phím tắt Alt + F11 để xuất hiện sổ Microsoft Visual Basic for Applications. Sau đó chúng ta chọn thẻ Insert trên thanh công cụ. Thanh cuộn hiện tại ra các bạn chọn mục Module.
Bước 2: Tiếp theo, chúng ta bôi đen toàn thể đoạn code sau rồi nhấn chuột bắt buộc và lựa chọn Copy hoặc sử dụng tổng hợp phím tắt Ctrl + C để sao chép.
Function Extract
Number(r
Cell As Range)Dim l
Count As Long
Dim s
Text As String
Dim l
Num As Strings
Text = r
Cell
For l
Count = Len(s
Text) to 1 Step -1If Is
Numeric(Mid(s
Text, l
Count, 1)) Thenl
Num = Mid(s
Text, l
Count, 1) và l
Num
End If
Next l
Count
Extract
Number = CLng(l
Num)End Function
Bước 3: Quay lại hành lang cửa số Module vừa được mở ra, chúng ta nhấn chuột đề nghị rồi chọn Paste hoặc sử dụng tổng hợp phím tắt Ctrl + V nên dán đoạn code được xào luộc ở bên trên vào đây.
Xem thêm: Top 7 phần mềm quản lý kết quả xét nghiệm miễn phí so với phần mềm trả tiền
Bước 4: chỉ việc như vậy là hàm Extract
Number vẫn được tiếp tế Excel của bạn. Hiện thời quay về trang tính chúng ta sử dụng phương pháp sau:
=Extract
Number(B2)
Sao chép công thức cho những đối tượng bên dưới ta đã thu được công dụng là số chứng tỏ thư quần chúng của từng bạn đã được tách ra một bí quyết nhanh chóng.
Như vậy, nội dung bài viết trên vẫn hướng dẫn chúng ta cách tách bóc số thoát khỏi chuỗi ký kết tự vào Excel. Hy vọng nội dung bài viết sẽ hữu ích với chúng ta trong quá trình làm việc. Chúc các bạn thành công!