excel工作簿有若干工作表，从第2张工作表往后依次按1、2、3顺序批量重命名，该如何做？

发布网友发布时间：2022-06-05 07:58

共2个回答

热心网友时间：2023-11-12 06:54

是重命名工作表，而不是新建工作表，所以VBA代码如下：

sub 批量重命名()
for i =2 to sheets.count
sheets(i).name=i
next
end sub追问不行，我是要不改变第一张表的名称，从第二张表开始依次命名为1、2、3……

追答“for i =2 to sheets.count”这一句已经表明：是从第2张工作表开始的，并不会改变第1张表的名称呀！下面这样好了：

sub 批量重命名()
for i =2 to sheets.count
sheets(i).name=i-1
next
end sub

热心网友时间：2023-11-12 06:54

打开一个文件，运行下列VBSCRIPT

Private Sub Workbook_Open()
For Counter = 1 To 150
ThisWorkbook.Sheets.Add.Name = Counter
Next

End Sub

先调整好是否需要150个追问这语言正合我意，不但添加了新的工作表，而且直接重命名了，但问题是新表怎么会以逆页序（如10、9、8、7、6……）加在现有工作表的前面而不是后面呢？而且怎么修改才能成为正页序？