如何对调字符串中非数字部分?

作者：绿色风分类：时间：2022-08-17 浏览：122

楼主
liuguansky

Q:一字符串，字符与数字混编，如“kd23zb823d2a"，欲将字符串中的所有字符按当前小串的顺序前后颠倒，但数字不能改变顺序与序列。举例即kd与a互换位置，zb与d互换，但。。23.。823.2.的顺序不能变。
A:用如下自定义函数可以实现:

Function ConStrN(rng As Range) As String
Application.Volatile
Dim StrI$, m, i%, J%, k%, arr(), LN As Boolean, RN As Boolean, Strtmp$
StrI = rng.Value
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "([^\d]+)|(\d+)" '获取数字段与非数字段
If .test(StrI) Then
For Each m In .Execute(StrI)
k = k + 1
ReDim Preserve arr(1 To 1, 1 To k) '赋值给数组
arr(1, k) = m
Next
End If
End With
If k > 3 Then
LN = VBA.IsNumeric(Left(StrI, 1)): RN = VBA.IsNumeric(Right(StrI, 1))
For i = 1 - LN * 1 To k \ 2 Step 2 '循环进行置换
J = k - i + IIf(LN, 2, 1) + (RN * 1)
Strtmp = arr(1, i)
arr(1, i) = arr(1, J)
arr(1, J) = Strtmp
Next
For i = 1 To k
ConStrN = ConStrN & arr(1, i)
Next
Else: ConStrN = StrI
End If
End Function

2楼
亡者天下

要是楼主把关键部分的语句解释一下就好了！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表