插入并突出显示插入的行

Question

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

Dim values As New List(Of String) From {"firstValue", "secondValue"}

If values.Contains(variable) Then …

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值更改为您喜欢的任何值。