場合によっては、他の誰かからワークシートを入手し、提供された情報を処理するためのスペースが必要になることがあります。たとえば、データテーブルの元の各行の間に空白行を追加すると便利な場合があります。これは[挿入]メニューを使用してかなり簡単に実行できますが、特に大きなテーブルを広げたい場合は、すぐに面倒になる可能性があります。

次のマクロは、この状況で非常に役立ちます。データテーブルの最初の行を選択するだけです。マクロを実行すると、元の行の間に挿入する空白行の数を尋ねられます。数値を指定すると、マクロはテーブルをステップスルーし、空白行の挿入を開始します。元のテーブルの後の最初の空白セルが検出されると、マクロは停止します。

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer          iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

注：

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

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

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

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

linkSpreading Out aTable。