[已解决]循环填充序列号

kkll0914

Z6=1开始向下自动填充序列，当序列填充至4096时下一行为1开始向下自动填充序列，再次至4096时下一行为1开始向下自动填充序列....
依次循环至Y列的最后一个非空单元格

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-9-9 22:05

Sub demo()
   a = Range([y6], [y6].End(4))
   For i = 1 To UBound(a)
      a(i, 1) = n + 1
      n = (n + 1) Mod 4096
   Next
   [z6].Resize(UBound(a)) = a
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

excel用户1116

Sub Test()
    Dim i&, k&, arr
    arr = Range("Y6:Z" & Cells(Rows.Count, "Y").End(3).Row)
    For i = 1 To UBound(arr)
        k = k + 1
        arr(i, 2) = k
        If k = 4096 Then k = 0
    Next
    Range("Y6:Z" & Cells(Rows.Count, "Y").End(3).Row) = arr
End Sub

砂海

Z6=1+mod(row(a4096),4096)
===================
晕倒 ,没细看题 , 想当然了

excel用户1116

循环填充序列号.zip (863.94 KB, 下载次数: 2)

2021-9-9 12:37 上传

点击文件名下载附件

cutecpu

Sub demo()
   a = Range([y6], [y6].End(4))
   For i = 1 To UBound(a)
      a(i, 1) = n + 1
      n = (n + 1) Mod 4096
   Next
   [z6].Resize(UBound(a)) = a
End Sub

祝順心，南無阿彌陀佛！