我正在尝试更新一个前同事制作的宏。原始宏在报表中查找任何带有“帮助”的表单,将其更改为“帮助”,然后突出显示包含单词“帮助”的特定单元格(这些单元格都在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',但这只是抛出一个错误。如果这是一个非常简单的错误,我很抱歉,我正在学习,我去。
1条答案
按热度按时间mqkwyuun1#
只需循环单元格: