Excel でセルの値に基づいて自動的に行を挿入するには、どうすればよいですか？

著者Sun変更日2024-08-23

データ範囲があり、Excel で特定の値（例：ゼロ）の上または下に自動的に空白行を挿入したい場合、下のスクリーンショットのようにゼロの値の下に自動的に行の挿入を挿入したいとします。Excel にはこのタスクを直接解決する機能はありませんが、特定の値に基づいて自動的に行の挿入を挿入できるマクロコードをご紹介します。
VBA を使用してセルの値に基づいて下に行を挿入する

Kutools for Excel を使用してセルの値に基づいて上に行を挿入する

VBA を使用してセルの値に基づいて下に行を挿入する

セルの値に基づいて行を挿入するには、以下の手順に従って VBA を実行してください。

1。Alt + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

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

VBA：セルの値に基づいて、その下に行を挿入する。

Sub BlankLine()
	'Updateby20150203
	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)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3。F5キーまたは実行ボタンをクリックすると、ゼロを含む列を選択するダイアログが表示されます。スクリーンショットを参照してください。
データリストを選択するためのVBAコード

4。OKをクリックすると、値がゼロのセルの直下に空白行が挿入されます。
条件に基づいて空白行が挿入されます

ヒント：

1。他の値に基づいて行を挿入したい場合は、VBA コード内の0を任意の値に変更できます。該当部分：If Rng.Value = "0" Then。

2。ゼロまたは他の値の上に行を挿入したい場合は、以下の VBA コードをご利用いただけます。

VBA：ゼロの値の上に行を挿入する：

Sub BlankLine()
	'Updateby20150203
	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)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

特定の値に基づいて上に行を挿入

Kutools for Excel を使用してセルの値に基づいて上に行を挿入する

VBA に不慣れな方は、Kutools for Excelの特定のセルを選択するユーティリティを使えば、上記の操作を簡単に実行できます。

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

Kutools for Excel をインストール後、以下の手順に従ってください。Kutools for Excel

1。特定のセルを検索したいリストを選択し、Kutools > 選択 > 特定のセルを選択するをクリックします（スクリーンショットを参照）。
Kutoolsの「特定のセルを選択」機能をクリック

2。表示されたダイアログで、行全体オプションにチェックを入れ、等しいを指定タイプリストから選択し、右側のテキストボックスに検索したい値を入力してください。詳しくはスクリーンショットをご確認ください。
ダイアログボックスでオプションを設定

3。OKをクリックすると、選択された行数を通知するダイアログが表示されますので、そのまま閉じてください。

4。選択した行のいずれかにカーソルを置き、右クリックしてコンテキストメニューから挿入を選択してください。スクリーンショットをご参照ください。
選択した行を右クリックし、コンテキストメニューから「挿入」を選択

これで、指定した値に基づいて上に行が挿入されました。
特定の値に基づいて上に行が挿入されました

セルの値に基づいて上に行を行の挿入

Excel に空白行を挿入する

最高の 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 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

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

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