2007版本用vba,高级的函数公式需要升级你的office,在这里保底要升级到2021版本,那么你的问题各位老哥的公式你都能用
Function diy(brr As Range)
Dim arr, reg, sols, strr, i
arr = brr
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "([0]*)([1-9]?)"
Set sols = reg.Execute(arr)
If sols.Count > 0 Then
For i = 0 To sols.Count - 2
If sols(i).submatches(0) = "" And sols(i).submatches(1) <> "" Then
strr = strr & Chr(96 + sols(i).submatches(1))
ElseIf sols(i).submatches(0) <> "" And sols(i).submatches(1) <> "" Then
strr = strr & Len(sols(i).submatches(0))
strr = strr & Chr(96 + sols(i).submatches(1))
ElseIf sols(i).submatches(0) <> "" And sols(i).submatches(1) = "" Then
strr = strr & Len(sols(i).submatches(0))
Else
strr = "数据有误"
Exit For
End If
Next
End If
diy = strr
End Function