投稿日 | : 2002/10/24(Thu) 15:35 |
投稿者 | : 半人前 |
Eメール | : |
URL | : |
タイトル | : シートの名前をFor文でいれる |
ただいまAセルにある数だけシートをつけようと奮闘しています。
たとえばAセルに55個、名前があったら、その数の分シートを作成し、
一人一人のシートを作成したいと思っています。
シートを作るのは何とかできました。
方法は、B1セルにCOUNTA関数をいれます。Aセルの間に空白でない数を出した後に、
Dim i As Long
For i = 1 To Range("B1")
Worksheets.Add After:=Worksheets(Worksheets.Count)
Next i
このコードで数の分だけシートを作る事ができたのですが、Aセルにある名前をシートの名前に、
一つずつ入力させる方法がわかりません。
よろしかったらアドバイスお願いします。