（EXCEL）全てのワークシート名を取得して出力

意外とあるのが、
ワークシート名を取得するのにコピー＆ペーストをしていたりしていませんか？

今回は、超簡単なワークシート名の取得方法を記載します。
「えっ？知っているっ？」そんな方は、読み飛ばしてください。

以下のマクロを登録して実行すると、ワークシート「Sheet1」のA列1行目から順番にワークシート名が出力されます。
コピー＆ペーストを行うのであれば、下記のコードをコピー＆ペーストして使ってください。一瞬で終わりますので。

Const 出力ワークシート名 = "Sheet1"

Sub ワークシート名取得()
    
    Dim i As Integer
    i = 1
    For Each ws In Worksheets
        Worksheets(出力ワークシート名).Cells(i, "A").Value = ws.Name
        i = i + 1
    
    Next
    
End Sub

（記事のお問合せ・無料相談　→　こちら）