关于末位数字的序号递增

得瑟的猫

请高手帮帮忙，在选定区域内批量修改，修改后的格式为：“Q13-042S-DY-”保持不变，编号末尾的数字（最后一个“-”后面的01、02……，1~9必须是0开头）按照先从左到右，然后从上到下的递增顺序排序，递增量为1。


工作簿2.zip (7.26 KB, 下载次数: 3)

2018-9-16 10:49 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.   Dim r%, i%, j%
   
3.   Dim arr, brr
   
4.   Dim rng As Range
   
5.   x = 0
   
6.   With Worksheets("sheet1")
   
7.     For Each rng In Selection
   
8.       If rng.Value <> "" Then
   
9.         x = x + 1
   
10.         n = InStrRev(rng.Value, "-")
    
11.         rng.Value = Left(rng.Value, n) & Format(x, "00")
    
12.       End If
    
13.     Next
    
14.   End With
    
15. End Sub
    

复制代码

chxw68

详见附件。

得瑟的猫

chxw68 发表于 2018-9-16 11:35
详见附件。

完美运行，非常感谢老师！