1

次のコードを使用して、2001 年から 2012 年までの四半期ごとに VBA を使用してワークシートを作成しました。

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 のようなシートがあります (それらはこの順序になっています)。

すべての手順で、これらのシートを名前で指定しています。しかし、彼らの注文を使用する他の方法はありますか? 「最初」と「最後」のシートはありますか?

ありがとう！

4

1 に答える 1

2 
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
于 2012-10-11T09:56:54.000 に答える