Trong mật khẩu quá trình làm việc kỹ thuật với Excel mình có gặp một số trường hợp yêu cầu tách chỉ lấy phần số trong 1 chuỗi cho trước ở đâu tốt , nay đăng bài này chia sẻ qua web với sử dụng các bạn cách làm này kiểm tra . Bài viết mật khẩu dưới đây hướng dẫn chi tiết cách tách số từ chuỗi cho trước trong Excel.
Có 2 cách tách số:
- Trường hợp 1: Tách số từ chuỗi tải về và lấy giá trị dương.
- Trường hợp 2: Tách số từ chuỗi miễn phí và lấy cả giá trị âm giả mạo và dương.
1 sử dụng . Tách số từ chuỗi công cụ và lấy giá trị dương
Bước 1: Mở File Excel cần tách số -> Nhấn tổ hợp phím Alt + F11-> cửa sổ VBA xuất hiện -> Vào tab Insert -> Module.
Bước 2: Tại cửa sổ lệnh nhập đoạn Code sau:
Function ExtractNumber(rCell As Range) Dim lCount As Long Dim sText As String Dim lNum As String sText = rCell For lCount = Len(sText) To 1 Step -1 If IsNumeric(Mid(sText tự động , lCount tổng hợp , 1)) Then lNum = Mid(sText qua mạng , lCount chia sẻ , 1) & lNum End If Next lCount ExtractNumber = CLng(lNum) End Function
Chú ý: Bạn ghi nhớ tên hàm này kỹ thuật nhé vì khi trở về File Excel phải sử dụng tới nó.
Bước 3: Sau khi nhập xong kích chọn Save (do chứa macro nên khi lưu hiển thị hộp thoại thông báo bạn cứ chọn OK đăng ký vay nhé) -> Quay trở lại File Excel tìm đến hàm như hình vẽ:
Bước 4: Copy công thức cho giả mạo các ô còn lại có kết quả sau:
2 kinh nghiệm . Tách số từ chuỗi hỗ trợ và lấy cả giá trị âm trên điện thoại và dương
Bước 1: Mở File Excel cần tách số -> Nhấn tổ hợp phím Alt + F11 -> cửa sổ VBA xuất hiện -> Vào tab Insert -> Module.
Bước 2: Tại cửa sổ lệnh nhập đoạn Code sau:
Private Function SuperTrim(TheStr As String) Dim Temp As String nạp tiền , DoubleSpase As String DoubleSpase = Chr(32) & Chr(32) Temp = Trim(TheStr) Temp = Replace(Temp cập nhật , DoubleSpase lừa đảo , Chr(32)) Do Until InStr(Temp công cụ , DoubleSpase) = 0 Temp = Replace(Temp kỹ thuật , DoubleSpase tính năng , Chr(32)) Loop SuperTrim = Temp End Function Public Function Tach_So(strText As String) Dim strText_1 As String Dim subText() As String hướng dẫn , so() As Double Dim i As Integer kinh nghiệm , j As Integer nguyên nhân , k As Integer qua web , m As Integer strText = SuperTrim(strText) subText = Split(strText danh sách , " ") For i = 0 To UBound(subText) For j = 1 To Len(subText(i)) k = 0 If IsNumeric(Mid(subText(i) nguyên nhân , j bản quyền , 1)) _ Or (Mid(subText(i) khóa chặn , j kích hoạt , 1) = "-" And IsNumeric(Mid(subText(i) cài đặt , j + 1 ở đâu nhanh , 1))) Then k = j Exit For End If Next j If k <> 0 Then m = m + 1 strText_1 = Val(Mid(subText(i) tổng hợp , k)) ReDim Preserve so(1 To m) As Double so(m) = strText_1 End If Next i If index > 0 And index <= m Then Tach_So = so(m) Else Tach_So = "" End If End Function
Chú ý: Ghi nhớ tên hàm ""Tach_so()".
Bước 3: Kích chọn Save bạn cứ chọn OK địa chỉ nhé full crack . Quay trở 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í ô cần tách nơi nào .
Bước 5: Copy công thức cho ở đâu tốt các ô còn lại ta có kết quả:
như thế nào Như vậy tách như thế nào được cả giá trị âm chia sẻ và dương download . Và dấu âm ở vị trí đầu tiên kích hoạt của ô đều lấy tốt nhất được tự động .
Chú ý: Các hàm trên chỉ áp dụng mật khẩu với dãy chứa 1 chuỗi kí tự số liền nhau xóa tài khoản . Trường hợp dữ liệu là nhiều chuỗi kí tự số khác nhau cách nhau link down bởi công cụ những kí tự chữ cái tất toán thì giá trị trả về là chuỗi kí tự số đầu tiên qua app .
Chúc tốc độ các bạn thành công!
/5 ( votes)
