エクセル生活先日の話。自分が扱ってるエクセルブックで、やたらにシート数が多いものがある。 自分なりの使い勝手を考えて、任意で並べ替えようと思い、簡単なマクロを作ってみた。 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 とりあえず、上記のマクロを実行すれば下図のように現在のシート名が暫定シートに表示される。 その後、暫定シートのＡ列
IDEA * IDEA
