excel 序列填充,是否能做自动填充多个sheet

来源：百度知道 编辑：UC知道 时间：2024/05/12 10:22:22
是否能做自动填充多个sheet,比如sheet1 A1=1，sheet2 A1=2，sheet3 A1 =3，sheet4 A1 =4......
而且插入或者删除sheet，比如删掉sheet2，其能自动更新或者方便更新数据:
sheet1 A1=1，sheet3 A1=2, sheet4 A1 =3,.....
双击左边的"THISWORKBOOK",这是什么意思,能不说详细一点?

运行不了: 对象不支持这个属性或方法（错误 438）

按下ALT+F11,双击左边的"THISWORKBOOK",然后复制下面代码.
保存退出,然后重新打开.
(注:如果有添加删除工作表,都会在每次保存退出后,再次进入文件会更新)

Private Sub Workbook_Open()
a = Sheets.Count
For x = 1 To a
Sheets(x).Count
Cells(1, 1) = x
Next
End Sub