質問: マクロ sheet名をブックの左端から順番に Sheet1,Sheet2,Sheet3のように数字を連番にするマクロを教えていただければと思います。 途中でSheet1,Sheet2,Sheet4のようになっていても、Sheet4の名称をSheet3に強制的に直すといった具合です。 画像を参考にいただければと思います お手数ですが、よろしくお願いいたします。
回答: Sub Test() Dim sh As Worksheet, i As Long For Each sh In ActiveWorkbook.Sheets '※1 sh.Name = "魑魍" & sh.Index Next For Each sh In ActiveWorkbook.Sheets '※2 sh.Name = "Sheet" & sh.Index Next End Sub 欠番があっても左端から順に数字が大きくなっている場合は※2だけでよいですね。 ですが、たとえば五枚目にSheet2があるような場合ですと、二枚目にSheet2という名前をつけるとエラーになってしまいます。 こういう場合を考慮して、いったん※1で「通常使用しないような名前+連番」をつけてから、※2で Sheet の連番にしています。