在excel中从突出显示单元格更改为突出显示整行

zdwk9cvp  于 2023-05-01  发布在  其他
关注(0)|答案(1)|浏览(135)

我正在尝试更新一个前同事制作的宏。原始宏在报表中查找任何带有“帮助”的表单,将其更改为“帮助”,然后突出显示包含单词“帮助”的特定单元格(这些单元格都在A列中)。)一个团队成员问我是否可以将其更改为突出显示整行而不仅仅是该单元格,作为VBA的新手,我花了很长时间才弄清楚这一点。
当前代码如下所示:

Public Sub DR_HelpReplace()
'Replace any instance of Help with HELP and highlight cell

    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 22
    End With
    Columns("A:A").Select
    Selection.Replace what:="help", Replacement:="HELP", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
    Range("A1").Select

End Sub

在四处寻找之后,我试着改变。ColorIndex到'。EntireRow.Interior.ColorIndex',但这只是抛出一个错误。如果这是一个非常简单的错误,我很抱歉,我正在学习,我去。

mqkwyuun

mqkwyuun1#

只需循环单元格:

Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row

Dim cell As Range
For Each cell In Range("A1:A" & lastRow)
    If LCase$(cell.Value) = "help" Then
        cell.Value = "HELP"
        cell.EntireRow.Interior.ColorIndex = 22
    End If
Next

相关问题