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

追答答案已更新

来自：求助得到的回答

热心网友

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