| |
▼とまと さん：
たいへん素早く、適切な方法をお教えいただきましてありがとうございます。
早速試させていただきまして、期待していたとおりの結果が得られました。
本当に助かりました。
ひとつだけ質問させていただいてよろしいでしょうか？
> Worksheets(n).Name = .Cells(i, "A").Value
なのですが、この"A"部分は、列Aを指定している部分かと思います。
であるなら、数字の1を代わりに記述してもいいのでしょうか？
お手すきの際に、ご教授いただけますと幸いです。
このたびはどうもありがとうございました。
>こんにちは
>sheet1のA1から置換するシート名が縦に入力されているとして
>下記のように書けると思います。
>
>
>Sub セルの値をシート名に()
>
>Dim i As Long
>Dim n As Long
>Dim sh1 As Worksheet
>
>Set sh1 = Worksheets("sheet1") '一覧のあるシート
>
>n = 1 'シートのｎ番目から
>With sh1
> For i = 1 To .Range("A65536").End(xlUp).Row
> Worksheets(n).Name = .Cells(i, "A").Value
> n = n + 1
> Next
>End With
>
>
>End Sub
>
>▼ものみゆ さん：
>>表題の件でお知恵をおかしください。
>>
>>ブック内の複数シートのうちのひとつのシート上に、
>>置換したいシート名を羅列した１行を作成し、
>>そのシート名リストを範囲指定し、当ブックのｎ番目のシート名から置換する、
>>というようなVBAをお教えいただければと思います。
>>
>>どうぞよろしくお願いいたします。
|
|
ものみゆ
- 05/10/24(月) 11:56 -
