序号编码批量格式调整（如1.1转为01.01）

laisme888

如图所示，需要将序列编码格式批量转换，请教代码如何编写？目前的思路是正则表达式。。。还请高手不吝赐教

YZC51

请参考
Public Sub ss()
[A:A].Replace ".", ".0"
End Sub

YZC51

或者

小花鹿

最好用正则
来个另类的：
Sub test()
Dim s, i&
s = "1,2,13,1,x,4"
For i = Len(s) To 1 Step -1
    If IsNumeric(Mid(s, i, 1)) Then
        s = Left(s, i - 1) & "0" & Mid(s, i)
    End If
Next i
MsgBox s
End Sub

YZC51

再者
Public Sub s1s()
tt = "123456789"
For i = 1 To 9
    [A:A].Replace Mid(tt, i, 1), "0" & Mid(tt, i, 1)
Next
End Sub

laisme888

YZC51 发表于 2019-12-2 21:12
再者
Public Sub s1s()
tt = "123456789"

这个思路非常巧妙，但是有个问题，1.12会变成01.0102，这个不是我预期的效果，预期的效果是01.12

laisme888

这个问题一开始想到的就是用替换，把1替换成01，但是如果有1.12形式的，会变成01.0102，预期的效果是01.12,不知道有什么好方法可以解决这个问题

月关

1. Sub test()
   
2. arr = [a1].CurrentRegion
   
3. For i = 2 To UBound(arr)
   
4. t = Split(arr(i, 1), ".")
   
5. For ii = 0 To UBound(t)
   
6. If IsNumeric(t(ii)) And Len(t(ii)) = 1 Then t(ii) = 0 & t(ii)
   
7. Next
   
8. arr(i, 2) = Join(t, ".")
   
9. Next
   
10. [a1].CurrentRegion = arr
    
11. End Sub

复制代码

YZC51

laisme888 发表于 2019-12-3 09:58
这个思路非常巧妙，但是有个问题，1.12会变成01.0102，这个不是我预期的效果，预期的效果是01.12

你那原始数据的【预期效果】如此！

YZC51

请参考