ツイート ブックに複数のシートが存在するとき、これらのシートをシート名の順に並べ替えるにはどうしたらいいでしょう。 2つの方法をご紹介します。 ■配列を使用する方法 1つ目は、すべてのシート名を配列に格納し、配列内のシート名を並べ替える方法です。 配列内の要素を並べ替えるにはいくつかのアルゴリズムがありますが、ここでは最も簡単な方法で行ってみましょう。 Sub Sample1() Dim i As Long, j As Long, cnt As Long Dim buf() As String, swap As String cnt = Worksheets.Count ReDim buf(cnt) 'ワークシート名を配列に入れる For i = 1 To cnt buf(i) = Worksheets(i).Name Next i '配列の要素をソートする For i = 1 To cn