Sub test()Dim arr, Reg As Object, brr, mat As Objectarr = Range("A1").CurrentRegion.ValueSet Reg = CreateObject("vbscript.regexp")With Reg.Pattern = "([a-zA-Z]+)(\d+)".Global = TrueFor i = 2 To UBound(arr)Set mat = .Execute(arr(i, 1))j = 0For Each M In matIf j <> mat.Count - 1 Then '位置判断Key = mat(j).submatches(1) * 1 <> mat(j + 1).submatches(1) - 1ElseKey = mat(j - 1).submatches(1) * 1 <> mat(j).submatches(1) - 1End IfIf j = 0 Then '第一个数据处理If Key Then k = 0 Else k = 1arr(i, 2) = mat(j)ElseIf j <> mat.Count - 1 Then '中间数据处理If k = 1 ThenIf Key Thenarr(i, 2) = arr(i, 2) & "~" & mat(j)k = 0End IfElsearr(i, 2) = arr(i, 2) & "," & mat(j)k = 1End IfElse '最后一个数据处理If Key Then arr(i, 2) = arr(i, 2) & "," & mat(j) Else arr(i, 2) = arr(i, 2) & "~" & mat(j)End Ifj = j + 1NextNext iEnd WithRange("A1").CurrentRegion.Value = arrEnd Sub
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
