使用VBA在工作簿中创build工作表

从2001年到2012年，我使用VBA创build了一个每四分之一年的工作表，其代码如下：

For Y = 2001 To 2012 For M = 1 To 4 Step s = Str(Y) & "_" & Str(M) Sheets.Add.Name = s Next M Next Y 

因此，我的工作簿中有工作表，如下所示：2012_4，2012_3，2012_2，…，2001_2，2001_1（按顺序）。

在我所有的程序中，我正在通过他们的名字来处理这些表格。 但有没有其他方式使用他们的顺序？ 有“第一”和“最后”床单吗？

谢谢！

Answer 1

 Sub testing() Dim ws As Worksheet Set ws = Worksheets("Sheet1") Dim newWs As Worksheet ws.Copy after:=Worksheets("Sheet1") ' you can use before:= or after:= a worksheet Set newWs = ActiveSheet newWs.Name = "Sheet1 Copy" ' renaming any sheet End Sub Sub loopingSheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets Debug.Print ws.Name Next ws End Sub