如何循环插入序号？

抽烟的仓鼠 · 发表于 2020-1-27 14:14

本帖最后由抽烟的仓鼠于 2020-1-27 15:27 编辑

两千多行的数据，如何循环插入序号1-12？
抱歉别人隐私问题，不方便发附件。
序列1.png

正常插入的序号是这样的
我想插入的是这样的
序列2.png

每12行数据为一组，序号从1至12
用vba该怎么写？先谢谢各位大佬

shenjianrong163 · 发表于 2020-1-27 15:12

最好发附件上来，再把问题说具体一些.

varytina · 发表于 2020-1-27 15:21

Sub test()
Dim i, j
For i = 0 To Round(1999 / 12, 0) - 1
      For j = 1 To 12
               Sheet1.Cells(i * 12 + j, 1) = j
      Next j
Next i
End Sub

抽烟的仓鼠 · 发表于 2020-1-27 15:34

shenjianrong163 发表于 2020-1-27 15:12
最好发附件上来，再把问题说具体一些.

问题已补充

wps1880 · 发表于 2020-1-27 17:37

直接除以12取余数

wps1880 · 发表于 2020-1-27 17:39

直接除以12取余数，除数取row引用

y1983y · 发表于 2020-1-27 20:25

借花献佛，看看是不是你要的效果？

网海遨游 · 发表于 2020-1-27 20:45

本帖最后由网海遨游于 2020-1-28 21:40 编辑

sub test()
for i=1 to 3000
cells(i+1,1)=iif(i mod 12=0,12, i mod 12)
next i
end sub

FindingB · 发表于 2020-1-28 11:13

A2=MOD(ROW(A1)-1,12)+1——下拉。

f8b1987 · 发表于 2020-1-28 13:51

Sub 行组()
For i = 2 To 100
n = n + 1
Cells(i, 1) = n
If n Mod 12 = 0 Then n = 0
Next i
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 如何循环插入序号？

最新热点 /1