【VBA】シート数を取得する【Sheets.Countで取得できます】

参考元：【VBA】シート数を取得する【Sheets.Countで取得できます】
https://daitaideit.com/vba-sheet-count/

「Sheets.Count」でシート数を取得

Sub TEST1()
  
  'シート数を取得
  Debug.Print Sheets.Count
    
End Sub

シート数を取得する場面
シート数を取得できれば、次のようなシート操作ができるようになります。
・最終シートにコピー
・最終シートに移動
・最終シートに追加
・すべてのシートをループ
・シートの存在チェック
・シートの検索
　

• 最終シートにコピー

Sub TEST2()
  
  '最終シートにコピー
  Sheets("Sheet1").Copy after:=Sheets(Sheets.Count)
  
End Sub

　

• シートの存在をチェック

Sub TEST6()
  
  '「Sheet2」の存在をチェック
  For i = 1 To Sheets.Count
    If Sheets(i).Name = "Sheet2" Then
      Debug.Print "Sheet2は存在します"
    End If
  Next
  
End Sub

　

• シートを検索

Sub TEST7()
  
  '「2」を含むシートを検索
  For i = 1 To Sheets.Count
    If InStr(Sheets(i).Name, "2") > 0 Then
      Debug.Print "「2」を含むシートは存在します"
    End If
  Next
  
End Sub