テーブルで作業していて、テーブル内の既存の各行の間に空白行を挿入したい場合があります。これを行う簡単な方法がいくつかあります。マクロを使用したくない場合は、次の手順に従ってください。

。リストまたはテーブルの任意の場所に空白の列を挿入します。

。新しい列の最初のテーブルセルに値1を入力し、2番目のセルに値2を入力します。

。手順2で入力した2つのセルを選択し、塗りつぶしハンドルを使用してテーブルの最後のセルまでドラッグします。これで、1からテーブルにいくつある行まで、連続した番号で満たされた列ができました。これらの塗りつぶされたセルは引き続き選択する必要があります。

。 Ctrl + Cを押します。これにより、セルがクリップボードにコピーされます。

。新しい列の最後のセルのすぐ下に、コピーしたセルを貼り付けます。

これで、テーブルの下に、手順3で作成したのと同じ連続番号で埋められた別の範囲のセルが表示されます。

。元のテーブルの任意のセルを選択します。

。リボンの[データ]タブを表示します。

。 [並べ替えとフィルター]グループで[並べ替え]をクリックします。 Excelは、手順5で追加された行を含むテーブルを選択し、[並べ替え]ダイアログボックスを表示します。

（図1を参照）

。番号を含む新しい列で昇順で並べ替えることを指定します。

。 [OK]をクリックします。テーブルは頼りにされます。

。手順1で追加した列を削除します。

上記の手順は、Excelが並べ替えを行う方法のために機能します。

何らかの理由で、2つの空白行が隣り合ってしまう場合（つまり、並べ替えが本来のとおりに機能しない場合）、プロセスを少し変更できます。手順2で、上の2つのセルに1と3の数字を入力します。これにより、新しい列に奇数が入力されます。手順4と5を実行する代わりに、同じ領域を偶数のセルで埋めるだけです（最初のセルを2で埋め、2番目のセルを4で埋めるだけです）。次に、手順6〜10で並べ替えると、結果のテーブルの行が適切な順序でインターリーブされます。

マクロの使用を嫌がらない場合は、空白行を挿入する方がさらに簡単です。影響を与える行を選択して、次のマクロを実行するだけです：

Sub AddBlankRows1()

Dim J As Integer     Dim MySelection As Range

If TypeName(Selection) <> "Range" Then Exit Sub     Set MySelection = Selection     Application.ScreenUpdating = False     For J = MySelection.Rows.Count To 1 Step –1         MySelection.Rows(J).EntireRow.Insert     Next J     Application.ScreenUpdating = True End Sub

同じマクロのやや短いバリエーションは次のとおりです。

Sub AddBlankRows2()

FR = Selection.Rows.Row     LR = Selection.Rows.Count + FR - 1     For R = LR To FR + 1 Step -1         Rows(R).Insert     Next End Sub

もちろん、行を追加する唯一の目的が情報の「スペースを空ける」ことである場合は、テーブルの各行の高さを増やすだけで同じことを実現できることを覚えておく必要があります。データテーブルに追加情報を挿入するためにそれらの行が必要な場合にのみ、物理的に空白行を追加する必要があります。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（9667）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkEasily Adding BlankRows。