当您开始一个新的工作簿时,通常在一年的不同月份之后给每个工作表命名。如果您做了很多,您知道将每个工作表依次重命名为所需的内容可能会很麻烦。

开发了以下宏来在这些情况下提供帮助。它检查工作簿中工作表的名称,如果它们以字母“ Sheet”开头,则将它们重命名为一年中的几个月。如果工作簿中的工作表不足,它将根据需要为一年中的每个月添加工作表。

Sub DoMonths()

Dim J As Integer     Dim K As Integer     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = sMo(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sMo(J)

End If         Else             Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sMo(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> sMo(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = sMo(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

宏的最后一步是,在第1到第12个月中,按正确的顺序放置了工作表。结果是,如果工作簿中还有其他工作表(换句话说,您有一些工作表并非以

| 注意:

|如果您想知道如何使用,那么这些工作表将在工作簿的末尾结束。

|`链接:/ excelribbon-ExcelTipsMacros [单击此处打开该特殊页面,请参见本页上的宏(或_ExcelTips_网站上任何其他页面上)所述的宏。

| _ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

此技巧(2017)适用于Microsoft Excel 97、2000、2002,和2003。您可以在以下位置找到适用于Excel功能区界面(Excel 2007及更高版本)的本技巧的版本:

link:/ excelribbon-Sheets_ for_Months [Sheets for Months]