有没有自动化的方法来编辑 Excel 表的名称和顺序？

Question

我想反转 Excel 2007 工作簿中的工作表顺序，想知道除了手动繁琐的过程之外，是否有其他方法可以做到这一点。我有大约 100 张工作表，所以我想避免手动执行此操作，但我看不到任何编程方法可以实现此目的。

类似地，是否有一种简单的方法可以通过名称搜索工作表并选择它？

Answer 1

您可以通过编程循环遍历工作表并使用类似以下的代码来反转它们的顺序：

Sub ReverseSheets()
Dim i As Integer

For i = 1 To Worksheets().count
    Worksheets(i).Move before:=Worksheets(1)
Next i

End Sub

此代码将自动反转工作簿中的所有工作表。确切的工作表数量无关紧要，因为它每次都会检查工作表数量。

至于搜索工作表名称，这是可能的，但比反转工作表要复杂得多。以下是一些可帮助您入门的网站：

http://automation-beyond.com/2010/01/27/how-to-find-excel-worksheet-by-name/

http://www.mrexcel.com/forum/excel-questions/58374-visual-basic-applications-find-sheet-name.html

Answer 2

要更改工作表名称，您可以使用 VBA：

1. 选择您的工作表：Sheets("Sheet1".Select

2. 重命名您的工作表：Sheets("Sheet1").Name = "SheetA"

然后只需创建一个循环来循环遍历所有工作表并让其分配您想要的名称。