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

新しいものを探る、 無料版 今すぐ Kutools for Outlook をお試しください!

 

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

作者: サン 最終更新日：2022年10月21日

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 で開くと、日付形式として自動的に保存されます...

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