excel中如何快速添加工作表

[复制链接]
查看11 | 回复5 | 2012-7-12 12:40:20 | 显示全部楼层 |阅读模式
Sub gong()a = Sheets("biao").Range("a65536").End(xlUp).RowFor i = 4 To aSheets.Add.Name = Sheets("biao").Range("a" & i)NextEndEnd Sub这个程序你好象漏掉了End Sub这句,加上是可以的,我用2003版试过了,工作表加到三千以上没问题的!...
回复

使用道具 举报

千问 | 2012-7-12 12:40:20 | 显示全部楼层
创建新工作表相信大家都知道,鼠标右键点击工作表标签即可,那么要创建多个工作表呢?先把要创建的工作表名称列出来...


回复

使用道具 举报

千问 | 2012-7-12 12:40:20 | 显示全部楼层
回答
回复

使用道具 举报

千问 | 2012-7-12 12:40:20 | 显示全部楼层
最后一行应为end sub同时名为biao工作表的A列从A4到最后一行中间不能有空单元格,A列中的工作表名称不能有*?/\[]:等不允许出现的工作表标签名,同时不能有重复的名称,否则都会报错...
回复

使用道具 举报

千问 | 2012-7-12 12:40:20 | 显示全部楼层
应该是超过EXCEL工作表数量的上限了,你用的是EXCEL2003吧,上限是255个,如果换成2007就没上限了,只受内存大小限制。...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行