let 源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content], 已添加自定义 = Table.AddColumn(源, "最后四位数字", each Text.Select([列1],{"0".."9"})), 已提取结尾字符 = Table.TransformColumns(已添加自定义, {{"最后四位数字", each Text.End(_, 4), type text}}) in 已提取结尾字符
Option Explicit Sub abc() Dim a, i, j, t, s s = "0123456789" a = [a1].CurrentRegion.Resize(, 1).Value For i = 1 To UBound(a) For j = 1 To Len(a(i, 1)) If InStr(s, Mid(a(i, 1), j, 1)) = 0 Then _ Mid(a(i, 1), j, 1) = Space(1) Next t = Split(a(i, 1)) For j = UBound(t) To 0 Step -1 If Len(t(j)) = 4 Then a(i, 1) = t(j): Exit For Next If j = -1 Then a(i, 1) = "?" Next [c1].Resize(UBound(a)) = a End Sub