Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51338 / 76732

←次へ　｜　前へ→


	【30265】Re:ワークシート名の一括置換

とまと - 05/10/24(月) 11:08 -


	引用なし

	パスワード

こんにちは
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をお教えいただければと思います。
>
>どうぞよろしくお願いいたします。

4 hits

▼

【30246】ワークシート名の一括置換 ものみゆ 05/10/24(月) 6:33