sub a()
for i = 1 to sheets.count
sheet(i).name=i
next
end sub作者: ydtman 时间: 2008-5-24 21:55
怎么用VBA呀？作者: justnow 时间: 2008-5-26 10:06
用填充,序列吧!作者: 松涛伴雨入帘栊 时间: 2008-5-26 10:39
用模板可以达到类似效果
１、新建一个工作簿
２、把其中一个工作表命名为一个你想要的名犯称如：“十三姨”
３、删除其余两个工作表
４、另存为，模板
５、新建一个工作簿，插入一个新表，选择刚才保存的模板，就会新建一个名为“十三姨”的工作表，重复上述操作，则有“十三姨（２）”，一直重复，则有“十三姨（３）”“十三姨（４）”……作者: 欢欢 时间: 2008-5-26 14:21
这个简单，只能用vba完成
具体代码写在this workbook的模块里
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets.Count
End Sub