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

Excel で値が変化する位置に空白行を挿入するには、どうすればよいですか?

著者Xiaoyang変更日
サンプルデータ 右矢印値が変更されたときに空白行を挿入

ある範囲のデータについて、値が変化する位置に空白行を挿入し、1 つの列内で連続する同じ値を以下のスクリーンショットのように分離したい場合があります。本記事では、この課題を解決するためのいくつかのテクニックをご紹介します。

小計機能で値が変化する位置に空白行を挿入する

強力な機能で値が変化する位置に指定した数の空白行を挿入する

補助列を使って値が変化する位置に空白行を挿入する

VBA コードで値が変化する位置に空白行を挿入する


小計機能で値が変化する位置に空白行を挿入する

小計機能を使えば、値が変わる位置に自動で空白行を挿入できます。以下の手順に従ってください。

1.使用したいデータ範囲を選択します。

2データ>小計をクリックして小計ダイアログボックスを開き、小計ダイアログで以下の操作を行います。

小計ダイアログで操作を指定
1:値が変化する際に空白行を挿入する対象の列名を選択します。「変更ごと」セクション内にて。
2「カウント」「関数を使用」ドロップダウンリストから選択します。
3:小計を挿入したい列名を「小計を追加する列」リストボックス内でチェックします。

3.次にOKをクリックすると、異なる製品の間に小計行が挿入され、テーブルの左側にアウトライン記号が表示されます(スクリーンショット参照)。

異なる製品の間に小計行が挿入されました

4.次に、アウトライン記号の上部にある数字「2」をクリックして、小計行のみを表示します。

小計行を表示するには数字 2 をクリック

5.次に小計の範囲データを選択し、Alt+;ショートカットキーを押して、表示されている行のみを素早く選択しましょう(スクリーンショット参照)。

ショートカットキーを押して表示されている行を選択

6.表示されている行のみを選択した後、キーボードのDeleteキーを押すと、すべての小計行が削除されます。

7.次に他のセルをクリックし、データ>グループ解除>アウトラインのクリアをクリックして、アウトラインを削除します(スクリーンショット参照)。

アウトラインを削除するには「アウトラインのクリア」をクリック

8.これでアウトライン記号が一括でクリアされ、値が変化する位置にデータ間に空白行が挿入されたことを確認できます(スクリーンショット参照)。

値が変更されるたびにデータの間に空白行が挿入されました

9.最後に、必要に応じて A 列を削除できます。


強力な機能で値が変化する位置に指定した数の空白行を挿入する

上記の煩雑な手順に疲れてしまったら、ぜひこの便利なツール——Kutools for Excel列の変更をマークする機能をご活用ください!セルの値が変わる位置に、改ページや空白行、下罫線、塗りつぶし色を素早く簡単に挿入できます。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。         無料トライアル。。。

ヒント:Kutools for Excelをまずダウンロードしてから、この列の変更をマークする機能を簡単かつ素早くご利用ください。

Kutools for Excelをインストールした後、以下の手順で操作してください。

1Kutools > 書式 > 列の変更をマークするをクリックします(スクリーンショット参照)。

Kutools の「差分を強調表示」機能をクリック

2列の変更をマークするダイアログボックスで、次の操作を行ってください。

  • 使用したいデータ範囲を選択し、空白行を挿入する基準となるキーカラムを選んでください。
  • 次に、空白行オプションをオプションセクションでチェックし、挿入したい空白行の数を入力してください。

ダイアログボックスで操作を設定

3.次にOKボタンをクリックすると、セルの値が変化する位置に指定した数の空白行がデータ内に挿入されます(スクリーンショット参照)。

元のデータ右矢印セルの値が変更された場合、指定した数の空白行がデータに挿入されました

Kutools for Excel を今すぐダウンロードして無料トライアル!


補助列を使って値が変化する位置に空白行を挿入する

