シート名が長い場合に置き換える

トップページ（目次）

051.シート名が長い場合に置き換える

＜実行前後＞

→

Sub 長いシート名を置き換える()

    '1行目でシート名を置換すれば、全部短縮名で使える
    Set シート = Worksheets("Sheet1")
    
    シート.Select
    シート.Range("A1") = "aaa"

End Sub