Trong khóa chặn quá trình làm việc lừa đảo 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 tốt nhất , nay đăng bài này chia sẻ danh sách với cập nhật các bạn cách làm này nhanh nhất . Bài viết qua app 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 qua mạng và lấy giá trị dương.
- Trường hợp 2: Tách số từ chuỗi đăng ký vay và lấy cả giá trị âm qua web và dương.
1 an toàn . Tách số từ chuỗi xóa tài khoản 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 địa chỉ , lCount tải về , 1)) Then lNum = Mid(sText kiểm tra , lCount tất toán , 1) & lNum End If Next lCount ExtractNumber = CLng(lNum) End Function
Chú ý: Bạn ghi nhớ tên hàm này giả mạo 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 nạp tiền 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 tự động các ô còn lại có kết quả sau:
2 chia sẻ . Tách số từ chuỗi giả mạo và lấy cả giá trị âm dữ liệu 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 tổng hợp , DoubleSpase As String DoubleSpase = Chr(32) & Chr(32) Temp = Trim(TheStr) Temp = Replace(Temp tốt nhất , DoubleSpase sửa lỗi , Chr(32)) Do Until InStr(Temp hướng dẫn , DoubleSpase) = 0 Temp = Replace(Temp kích hoạt , DoubleSpase mới nhất , 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 đăng ký vay , j As Integer quản lý , k As Integer giảm giá , m As Integer strText = SuperTrim(strText) subText = Split(strText tải về , " ") For i = 0 To UBound(subText) For j = 1 To Len(subText(i)) k = 0 If IsNumeric(Mid(subText(i) xóa tài khoản , j thanh toán , 1)) _ Or (Mid(subText(i) hướng dẫn , j qua app , 1) = "-" And IsNumeric(Mid(subText(i) tốt nhất , j + 1 mới nhất , 1))) Then k = j Exit For End If Next j If k <> 0 Then m = m + 1 strText_1 = Val(Mid(subText(i) bản quyền , 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 miễn phí nhé mẹo vặt . 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 tốt nhất .
Bước 5: Copy công thức cho tăng tốc các ô còn lại ta có kết quả:
danh sách Như vậy tách qua app được cả giá trị âm khóa chặn và dương ở đâu uy tín . Và dấu âm ở vị trí đầu tiên trực tuyến của ô đều lấy tính năng được kinh nghiệm .
Chú ý: Các hàm trên chỉ áp dụng tổng hợp với dãy chứa 1 chuỗi kí tự số liền nhau cài đặt . Trường hợp dữ liệu là nhiều chuỗi kí tự số khác nhau cách nhau kích hoạt bởi tính năng những kí tự chữ cái ở đâu tốt thì giá trị trả về là chuỗi kí tự số đầu tiên địa chỉ .
Chúc tải về các bạn thành công!
4.9/5 (80 votes)