補助列を使う場合は、まず数式を挿入し、次に検索と置換関数を適用し、最後に値が変化する位置に空白行を挿入します。以下の手順に従って操作してください。

1.空白セル C3 に数式 =A3=A2を、セル D4 には数式 =A4=A3をそれぞれ入力します(スクリーンショット参照)。

数式を使用して2つのヘルパー列を作成

2.次に C3:D4 を選択し、フィルハンドルを数式を適用したい範囲までドラッグすると、セルにTRUEまたはFALSEが表示されます(スクリーンショット参照)。

数式を他のセルにドラッグしてコピー

3.次に、Ctrl + Fキーを押して検索と置換ダイアログを開きます。FALSEを表示されたダイアログの検索対象テキストボックス()検索タブ内)に入力し、オプションボタンをクリックしてダイアログを展開したら、検索範囲ドロップダウンリストからを選択します(スクリーンショット参照)。

「検索と置換」ダイアログで操作を指定

4.すべて検索ボタンをクリックし、続いてCtrl + Aを押すと、検索結果のすべての FALSE セルが一括で選択されます(スクリーンショット参照)。

検索結果すべてを選択するには Ctrl + A を押す

6検索と置換ダイアログを閉じた後、次のステップとして、ホーム>挿入>シートの行を挿入をクリックして空白行を挿入できます。これにより、列 A の値が変化する位置にデータ内に空白行が自動的に挿入されます(スクリーンショット参照)。

「ワークシート行を挿入」機能をクリック右矢印値が変更されるたびにデータに空白行が挿入されました

7.最後に、必要に応じて補助列 C および D を削除できます。


VBA コードで値が変化する位置に空白行を挿入する

上記の方法の使用に疲れてしまった場合は、以下のコードも値が変化する位置に空白行を一度に挿入するのに役立ちます。

1ALT + F11キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2挿入>モジュールをクリックし、表示されるモジュールウィンドウに以下のコードを貼り付けてください。

VBA コード:値が変化する位置に空白行を挿入する

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3.次にF5キーを押してこのコードを実行すると、値が変化する位置に空白行を挿入するための基準列として使用するデータを選択するプロンプトボックスが表示されます(スクリーンショット参照)。

データ範囲を選択する VBA コード

4.次にOKをクリックすると、列 A の値が変わる位置にデータの間に空白行が挿入されます。

最高の Office 業務効率化ツール

🤖KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行     コード生成  カスタム数式作成    データ分析とチャート生成  拡張機能呼び出し
人気の機能検索・ハイライト、または重複をマーキング     空白行を削除する     データを失うことなく列の結合またはセルを     数式を使用しない四捨五入...
スーパー LOOKUP複数条件 VLookup    複数値 VLookup     複数シート間 VLookup      ファジーマッチ....
高度なドロップダウンリストドロップダウンリストをすばやく作成     連動型ドロップダウンリスト     複数選択可能なドロップダウンリスト....
列マネージャー指定した数の列を追加列の移動非表示列の表示状態を切り替え範囲および列の比較...
注目の機能グリッドフォーカス     デザインビュー   強化された数式バー    ワークブックとシートマネージャー     リソースライブラリ(オートテキスト)  日付ピッカー     ワークシートの統合    暗号化/セルの復号化    リストからメール送信     スーパーフィルター      特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。
トップ15 ツールセット12 テキストツールテキストの追加特定の文字を削除、...)   50+チャートタイプガントチャート、...)   40+実用的関数誕生日に基づいて年齢を計算します、...)   19 挿入ツールQR コードを挿入パスから画像を挿入、...)   12 変換ツール単語に変換する為替レートの変換、...)   7 結合と分割ツール高度な行のマージセルの分割、...)さらに多数
Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています!

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。


Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

  • Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
  • 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
  • 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

ExcelWordOutlookTabsPowerPoint
  • オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
  • インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
  • 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
  • 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
  • 最高のお得感— 個別アドイン購入よりお得