填写序数

ddz79101

老师，我希望能根据左侧列的连续循环数，填写本咧的自然序数。请老师帮忙看看。谢谢！

ddz79101

意思是，为连续的循环（循环的数值不定）编号，但此编号不是从1开始，而是有我通过输入对话框设定，一旦设定就会根据左侧的循环次数编上连续的自然数。

ddz79101

ddz79101 发表于 2024-1-14 20:04
意思是，为连续的循环（循环的数值不定）编号，但此编号不是从1开始，而是有我通过输入对话框设定，一旦设 ...

循环数值为0到5之间

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.14
   
2.     Dim arr, brr(1 To 10000, 1 To 1), zrr(1 To 1000)
   
3.     mm = Val(Application.InputBox("请输入循环开始数：", "起始数", 8))
   
4.     If mm = 0 Then Exit Sub
   
5.     On Error Resume Next
   
6.     n = 0
   
7.     With Sheets("Sheet1")
   
8.         r = .Cells(Rows.Count, 1).End(3).Row
   
9.         arr = .Range("a1:e" & r)
   
10.         For i = 5 To UBound(arr) + 1
    
11.             If arr(i, 5) = 0 Then
    
12.                 n = n + 1
    
13.                 zrr(n) = Array(i, i)
    
14.             End If
    
15.             If i = r Then zrr(n)(1) = r
    
16.             If arr(i + 1, 5) = 0 Then zrr(n)(1) = i
    
17.         Next
    
18.         For x = 1 To n
    
19.             For y = zrr(x)(0) To zrr(x)(1)
    
20.                 m = m + 1
    
21.                 brr(m, 1) = mm + x - 1
    
22.             Next
    
23.         Next
    
24.         m = m - 1
    
25.         .[h5:h10000] = ""
    
26.         .[h5].Resize(m, 1) = brr
    
27.     End With
    
28.     Set d = Nothing
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

ddz79101

ykcbf1100 发表于 2024-1-14 21:02
附件供参考。。。

谢谢老师！完全正确

kuangben8

LIUZHU

JSA代码，参与下

LIUZHU

附件在此，WPS测试