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

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

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：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

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

このヒント（2344）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excelribbon-Spreading_Out_a_Table [Spreading Out aTable]。