Tạo hàm tách dãy số đầu tiên trong chuỗi
Chào các bạn, hôm nay mình sẽ giới thiệu cho các bạn hàm tách dãy số đầu tiên hoặc dãy số đầu tiên có ký tự "-" liên kết với dãy số tiếp theo. Để có hàm tách dãy số như trên, các bạn tiến hành làm theo các bước sau:
Bước 1: Tạo cơ sỡ dữ liệu gồm ký tự và số.
Bước 2: Vào môi trường lập trình VBA, các bạn vào menu INSERT -> MODULE để tạo một module, sau đó copy code dưới đây vào trong module vừa tạo.
'...CODE....
Function TACHDAYSO(ByVal CHUOI As String) As String
Dim I As Long
Dim CH As String
Dim BATDAT As Boolean
For I = 1 To Len(CHUOI)
CH = Mid(CHUOI, I, 1)
If IsNumeric(CH) Or CH = "-" Then
If Not BATDAT Then
BATDAT = True
End If
TACHDAYSO = TACHDAYSO & CH
Else
If BATDAT Then
Exit Function
End If
End If
Next I
End Function
'...END CODE...
Sau khi pate vào sẽ tương tự như hình dưới đây:
Bước 3: Sau khi hoàn thành việc copy code, các bạn vào môi trường bảng tính Excel, các bạn gõ hàm =TACHDAYSO( ô chứa chuỗi ký tự và số).
Bước 4: Tiếp theo các bạn nhấn
ENTER rồi copy công thức cho các ô còn lại và nhận kết quả:
Để tìm hiểu thêm nhiều kiến thức bổ ích về VBA, các bạn tìm hiểu tại khóa đào tạo VBA trong Excel cơ bản của công ty.
Các bạn tải File ví dụ tại đây:
Dowloand