Question

EXCEL中如何让工作表默认命名以001开始？

能让工作表的默认命名以001开始吗？我在合并工作簿的过程中发现，生成的默认命名看上去挺好但是，在VBAPROJECT中排得很乱，比如3会在20几的后面，手动去改的话很麻烦。另外这个会不会对我产生影响，比如说批量复制时会先复制默认名排在前面的工作表？
不好意思我不会VBA，正在自己琢磨中，现在只会扒一些别人做好的，以及自己录宏，不会自己写。
有点我还是不太明白，是这样，我的工作簿原先有七个工作表，第一个工作表是个总的也就是sheet1，其他的也是按sheet2，3，4……这样排的，我在用一个VBA代码将另外二十几个工作簿合并到该工作簿以后，默认名也是对的，接着往后命名，但是在VBAPROJECT当中确不是按这个顺序排的，是按先是sheet1,然后紧跟sheet10,sheet11,sheet12……sheet18,sheet19,sheet2,然后20，21，……29，sheet3这样排的。我想把sheet1改成sheet001也是想让这个排序看得舒服点.

Answer 1

一、创建默认工作簿模板

1.打开Excel 2003，把三个工作表分别重命名为:工作表(1)、工作表(2)、工作表(3)。

2.按住Ctrl键逐一单击工作表标签，选中这三个工作表，按我们的需要进行页面设置、修改“工具→选项”中的项目以及各单元格的格式等等，还可以录制一些常用的宏。在此按Ctrl键全选是为了对三个工作表做相同设置，当然你也可以对三个工作表逐一进行不同的设置。

注意:请不要在表格中随便输入文字，这些内容将会直接出现在以后新建的工作簿中。

3.点击“文件→另存为”，在“保存类型”中选择“模板(*.xlt)”，输入模板的文件名为book.xlt，“保存位置”则选择“C:\Program Files\Microsoft Office\Office11\XLStart”。这是默认安装时的位置，如果你不是按默认路径安装，请做相应修改。

现在再重新打开Excel，你会发现新建的工作簿已经保存了我们在book.xlt中做的全部修改设置，当然你可以随时修改book.xlt文件中的设置来改变默认设置。此外，在设置默认工作簿后，“工具→选项”中的“新工作簿内的工作表数”设置将会失效，你只能通过修改book.xlt中的工作表个数来改变。

二、创建默认工作表模板

经过上面设置后新建的工作簿确实已保存了我们的设置，但是当我们单击“插入→工作表”的时候，新插入的工作表却还是保持最原始的未设置状态，我们还得再设置一个默认的工作表模板才行。

新建一个工作簿，删除工作表(2)、(3)，只保留下工作表(1)。同样另存为“模板(*.xlt)”类型，保存在“C:\Program Files\Microsoft Office\Office11\XLStart”中，不过模板的文件名则改为sheet.xlt。

现在再插入工作表，它的格式设置就和我们的设置一样了。在此如果你在sheet.xlt中保留了两张工作表，则选择插入工作表时就会一次插入两张，以此类推。以后如果需要修改插入新工作表的设置，只要对sheet.xlt进行修改并保存就OK了。

该方法不仅可以把页面设置、自定义工具栏、宏、超链接和窗体上的 ActiveX 控件等默认设置彻底改变，甚至连打印区域设置、单元格格式设置、数据有效性设置、工作表和行列的隐藏保护乃至工作表中输入的文字、公式、图片、背景等等都可以直接作为默认设置保存下来。只要用该方法我们完全可以按自己的使用习惯定制出一套适合自己使用的Excel。

注意:自定义的工具栏必须在保存前将它附加到book.xlt模板上才能使用。右击工具栏选择“自定义”，在“工具栏”选项卡中单击“附加”按钮，在“自定义工具栏”列表中选中要附加的工具栏，单击“复制”按钮即可。

Answer 2

在vba中，工作表内部是有一个序号的，从1开始2、3、4...排下去。工作表的顺序是按这个内在的序号来排的。如果你删除/增加或移动了工作表，这个序号会以之后的顺序重排。因此批量复制的话，它还是按原来的顺序排的。

但在VBAproject中，工作表的顺序却是按表建立的顺序排的。

另外，vba中说明一个表可以有三种方式：
一是用序号：sheets(1)指的是第一张表；
二是用表名：sheets("001")指的是名字为001的表；
三是用表的对象名：Sheet1指的是对象叫Sheet1的那张表，也就是活动工作簿中第一张建立的表。

如果没改过表名的话，表名和对象名是一致的，如果改了的话，就不一样了。
按照上面例子，如果将第一张表改名为001，那么以下三个属性值是一样的，都是等于001：
Sheets(1).Name
Sheets("001").Name
Sheet1.Name

至于能否用001开始作为默认工作表，目前只有两种办法，一是自己写VBA，二是先将一工作簿里表名字按001、002...改好，存为模版来做。

Answer 3

　　vba可以解决：
　　Sub a()
　　Dim sht As Worksheet
　　Dim curr As Long
　　curr = Int(Rnd() * 100) '随机一个100以内的数字，也可以指定开始的数字
　　For Each sht In Sheets
　　On Error Resume <a class="baidu-highlight" href="https://www.baidu.com/s?wd=Next&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1dBPyD3uhPBmvF-PHcsP1NB0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1mYrjcsrH01PWc4n1DsPHfsPf" target="_blank">Next</a>
　　sht.Name = Format(curr, "000")
　　curr = curr + 1
　　<a class="baidu-highlight" href="https://www.baidu.com/s?wd=Next&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1dBPyD3uhPBmvF-PHcsP1NB0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1mYrjcsrH01PWc4n1DsPHfsPf" target="_blank">Next</a>
　　End Sub
　　

Answer 4

可以的，我的一个程序产生图表的代码，参考第一句和倒数第二句。

Charts.Add before:=Sheet2
With ActiveChart
.ChartType = xlColumnClustered
.SetSourceData Source:=Sheet2.Range("A" & startpici & ":A" & RealPiciEnd), PlotBy:=xlColumns
.SeriesCollection(1).XValues = Sheet2.Range("B" & startpici & ":B" & RealPiciEnd)
.SeriesCollection(1).Name = FraAverIndex
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Location Where:=xlLocationAsNewSheet, Name:=NameOfString & "图" & p
End With

Answer 5

好好学习VBA吧