上記のセル値に基づいてExcelで空白行を挿入するにはどうすればよいですか？

Excelでは、空白行の挿入は、日常業務で最も一般的に使用される関数のXNUMXつです。 ただし、下のスクリーンショットに示すように、上のセル値に基づいて空白行をすばやく挿入する方法はありますか？ さて、この記事では、Excelで上記のセル値に基づいて空白行をすばやく挿入する方法について説明します。

上記の値に基づいて行を挿入します

上記の値に基づいて行を挿入します

上記の番号に基づいて空白行を挿入する場合は、マクロコードを使用できます。

1.使用するシートを有効にして、を押します Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、以下のコードをスクリプトに貼り付けます。

VBA：上のセルに基づいて空白のコードを挿入します

Sub Insert（） 'UpdatebyExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I、xNum、xLastRow、xFstRow、xCol、xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox（ "使用する範囲を選択（単一列）： "、" KuTools For Excel "、xAddress 、、、、、 8）xRgが何もない場合は、サブアプリケーションを終了します。ScreenUpdating= False xLastRow = xRg（1）.End（xlDown）.Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Set xRg = xRg（1）For I = xLastRow To xFstRow Step -1 xNum = Cells（I、xCol）If IsNumeric（xNum）And xNum> 0 Then Rows（I + 1）.Resize （xNum）.Insert xCount = xCount + xNum End If Next xRg.Resize（xCount、1）.Select Application.ScreenUpdating = True End Sub

3。 押す F5 キーを押してコードを実行すると、作業するリストを選択するように促すダイアログが表示されます。 スクリーンショットを参照してください：

4。 クリック OK、空白行が挿入されました。