在随机的字母和数字字符串中查找最后一个字母

Finding the last letter in a random string of letters and number

我希望能够在一个单元格中包含一个由数字和字母组成的字符串。然后能够拆分它,以便(包括)最后一个字母的文本位于一个单元格中,然后是下一个单元格中的剩余数字。

例如,如果字符串是 "sdgs214njkdsf123",那么 "sdgs214njkdsf" 将在一个单元格中,“123”将在另一个单元格中。

假设值在 A1 中:

Sub Splitter()
a = Range("A1").Value
For i = Len(a) To 1 Step -1
    If Not IsNumeric(Mid(a, i, 1)) Then Exit For
Next i
part1 = Left(a, i)
part2 = Right(a, Len(a) - i)
End Sub