Excelで書式設定で空行を追加する

Question

Excelシートがあり、空白の行を挿入したいが、前の行から書式を保持したい。私はそれを得るためにvbaを使用しています。なぜなら、私が得る行の量は条件付きであるからです。私は動作するバージョンを持っていますが、より効率的にしたいのです。私のバージョンでは、行を1つずつ挿入するだけです。だからかなり遅いです。一度にすべての行を挿入する方法はありますか？

私はすでに挿入する行の量を知っていますので、vbaに一度に多くの行を挿入する方法が本当に必要です。

これは私が今やっている方法です。

For i = 5 To (selectionRows + 4) 
     Rows(i).EntireRow.Insert 
     Rows(i).EntireRow.Interior.Color = RGB(255, 255, 255) 
     Rows(i).EntireRow.Font.Color = RGB(0, 0, 0) 
     Rows(i + 1).Copy 
     Rows(i).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone 
     Rows(i).SpecialCells(xlCellTypeConstants).ClearContents 
     Cells(i, 1).Interior.Color = RGB(217, 217, 217) 
Next i 

Answer 1

それは、以下のため、宛先として行範囲を渡すを使用して複数の行に上の行をコピーすることは非常に簡単です。この

Rows(5).Resize(selectionRows).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove'