Tách chuỗi đa dạng (1 người xem)

[lanp900]

Tôi có một số chuỗi cần cắt bỏ phần ký tự là chữ cái cuối mỗi chuỗi, khổ cái chuỗi đa dạng quá nên lúng túng. Xin các anh chị giúp tôi với.

 

[Quang_Hải]

Tôi có một số chuỗi cần cắt bỏ phần ký tự là chữ cái cuối mỗi chuỗi, khổ cái chuỗi đa dạng quá nên lúng túng. Xin các anh chị giúp tôi với.

Hàm thì mình không biết nhưng tách bằng hàm tự tạo thì cũng làm được thế này

Function tach(cell As Range)
Dim i
  If IsNumeric(Right(cell, 3)) Then
    tach = cell
  Else
    For i = Len(cell) To 1 Step -1
      If IsNumeric(Mid(cell, i - 1, 1)) Then
        If IsNumeric(Mid(cell, i - 2, 1)) Then
          tach = Left(cell, i - 1)
        Exit For
      End If
    End If
  Next
End If
End Function