循环填充

xing_chen

编号	序号
1	0
1	1
1	2
1	3
1	4
1	5
2	0
2	1
2	2
2	3
3	0
3	1
4	0
4	1

根据左列的编号，填写右列序号0-6。请论坛中高手帮忙写个VBA代码。谢谢

Blue20180125

1. Option Explicit
   
2. Sub Add_Index()
   
3.     Dim id_number As Object
   
4.     Dim one As Variant
   
5.     Set id_number = CreateObject("Scripting.Dictionary")
   
6.     For Each one In Selection
   
7.         If Not id_number.Exists(one.Value) Then
   
8.             id_number.Add one.Value, 0
   
9.         Else
   
10.             id_number(one.Value) = id_number(one.Value) + 1
    
11.         End If
    
12.         one.Offset(0, 1).Value = id_number(one.Value)
    
13.     Next one
    
14. End Sub

复制代码

xing_chen

Blue20180125 发表于 2020-10-31 19:26

谢谢！但测试了好像不行。可以帮我再完善下吗

Blue20180125

先选中，在运行！

xing_chen

Blue20180125 发表于 2020-10-31 19:49
先选中，在运行！

谢谢！谢谢！可以了。不过可以帮我再完善一下吗?1.我需要若编号为空的话，序号就无需再填充了；2.填充列上面的列名“序号”，用你提供的代码运行后变成0了，怎么样保持原来的列名序号，下面在0-5的循环。谢谢！

Blue20180125

xing_chen 发表于 2020-10-31 20:19
谢谢！谢谢！可以了。不过可以帮我再完善一下吗?1.我需要若编号为空的话，序号就无需再填充了；2.填充列 ...

你选中你需要的就行了，不需要的为什么要选