插入并突出显示插入的行

Question

我有一段代码可以很好地用于通过为2列指定值来插入多行。我不知道如何添加代码来突出显示某些颜色的新插入行。这里是我的代码 -

Sub Multiplerows() 
    Dim rng As Integer, k As Integer 
    Dim attrib As String 
    Dim BMI As String 
    Dim rRange As Range 
    Dim salesID As Long, salesMkt As String 

    Set rRange = Selection 
    On Error Resume Next 
    rng = InputBox("Enter number:.") 
    item = InputBox("Enter name of the Item:.") 
    subject = InputBox("Enter name of the sub item:.") 
'If rng = 0 Then Exit Sub 

    For k = 1 To rng 
     Rows(rRange.Row).Insert Shift:=xlDown 

    Next k 
    For k = rng To 1 Step -1 
    Cells(rRange.Row - k, 10) = item 
    Cells(rRange.Row - k, 8) = subject 
    Next k 

End Sub 

Answer 1

取决于正是你想做的事（例如，基于行的值高亮显示），但在你的下环，你可以做类似

For k = rng To 1 Step -1 
    Cells(rRange.Row - k, 10) = item 
    Cells(rRange.Row - k, 8) = subject 
    ActiveSheet.Rows(rRange.Row - k).Interior.Color = RGB(255, 0, 0) 
Next k 

这将突出新排如鲜红色。将RGB值更改为任何你喜欢的。