メインコンテンツへスキップ

 シートをコピーして、Excelのセル値に基づいて名前を変更するにはどうすればよいですか?

通常、あなたは適用することができます 移動またはコピー ワークシートをコピーし、必要に応じてコピーの新しい名前を手動で入力する機能。 しかし、ワークシートをコピーした後、セルの値に基づいてシートの名前を変更しようとしたことがありますか? この記事では、コピーを作成するときにセルの値に基づいてワークシートの名前を自動的に変更する方法について説明します。

ワークシートをコピーし、VBAコードを使用してセル値に基づいて名前を変更します

ワークシートを複数回コピーし、Kutools forExcelでセルの値に基づいて名前を変更します


ワークシートをコピーし、VBAコードを使用してセル値に基づいて名前を変更します

次のVBAコードは、ワークシートをコピーして、特定のセル値に自動的に名前を変更するのに役立ちます。次のようにしてください。

1。 コピーするワークシートをアクティブにしてから、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:ワークシートをコピーし、セル値で名前を変更します。

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3。 そして、 F5 このコードを実行するためのキーを押すと、現在のワークシートがすべてのワークシートの後に現在のワークブックにコピーされ、指定したセル値で名前が変更されます。スクリーンショットを参照してください。

docはranameを値1でコピーします

Note:上記のコードでは、セル参照 A1 は、新しくコピーしたシートの名前を変更するセル値です。必要に応じて変更できます。


ワークシートを複数回コピーし、Kutools forExcelでセルの値に基づいて名前を変更します

シートを複数回コピーし、セル値のリストに基づいて名前を変更する必要がある場合、上記のコードはXNUMXつのセル値でのみ名前を変更できます。 Kutools for Excelさん シーケンスワークシートの作成 このタスクをできるだけ早く完了するのに役立つ場合があります。

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. 

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツールズプラス > ワークシート > シーケンスワークシートの作成、スクリーンショットを参照してください:

docはranameを値3でコピーします

2。 の中に シーケンスワークシートの作成 ダイアログボックスで、次の操作を実行します。

(1.)コピーするワークシート名を 基本ワークシート ドロップダウンリスト;

(2。)[範囲内のデータ]オプションで[ に基づくシート名 セクションをクリックして docはranameを値5でコピーします ボタンをクリックして、コピーしたワークシートの名前を変更するセルの値を選択します。

今すぐExcel用Kutoolsをダウンロードしてください!

3。 次に、をクリックします Ok ボタンをクリックすると、特定のワークシートが複数回コピーされ、新しいワークブックで選択したセル値に名前が変更されます。スクリーンショットを参照してください。

docはranameを値4でコピーします

今すぐExcel用のKutoolsをダウンロードして無料トライアル!


デモ:ワークシートを複数回コピーし、Kutools forExcelでセル値に基づいて名前を変更します

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

最高のオフィス生産性向上ツール

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト ツール (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット ツール (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations