VBA 使不连续的序列变成连续的序列

wb_1027

如图所示
左侧红色的序列为不连续的序列，并且有空的单元格
求一段代码，保持原序列位置不变，新序列变成连续（递增1）
右侧黑色所示

谢谢！

micch

1. Sub Test()
   
2.     r = Range("A65536").End(3).Row
   
3.     For i = 1 To r
   
4.         If Len(Cells(i, 1).Value) > 0 Then
   
5.             j = j + 1
   
6.             Cells(i, 2).Value = j
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

micch

wb_1027

micch 发表于 2023-3-10 09:07

栓Q！！！

sxbjzjf110

参与一下，用数组写了一下。

wb_1027

sxbjzjf110 发表于 2023-3-10 11:13
参与一下，用数组写了一下。

原来做的单元格选择出发事件，Worksheet_SelectionChange，点选即出现顺序（递增1）序列，如果再回复向上点选空白单元格，序列则更新，原本再想做个单元格改变触发事件，后来发现矛盾了，，，，，，能力有限啊，，，