一个EXCEl表格中有多个表格如何改名字

Question

如题所述

Answer 1

1、可以通过VBA方法来改名，工作原理是：通过VBA遍历当前工作薄中的所有工作表，遍历到某个表时，通过对当前表的.Name属性赋值，实现改名操作。

2、比如：

Sub 修改工作表名字()

    Dim sht As Worksheet

    Dim k As Integer

    For Each sht In Worksheets

        k = k + 1

        sht.Name = "工作表新名称" & k

    Next sht

End Sub

3、这段代码的意思是，遍历当前工作薄中所有工作表，并把工作表名改为：工作表新名称1、工作表新名称2、工作表新名称3…… 

4、要修改的工作表名称可以按自己要求设置，如名称没有明显规律，也可以把工作表名称存放在一个单元格区域中，在遍历过程中逐一读取。

Answer 2

表名有规律吗？
表名是否已列出来了？比如已输入到某个表中？

如果是，可能用VBA来进行控制．

Answer 3

右键单击sheet1，重命名，直接输入想要名字即可