发布网友
共2个回答
热心网友
答案更新:直接上图:
提示一下:代码中写的是1 to 100,那么你要确定有100张表。比如代码写的是to到100,但是实际只有99张表的话,遍历到100时,因为不存在第100张表,代码就会报错。
代码更新如下,可以直接复制:
追问不是合并,是有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。以此类推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、拉到最后一个单元格后,松开鼠标数字连续排列设置就完成了。