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

Excelテーブルで重複する列ヘッダーの自動番号付けを防ぐにはどうすればよいですか？

Author: Sun Last Modified: 2025-08-06

Excelでは、テーブル内の重複する列ヘッダーを入力すると、自動的に番号が追加され（例: name, name1, name2）、以下のスクリーンショットに示すように、その番号は削除できません。テーブル内の重複する列ヘッダーでの自動番号付けを防ぐために、重複するヘッダーに後ろのスペースを追加できます。以下は、ヘッダーを繰り返し、自動的に後ろのスペースを追加して、見た目は同じですが異なるものにするVBAコードです。
prevent auto numbering at duplicate column header

ヘッダーに後ろのスペースを自動追加

注: このチュートリアルで提供される方法はExcel 2021でテストされていますが、異なるExcelバージョンでは若干の違いがあるかもしれません。

ヘッダーに後ろのスペースを自動追加

1. 繰り返したいヘッダーを列に入力し、Alt + F11キーを押して Microsoft Visual Basic for Applicationsウィンドウを有効にします。

2. Microsoft Visual Basic for Applicationsウィンドウで「挿入」>「モジュール」をクリックして新しいモジュールを作成し、以下のコードをコピーして貼り付けます。

VBA: ヘッダーを繰り返し、後ろのスペースを追加

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

 copy and paste the code into the module

3. クリックします 実行 run buttonリボンの ボタンをクリックするか、または F5 キーを押してコードをアクティブにします。最初のポップアップダイアログで、繰り返したいヘッダーを選択します。クリック OK.
select the headers to repeat

4. 二つ目のポップアップダイアログで、繰り返したい回数を入力します。クリック OK.
type the repeating times

5. 繰り返したヘッダーを出力したいセルを選択します。クリック OK.
Select a cell to output the repeated headers

これで、ヘッダーが繰り返され、後ろのスペースが追加されました。
the headers are repeated and added with trailing spaces

6. ヘッダーを選択し、Ctrl + Cを押してコピーし、Ctrl + Vを押して必要なテーブルに戻します。

これで、番号なしで重複する列ヘッダーを持つテーブルが表示されます。
the table has duplicate column headers without numbering

a screenshot of kutools for excel ai

Kutools AIでExcelの魔法を解き放つ

  • スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
  • カスタム数式: ワークフローを合理化するための独自の数式を生成します。
  • VBAコーディング: 簡単にVBAコードを作成し実装します。
  • 数式の解釈: 複雑な数式を簡単に理解できます。
  • テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。
AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

その他の操作 (記事)

Excelで最大値または最小値の絶対値を見つけて記号を保持する方法
場合によっては、結果を返す際に絶対値の最大値または最小値を見つけたいが、記号を保持したい場合があります。以下のスクリーンショットに示すように。

Excelで入力時に先頭のアポストロフィを保持するにはどうすればよいですか？
ご存知の通り、数字をテキストに変更したい場合は、次のように先頭にアポストロフィ記号を入力できます：‘123。この場合、数字はテキストに変換され、アポストロフィは非表示になります。

Excelで強制的に読み取り専用で開くにはどうすればよいですか？
共有ワークブックを開いた他のユーザーに編集する際の注意を促したい場合、読み取り専用のプロンプトを表示して警告することができます...

CSVでExcelが日付を自動フォーマットするのを止めるにはどうすればよいですか？
ここに、日付が「12-may-20」というテキスト形式で含まれているCSVファイルがありますが、Excelで開くと自動的に日付形式として保存されます...

  • スーパー数式バー（複数行のテキストや数式を簡単に編集可能）； 閲覧レイアウト（多数のセルを簡単に読み取り・編集可能）； フィルター範囲への貼り付け...
  • セル/行/列を結合してデータを保持； セル内容を分割； 重複する行を統合して合計/平均を計算... 重複セルを防止； 範囲を比較...
  • 重複または一意の行を選択； 空白行を選択（すべてのセルが空）； スーパー検索および多くのワークブックでのあいまい検索； ランダム選択...
  • 数式参照を変更せずに複数のセルを正確にコピー； 複数のシートへの自動参照作成； 箇条書き、チェックボックスなどを挿入...
  • お気に入りの数式、範囲、グラフ、画像を素早く挿入； パスワードでセルを暗号化； メーリングリストを作成してメールを送信...
  • テキストの抽出、テキストの追加、特定の位置の文字を削除、スペースを削除； ページング小計の作成と印刷； セルの内容とコメント間の変換...
  • スーパーフィルター（他のシートにフィルタースキームを保存して適用）； 月/週/日ごとの高度な並べ替え、頻度など； 太字、斜体による特殊フィルタリング...
  • ワークブックとワークシートを統合； 主キーカラムに基づいてテーブルをマージ； データを複数のシートに分割； xls、xlsx、PDFの一括変換...
  • ピボットテーブルのグループ化（週番号、曜日など）... ロックされたセルとロックされていないセルを異なる色で表示； 数式/名前を持つセルをハイライト...
kte tab 201905
  • Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付き編集と閲覧を有効化します。
  • 新しいウィンドウではなく、同じウィンドウ内の新しいタブで複数のドキュメントを開き、作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します！
officetab bottom