目次
に空白の行を配置する必要がある場合があります。 エクセル ワークシートにミスデータを入力します。 この記事では エクセル まで 下の行を挿入する .
理解を深めるために、サンプルデータセットを例にして説明します。 次のデータセットは、次のように表します。 セールスマン , 製品 そして 売上高 .
練習用ワークブックをダウンロードする
以下のワークブックをダウンロードし、ご自身で練習してください。
下の行を挿入する.xlsmエクセルで行を下に挿入する効果的な5つの方法
1.エクセルVBAで下に行を挿入する方法
で選択したセルの下に簡単に行を追加することができます。 エクセル 使って ブイビーエー このメソッドでは VBAを使う まで インサート a 下段 .
STEPS
- まず、以下を選択します。 ビジュアルベーシック 下敷きにする デベロッパー タブをクリックします。
- 次に、以下を選択します。 モジュール の下に インサート タブで表示します。
- ウィンドウがポップアップ表示されます。
- そこで、コピーします。 コード に貼り付けてください。 モジュール ウィンドウに表示されます。
Sub PlaceRowBelow() Dim rnge As Range Application.ScreenUpdating = False Set rnge = ActiveCell.Offset(1, 0) rnge.EntireRow.Select Selection.Insert Shift:=xlDown Selection.ClearFormats Application.ScreenUpdating = True End Sub. 
- その後 ビジュアルベーシック ウィンドウに表示されます。
- 次に、セルを選択します。 D5 .
- 次に、以下を選択します。 マクロ の下に デベロッパー タブで表示します。
- そこで、以下を選択します。 マクロ 名 ' PlaceRowBelow '.
- を押してください。 実行 .
- 最後に、選択したセルの下に行を追加します。
続きを読む: エクセルで行を挿入する方法(5つの方法)
2.Excel 1行おきに行を挿入する
このメソッドは 列 後 一行おき において エクセル .
2.1 Excelの空白列とソート機能で行を挿入する
ここでは 空欄 と ソート 特集 インサート を1行おきに表示します。
STEPS
- まず、一番左の列を選択します。
- 次に、マウスの右クリックで インサート オプションを一覧から選択します。
- 左側に列が追加されるだけです。
- セレクトセル A4 .
- そこで、次のように入力します。 空欄 .
- 次に コラム のように、データの終わりまで連続的に表示されます。
- ここでも、下の画像のように、列を順番に埋めていきます。
- ここで、ヘッダーを除くセル範囲を選択します。
- 次に、マウスを右クリックします。
- そこで、以下を選択します。 小さいものから大きいものへ並べ替え から ソート のオプションがあります。
- その後、データセットがそれ自身の間で再配置されていることがわかります。
- 最後に、ちょうど 削除 その 空欄 をクリックすると、目的の出力が得られます。
2.2 Excel VBAコードによる行の挿入
また、1行おきに行を追加する処理としては ブイビーエー のコードになります。
STEPS
- はじめに、作業したいセルの範囲を選択します。
- 次に ビジュアルベーシック の下にある機能です。 デベロッパー タブで表示します。
- 次に、以下を選択します。 モジュール の下に インサート タブで表示します。
- ウィンドウがポップアップ表示されます。
- そこで、コピーします。 コード に貼り付けてください。 モジュール ウィンドウに表示されます。
Sub PlaceRows() Dim rnge As Range Dim RowNumber As Integer Dim x As Integer Set rnge = Selection RowNumber = rnge.EntireRow.Count For x = 1 To RowNumber ActiveCell.Offset(1, 0).EntireRow.Insert ActiveCell.Offset(2, 0).Select Next x End Sub. 
- その後 ビジュアルベーシック ウィンドウを開き、以下を選択します。 マクロ の下に デベロッパー タブで表示します。
- そこで、以下を選択します。 配置列 において マクロ の名前を入力し 実行 .
- やがて、1行おきに空の行が表示されるようになります。
続きを読む VBAでExcelに行を挿入する（11の方法）
3.エクセルで空白セルの下に行を入力する
このセクションでは、次の方法を紹介します。 IF関数を使う まで 行の挿入 のちに ブランクセル において エクセル .
STEPS
- まず、セルを選択します。 F5 と入力し、数式を入力します。
=IF(B4"","",1) 
- 次に、 を押します。 入力 を作成し、データセットの最後の行にドラッグします。
- ここで、全体を選択します。 F列 .
- 次に、以下を選択します。 探す から 検索＆選択 のオプションがあります。 編集 の下にあるグループです。 ホーム タブで表示します。
- ダイアログボックスがポップアップ表示されます。
- そこで、次のように入力します。 1 において を探す .
- その後 すべて検索 .
- 下の画像のようにダイアログが展開されます。
- そこで、Valueを持つ行を選択します。 1 を押してください。 閉じる .
- そして、値を持つセルが 1 が自動的に選択されます。
- ここで、''キーを押します。 Ctrl ' と ' + ' を共にする。
- そこで、以下を選択します。 全列 オプションを選択し よっしゃー .
- 最終的には、次の画像のように、期待通りの結果を得ることができます。
続きを読む エクセルでセル内に行を挿入する方法（3つの簡単な方法）
類似の読み物
- 行を挿入するエクセルマクロ（8つの方法）
- Excelで条件に基づいて行を挿入するVBAマクロ（4つの方法）
- エクセルで行を移動させる方法（6つの方法）
- エクセルでn行目ごとに空白行を挿入する方法（2つの簡単な方法）
- VBAでセルの値からExcelに行を挿入する（2つの方法）
4.小計機能を使ったExcelの行の挿入
ここでは、その方法を紹介します。 インサート a 列 につけ セールスマン なかまにする エクセル .
STEPS
- まず、作業したいセルの範囲を選択します。
- 次に 小計 からの機能です。 概要 の下にあるグループです。 データ タブで表示します。
- ダイアログボックスがポップアップ表示されます。
- そこで、以下を選択します。 セールスマン から、' を変更するたびに ' リストです。 カウント から、' 使用機能 ' リスト、チェック 売上高 で、' に小計を追加する。 'のままで、あとはそのまま。
- 最後に よっしゃー .
- を押した後 よっしゃー をクリックすると、下の画像のようなデータセットが表示されます。
- ここで、以下を選択します。 スペシャへ からの 検索＆選択 のオプションがあります。 編集 の下にあるグループです。 ホーム タブで表示します。
- ダイアログボックスがポップアップ表示されます。
- そこでは 数値 オプションで 計算式 を押してください。 よっしゃー .
- を押した後 よっしゃー をクリックすると、すべてのカウント番号が選択されていることが確認できます。
- ここで、''を押し下げます。 Ctrl ' と ' + のキーを一緒に押してください。
- そこで、以下を選択します。 全列 をクリックし、ポップアップダイアログボックスで よっしゃー .
- の後に空白行が挿入されます。 セールスマン という名前を付けます。
- その後、セルの範囲を選択します。
- ここで、以下を選択します。 小計 から 概要 の下にあるグループです。 データ タブで表示します。
- プレス すべて削除 をポップアップダイアログボックスに入力します。
- そして最後に、期待通りの結果を得ることができるのです。
続きを読む エクセルで合計行を挿入する方法（4つの簡単な方法）
5.表の下に行を配置するExcel VBA
このメソッドでは、空の 列 にて。 底面 の テーブル において エクセル .
STEPS
- まず、以下を選択します。 ビジュアルベーシック の下にある機能です。 デベロッパー タブで表示します。
- ウィンドウがポップアップ表示されます。
- そこで、以下を選択します。 モジュール の下に インサート タブで表示します。
- 別のウィンドウがポップアップ表示されます。
- そこで、コピーします。 コード に貼り付けてください。 モジュール ウィンドウに表示されます。
Sub PlaceRowUnderTable() Dim sheet As Worksheet Set sheet = ActiveSheet Table_Title = InputBox("Table Title: ") Dim list As ListObject Set list = sheet.ListObjects(Table_Title) list.ListRows.Add End Sub 
- その後 ビジュアルベーシック ウィンドウに表示されます。
- 次に、以下を選択します。 マクロ の下に デベロッパー タブで表示します。
- そこで、以下を選択します。 PlaceRowUnderTable において マクロ名 を押してください。 実行 .
- ダイアログボックスがポップアップ表示されます。
- タイプ 表1 において テーブルタイトル を押してください。 よっしゃー .
- 最後に、Tableの下に空の行が表示されるようになります。
続きを読む 表の下に行を追加するエクセルマクロ
結論
ができるようになります。 インサート a 下段 において エクセル また、他の方法があれば教えてください。 コメント、ご提案、お問い合わせは、以下のコメント欄からお願いします。
