Function tách chữ trong chuỗi

Ứng dụng:Dùng khi cần tách chữ khỏi chuối, ví dụ:Mã bản vẽ ABCD1, ABCD8,GBHCD70...đều có số ở cuối nhưng chỉ cần các ký tự chữ để Sum hoặc Index thông tin trong data.

Nếu Function này không được tích hợp trong add-in thì phải lưu trữ trong file hoặc chỉ dùng khi có file chưa function này đang mở.

Public Function GetText(CellRef As String)

Dim StringLength As Integer

StringLength = Len(CellRef)

For i = 1 To StringLength

If Not (IsNumeric(Mid(CellRef, i, 1))) Then Result = Result & Mid(CellRef, i, 1)

Next i

GetText = Result

End Function

Kết quả:

    Khoảng trắng cũng được tính là text.