[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『指定文字列をシート名にしてシート2をコピー』(さとる)
[シート1のD5から下に文字列があり、これをシート名にしてシート2をコピー]
シート1のD5から下に文字列があり、これをシート名にしてシート2をコピー
したいのですが、どなたか教えてもらえればとても助かるのですが、よろしくお願いします。
マクロですよね?
現在あるシート名は、"シート1" 、"シート2"ですか?
セルD5 以下 D6,D7 と連続して、文字が入力されているときは、 その分だけ、コピーを繰り返すのでしょうか? それとも、シート名を D5,D6,D7 と続けた文字列にするのでしょうか?
(INA)
現在あるシート名は、"シート1" 、"シート2"だけです。
シート1の セルD5 以下 D6,D7・・・ に個人名があり
シート2を一人一人専用のシートを作りたいのでシートの見出しに名前を入れたいと思っています。
よろしくお願いします。
過去ログより 参考にしてください。 [[20031105174927]] 『シート名を自動的につけることは可能でしょうか』(Ami) [[20020519104759]] 『セルの内容によってシート名を変更できる?』(なお) やっと検索できるようになりました。 (KAMIYA)
マクロの記録から作成してみました。参考になるでしょうか? (LOOKUP) Sub Macro1() Dim N As Long Do Until Sheets("Sheet1").Range("D5").Offset(N, 0).Value = "" Sheets("Sheet2").Copy Before:=Sheets(1) Sheets("Sheet2 (2)").Name = Sheets("Sheet1").Range("D5").Offset(N, 0).Value N = N + 1 Loop End Sub
(さとる)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.