100张表格中连续5个单元格,需要生成连续数字

发布网友

我来回答

2个回答

热心网友

答案更新:直接上图:


提示一下:代码中写的是1 to 100,那么你要确定有100张表。比如代码写的是to到100,但是实际只有99张表的话,遍历到100时,因为不存在第100张表,代码就会报错。

代码更新如下,可以直接复制:

Sub 多表生成连续数()

Dim i As Integer, s As Integer '声明i为整数变量,s为整数变量

For i = 1 To 100 Step 1 '遍历1至100,步长为1

For s = 1 To 5 Step 1 '遍历1到5,步长为1

Sheets(i).Range("G9").Offset(s, 0) = (i - 1) * 5 + s

'上面这行是:对第i张表的G9向下偏移s行、向右偏移0列的单元格进行赋值= (i - 1) * 5 + s

Next '返回遍历下一个s

Next '返回遍历下一个i

End Sub

追问不是合并,是有100张表格,表一的单元格G10,G11,G12,G13,G14,编号是1,2,3,4,5;表2的单元格G10,G11,G12,G13,G14,编号是6,7,8,9,10;表3的G10,G11,G12,G13,G14,编号是11,12,13,14,15,16。以此类推

追答答案已更新

来自:求助得到的回答

热心网友

Excel自动生成排列连续数字的具体操作步骤如下: 1、以下列Excel表中的名字顺序为例,进行设置排列连续数字; 2、首先在名字“张三”后面的单元格中输入数字“1”; 3、然后将鼠标光标放到数字“1”单元格的右下角,待光标变成实心的“+”符号; 4、鼠标变成“+”符号后,按住鼠标左键的同时按住CTRL键并往下拉到最后一个单元格; 5、拉到最后一个单元格后,松开鼠标数字连续排列设置就完成了。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com