[[20120531143822]]　『シートの名前を一括変更』（ああ）　ページの最後に飛ぶ

『シートの名前を一括変更』（ああ）
シートが30ぐらいあるエクセルファイルがあり、
現在、各シートには「1、2、3・・・」と名前がついています。
そのシート名を「A1、A2、A3・・・」のように「A」をすべてのシートにつけたい場合、
一括でつけられる方法はありますでしょうか。
お分かりの方、ご教示お願い申し上げます。

Windows 7
Excel 2010

マクロですね。
次のサンプルは標準モジュールに登録して実行。
有無を言わさず全てのワークシート名先頭に　"A"を付加します。

 Sub test()
     Dim sh As Worksheet
     For Each sh In Worksheets
         sh.Name = "A" & sh.Name
     Next sh
 End Sub

（みやほりん）

 衝突。しかも示し合わせたように同じコード。みやほりんさんと同じコードって、光栄だなぁ。

 操作ではどうなんだろう、できるのかなぁ。
 わからないのでマクロで。

 Sub シート名頭にAをつける()
    Dim sh As Worksheet
    For Each sh In Worksheets       'ブックの中のシートを１つずつ取り出す
        sh.Name = "A" & sh.Name   'シート名の先頭にAをつける
    Next                            '次のシート
 End Sub

 (ぶらっと)

早速のご回答ありがとうございました。
試行錯誤してみます。
今後とも何卒よろしくお願い申し上げます。

（ああ）

試したらできました。
みやほりんさん、ぶらっとさんありがとうございました。

（ああ）

コメント返信：

[ 一覧(最新更新順) ]

[[20120531143822]] 『シートの名前を一括変更』（ああ） ページの最後に飛ぶ

[[20120531143822]]　『シートの名前を一括変更』（ああ）　ページの最後に飛ぶ