一个excel表中有八十多张工作表，现在我想快速的把它们按等差数列重命名一下，请问哪位知道？

如果有满意答案，送奖励分数。

[工具]->[宏]->VB编辑器->点击左侧ThisWorkbook对象

->然后在右侧输入:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Sheets("Sheet7").Name = "Sheet1"

Sheets("Sheet6").Name = "Sheet2"

End Sub

如果表原名有规律,可以设计成循环.

只要你从一个表进到另一个表就会执行这个过程,就会自动改名.

注意改过1次名字后,因为找不到原来的名字,所以再执行这个过程就会报错,删掉这个过程就行了.

当然设计一个新宏,把你的代码复制进去,执行这个宏也行

呵呵是你呀,我又回复了,你看了吗?

你可能输错地方了,应该先点（双击）左侧ThisWorkbook对象,再在右侧输入.

哦是双击!!!左侧ThisWorkbook对象

要把第1行的Workbook_SheetChange改为Workbook_SheetSelectionChange

我在我电脑上运行过,好用的.

我要下班了,下周一见.

你好,解决了吗?

有问题发我邮箱linjian@paic.com.cn

• ·请问有谁知道农历的1990年1月25日是阳历几
• ·要 Alizee唱的歌曲下载地址.最好还要有M
• ·这首歌叫什么名字？
• ·V3可以扩展吗/
• ·怎样提高自身的品味?
• ·ADSL上网速度跟网卡有没有关系？
• ·青岛的珍珠贵吗？
• ·~数学啦啦
• ·佳能A700 怎么缩小图像？
• ·哈尔滨哪里有做意大利面的地方！