先日の話。自分が扱ってるエクセルブックで、やたらにシート数が多いものがある。 自分なりの使い勝手を考えて、任意で並べ替えようと思い、簡単なマクロを作ってみた。 Sub シート名を表示() Dim zWS As Worksheet Dim myWS As Worksheet Set zWS = Sheets.Add(before:=Sheets(1)) zWS.Name = "暫定" For Each myWS In Worksheets If myWS.Name <> "暫定" Then Sheets("暫定").Range("a65536").End(xlUp).Offset(1) = myWS.Name End If Next Rows(1).Delete End Sub とりあえず、上記のマクロを実行すれば下図のように現在のシート名が暫定シートに表示される。 その後、暫定シートのA列
![エクセル生活](https://cdn-ak-scissors.b.st-hatena.com/image/square/0d70c43010e714e55438d3a997c5598a5f4e27e9/height=288;version=1;width=512/https%3A%2F%2Fpds.exblog.jp%2Flogo%2F1%2F200509%2F21%2F22%2Fe008012220060216073840.gif)