插入新行VBA宏

Question

我想使用VBA宏在MS Excel中插入一个新行，并修改新行中特定单元格的背景颜色（即Interior.ColorIndex）。

我正在使用ActiveCell.Offset(1).EntireRow.Insert在活动单元格下面插入一个新行，但我不确定如何更改新行中特定单元格的背景颜色。

例如：

如果我插入了一个新行（即第4行），我想将单元格B4和C4的背景颜色更改为灰色。

非常感谢任何帮助！

此致

马丁

Answer 1

这样做：

Sub insertRowAndHighlightCells()

    Dim rng As Range
    Dim rw As Long

    With ActiveCell
        rw = .Row
        .Offset(1).EntireRow.Insert
    End With

    Set rng = Rows(rw + 1)
    rng.Columns("B:C").Interior.Color = RGB(191, 191, 191)

End Sub

修改

更简单的版本：

Sub insertRowAndHighlightCells()

    Dim rw As Long

    With ActiveCell
        rw = .Row
        .Offset(1).EntireRow.Insert
    End With

    Rows(rw + 1).Columns("B:C").Interior.Color = RGB(191, 191, 191)

End Sub

Answer 2

为什么不使用用于插入行的activecell.offset（1,0）？

E.g。

edit scheme