投稿日 | : 2002/10/24(Thu) 16:41 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : Re: シートの名前をFor文でいれる |
実際に走らせてはいないのですが、こんな具合になるのではないかと。
> Dim i As Long
>
> For i = 1 To Range("B1")
> Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Select 'AddしているからWorksheets.Countは一番最後の数字
Worksheets(Worksheets.Count).Name=Worksheets("A列のあるシート名").Cells(i,1).Value
> Next i