Excelテーブルの重複した列ヘッダーで自動番号付けを防ぐ方法は?

Excel では、テーブルに重複した列ヘッダーを入力すると、名前、名前 1、名前 2 のように番号が自動的に追加され、下のスクリーンショットに示すように番号を削除することはできません。テーブルの重複する列ヘッダーでの自動番号付けを防ぐために、重複するヘッダーに末尾のスペースを追加できます。これは、ヘッダーを繰り返し、末尾のスペースを自動追加して、それらを異ならせながら同じように見せるのに役立つ VBA コードです。
別のリストからオートコンプリート

末尾のスペースをヘッダーに自動追加

注：このチュートリアルで提供される方法はExcel 2021でテストされており、Excelのバージョンによって異なる場合があります。

末尾のスペースをヘッダーに自動追加

1. 列に繰り返したいヘッダーを入力し、を押します。他の + F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。

2。クリック インセット > モジュール で新しいモジュールを作成するには アプリケーション向け Microsoft Visual Basic ウィンドウに、以下のコードをコピーして貼り付けます。

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. XNUMX 番目のポップアップダイアログで、必要な繰り返し回数を入力します。クリック OK.
別のリストからオートコンプリート

5. 繰り返されるヘッダーを出力するセルを選択します。クリック OK.
別のリストからオートコンプリート

これでヘッダーが繰り返され、末尾にスペースが追加されました。
別のリストからオートコンプリート

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

これで、表に番号付けされていない列ヘッダーが重複していることがわかります。
別のリストからオートコンプリート

その他の業務（記事）

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

Excelで入力するときに先頭のアポストロフィを維持する方法は?
ご存知のように、数値をテキストに変更したい場合は、'123 のように先頭にアポストロフィ記号を入力すると、数値がテキストに変換され、アポストロフィが非表示になります。

Excelで読み取り専用として強制的に開く方法は？
場合によっては、共有ブックを開く他のユーザーが共有ブックを編集するときに注意を払う必要がある場合は、読み取り専用のプロンプトを作成して警告することができます...

Excel で CSV の日付の自動書式設定を停止する方法
これは、日付をテキスト形式の 12-may-20 として含む csv ファイルですが、Excel で開くと、日付形式として自動的に保存されます...

より多くの記事

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

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

スーパーフォーミュラバー（複数行のテキストと数式を簡単に編集できます）; 読書レイアウト（多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
セル/行/列をマージするおよびデータの保持。分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。範囲を比較する...
[複製]または[一意]を選択します行; 空白行を選択（すべてのセルは空です）; スーパーファインドとファジーファインド多くのワークブックで; ランダム選択...
正確なコピー数式参照を変更せずに複数のセル。参照の自動作成複数のシートに; 箇条書きを挿入、チェックボックスなど...
お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化するパスワード付き。メーリングリストを作成するそしてメールを送る...
テキストを抽出、テキストの追加、位置による削除、スペースを削除する; ページング小計の作成と印刷。セルの内容とコメントを変換する...
スーパーフィルター（フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え月/週/日、頻度など。特殊フィルター太字、斜体...
ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
ピボットテーブルのグループ化週番号、曜日など... ロック解除された、ロックされたセルを表示するさまざまな色で; 式/名前を持つセルを強調表示する...