[[20061208133419]]　『連番をシート名に一度につける方法』（クリッパー）　ページの最後に飛ぶ

『連番をシート名に一度につける方法』（クリッパー）
エクセルのsheet1、sheet2などに一度に１，２とセルに連番をつけるようにする方法を教えてください。

 こんなマクロを実行すればできまっせｗ(ROUGE)
'----
Sub test()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Name = i
    Next
End Sub

 >セルに連番？
 (seiya)

 あれ？
 質問取り違いですた。
 編集-->フィル-->連続データの作成
 とか？
 (ROUGE)

 >sheet1、sheet2などに一度に１，２とセルに連番を

 Sheet1 の A1 に 1、A2 に 2……
 Sheet2 のセルにも同様

 ということなら、連番を振りたいシートのタブを Ctrlキーを押しながらクリックして
 作業グループにしておいて、ROUGE さんの 「連続データ作成」などをどうぞ。

 でもスレッドタイトルは、『連番をシート名に一度につける方法』ですよん。
（純丸）(o^-')b                  ^^^^^^^^^^^^^^^^^^^^^^

 セルに１、２と連番を付けるように
 シート名に１、２と連番を付けたい
 という質問なのかと思います。
 (++)

 憶測：シートタブのことを「セル」といっているのかも。
 だとしたら、最初の ROUGE さんのコードでＯＫですね。
 （Ｐ）

ありがとうございました。書き方が悪
かったようで混乱させてしまいました。
セルに１、２と連番を付けるように、
シート名に１、２と連番を付けたい
という質問でした。いちいちシート名を
ダブルクリックして番号をふっていくの
が大変だったものですから、質問しました。

コメント返信：