Question

我需要更改已由下面的宏代码插入的行的颜色（或特定行中的单元格A到H）。扫描Col H的if语句是需要进行颜色更改的位置。

Sub SolidWorks()

Application.ScreenUpdating = False

Range("A100000").End(xlUp).Activate
Range("N1") = ActiveCell.Row

For lrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row To 1 Step -1
If Cells(lrow, "B") = 0 Then
            Rows(lrow).EntireRow.Delete
End If
Next lrow

For lrow = Cells(Cells.Rows.Count, "H").End(xlUp).Row To 1 Step -1
    If Cells(lrow, "H") <> Cells(lrow - IIf(lrow = 1, 0, 1), "H") Then
            Rows(lrow).EntireRow.Insert  '<---- insert green row, instead of just a blank row
'.Color = 5287936
'                With Selection.Interior
'                .Pattern = xlSolid
'                .PatternColorIndex = xlAutomatic
'                .Color = 5287936
'                .TintAndShade = 0
'                .PatternTintAndShade = 0
'                End With
    End If
Next lrow

For lrow = Cells(Cells.Rows.Count, "G").End(xlUp).Row To 1 Step -1
    If Cells(lrow, "G") <> Cells(lrow - IIf(lrow = 1, 0, 1), "G") Then
            Rows(lrow).EntireRow.Insert
    End If
Next lrow

Range("A1").Select

Application.ScreenUpdating = True

End Sub

Answer 1

你已经在那里，你只需要一行 Rows(lRow).EntireRow.Insert

，那是Range("A" & lRow & ":H" & lRow).Interior.Color = 5287936

excel vba插入行并更改颜色

1 个答案: