如何自动生成序号

speed9301 · 发表于 2024-1-22 16:29

dragonthree 发表于 2024-1-21 18:44
怎么来记住按了几次

所以，我原设计想把所有组的数量以及各的数字，全写在一个单元格里

joy.008@163.com · 发表于 2024-1-22 16:43

大概你要的是这种效果吧

joy.008@163.com · 发表于 2024-1-22 16:45

Sub abccc()
Dim arr, i%, j%, r%, brr

arr = Sheet1.Range("A1").CurrentRegion
ReDim brr(1 To 999, 1 To 2)
For i = 1 To UBound(arr)
For j = 1 To arr(i, 2)
r = r + 1
brr(r, 1) = arr(i, 1)
Next
Next
[D1].Resize(r, 2) = brr
End Sub

speed9301 · 发表于 2024-1-22 18:23

joy.008@163.com 发表于 2024-1-22 16:43
大概你要的是这种效果吧

你的方法是要先列举各组，然后再相应的组填写数量，这也是其中解决问题的一种方法。

过客fppt · 发表于 2024-1-22 20:26

speed9301 发表于 2024-1-22 16:27
再请教一下，现在是在A列生成组名，如果要生成相应表格是否可以？

可以，用sheet.add就行

speed9301 · 发表于 2024-1-23 07:58

过客fppt 发表于 2024-1-22 20:26
可以，用sheet.add就行

我是想在同一个sheet里生成表格

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

[求助] 如何自动生成序号

评分