Question

我有一个Excel工作表，我想插入空白行，但保留上一行的格式。我正在使用vba，因为我获得的行数是有条件的。我有一个有效的版本，但我想让它更有效率。我的版本现在只是逐行插入行。所以它很慢。有没有办法一次插入所有行？

我已经知道要插入的行数，所以我真的只需要在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'

在Excel中添加带格式的空行

1 个答案: