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

Excelのセルの範囲からシーケンスワークシートを作成するにはどうすればよいですか?

ワークシートに一定範囲のデータがあり、セルデータに基づいて一連のワークシートを作成する場合は、次のスクリーンショットを参照してください。 もちろん、ワークシート名をXNUMXつずつ手動で編集することもできますが、複数のワークシート名を編集する必要がある場合、この方法は面倒で時間がかかります。 ここでは、あなたを助けるためのいくつかの簡単なトリックについて話します。

doc-リストからシートを作成1

VBAコードを使用してセルのリストからシーケンスワークシートを作成します

Kutools for Excelを使用して、セルのリストからシーケンスワークシートを作成します


矢印青い右バブル VBAコードを使用してセルのリストからシーケンスワークシートを作成します

次のVBAコードは、既存のワークシートにちなんでセルの内容に基づいて名前が付けられたワークシートを追加するのに役立ちます。 このようにしてください:

1。 を押し続けます Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

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

VBAコード:セルのリストに基づいてシーケンスワークシートを追加します

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、使用する範囲を選択するためのプロンプトボックスが表示されます。 スクリーンショットを参照してください:

doc-リストからシートを作成2

4。 そして、 OK、セル値で名前が付けられたワークシートは、既存のワークシートの後に追加されています。 スクリーンショットを参照してください:

doc-リストからシートを作成3

注意:

1.新しいワークシートが現在のワークシートの後に挿入されます。

2.選択した範囲に空白のセルが含まれている場合、ワークシートにはデフォルトに基づいて名前が付けられます。 スクリーンショットを参照してください:

doc-リストからシートを作成4
-1
doc-リストからシートを作成5

矢印青い右バブル Kutools for Excelを使用して、セルのリストからシーケンスワークシートを作成します

ここでは、便利なツールを紹介します-Kutools for Excelそのと シーケンスワークシートの作成、月名、曜日名、カスタムリストなどのワークシートをすばやく作成できます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手.

Kutools for Excelをインストールした後、次の手順を実行してください。

1。 ワークシートを作成する範囲を選択します。

2. Enterprise > ワークシートツール > シーケンスワークシートの作成、スクリーンショットを参照してください:

doc-リストからシートを作成6

3。 の中に シーケンスワークシートの作成 ダイアログボックスで、新しいシーケンスワークシートを作成するワークシートタイプを選択し、チェックボックスをオンにします。 範囲内のデータ オプション、スクリーンショットを参照してください:

doc-リストからシートを作成7

4。 次に、をクリックします OK ダイアログボックスを閉じると、ワークシートを含む新しいワークブックが、選択した範囲データによって名前が付けられます。 スクリーンショットを参照してください:

doc-リストからシートを作成8

注意:

1.シート1またはシート2を選択すると、新しいワークシートが作成され、シート1またはシート2と同じフォーマットになります。

2.新しいワークシートが新しいワークブックに作成されます。

3.選択した範囲に空白のセルが含まれている場合、ワークシートにはデフォルトに基づいて名前が付けられます。 スクリーンショットを参照してください:

doc-リストからシートを作成9
-1
doc-リストからシートを作成10

このシーケンスワークシートの作成機能の詳細については、クリックしてください。


関連記事:

Excelでカスタマイズされた名前の新しいワークシートを追加する方法は?

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

🤖 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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to add bydefault table with row name and column name on sheets after creating sheets using command button. Please help.
This comment was minimized by the moderator on the site
How can the code be modified to copy a worksheet labeled "Template" and rename it to the values in the list selected in the range? I tried modifying the "worksheets.Add" code to "Worksheets("Template").Copy but it just makes copies with the worksheets labeled "Template(1)", "Template(2)", etc. Also, is there a way to put the tabs in numerical order as they are added?
This comment was minimized by the moderator on the site
Hi, Would it be possible to set-up a template for the new sheets created, instead of blank worksheets. Thanks Dave
This comment was minimized by the moderator on the site
Hi, I want to create invoices using excel and need to know whether is there a way to auto generate the second continuation page when the items on the first page exceed the A4 page layout that I have predefined? Any help is appreciated.
This comment was minimized by the moderator on the site
Could you modify the VBA code so that if the worksheet exists, it is skipped over? As it exists now, running the code a second time on the same range will create numbered worksheets. Thanks! Chris
This comment was minimized by the moderator on the site
Hello, Can I exclude blanks and automatically copy data with is behind the name? This data is generated from a pivot and I want to have all the names in different tabs with the data behind it in the layout. name1 data data data blank data data data blank Name 2 Thanks!
This comment was minimized by the moderator on the site
I need to duplicate one sheet when making all these new sheets from a list. Can you add the code for that? Thanks!
This comment was minimized by the moderator on the site
You can right click the tab and choose "move or copy" to duplicate it.
This comment was minimized by the moderator on the site
Very useful. thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations