KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel テーブルで重複する列ヘッダーによる自動採番を防ぐには？

著者Sun変更日

Excel では、テーブル内に重複する列ヘッダーを入力すると、「name」「name1」「name2」のように自動的に番号が付与され、下のスクリーンショットのようにその番号は手動で削除できません。テーブル内で重複する列ヘッダーの自動採番を回避するには、重複するヘッダーの末尾にスペースを追加してください。以下の VBA コードを使えば、見た目は同じでも内部的に一意となるよう、ヘッダーの末尾に自動でスペースを追加できます。
重複する列見出しでの自動番号付けを防止

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

注：本チュートリアルで紹介する方法は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

 コードをモジュールにコピーして貼り付け

3．リボンの実行繰り返す見出しを選択ボタンをクリックするか、F5キーを押してコードを実行します。コード実行後、最初に表示されるダイアログで繰り返したいヘッダーを選択し、OKをクリックしてください。
繰り返す見出しを選択

4．2 つ目のダイアログで、繰り返し回数を入力して、OKをクリックします。
繰り返し回数を入力

5．繰り返し表示したいヘッダーの出力先セルを選択し、OKをクリックします。
繰り返された見出しを出力するセルを選択

これでヘッダーが繰り返され、末尾にスペースが追加されました。
見出しが繰り返され、末尾にスペースが追加される

6．ヘッダーを選択し、Ctrl+C を押してコピーしたら、必要なテーブルでCtrl+Vを押して貼り付けます。

これで、テーブルに重複する列ヘッダーが番号なしで表示されます。
番号付けなしで列見出しが重複している表

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 を一括変換…
  • PivotTable を以下でグループ化：週番号、曜日など…ロック解除済みセルと選択範囲をロックを異なる色で表示；数式／名前を持つセルをハイライト表示…
kte tab 201905
  • Word、Excel、PowerPoint でタブを使った編集と閲覧を有効化。Publisher、Access、Visio、Project でもご利用いただけます。
  • 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
  • 生産性が50％向上し、毎日数百回のマウスクリックを削減できます！
officetab bottom