Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 121|回复: 4

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

[复制链接]
发表于 2021-9-9 10:39 | 显示全部楼层 |阅读模式
Z6=1开始向下自动填充序列,当序列填充至4096时下一行为1开始向下自动填充序列,再次至4096时下一行为1开始向下自动填充序列....
依次循环至Y列的最后一个非空单元格

最佳答案
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

祝順心,南無阿彌陀佛!

循环填充序列号.zip

764.38 KB, 下载次数: 7

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-9-9 12:35 | 显示全部楼层
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
回复

使用道具 举报

发表于 2021-9-9 12:35 | 显示全部楼层
本帖最后由 砂海 于 2021-9-9 13:44 编辑

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

使用道具 举报

发表于 2021-9-9 12:37 | 显示全部楼层
循环填充序列号.zip (863.94 KB, 下载次数: 1)
回复

使用道具 举报

发表于 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

祝順心,南無阿彌陀佛!

评分

参与人数 1学分 +2 收起 理由
lsyylw + 2 学习了

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 20:07 , Processed in 0.356799 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表