Excel VBA：选中H列空白所在行后设置A、H列值为Estoque并填充浅蓝色

直接跳过选中整行的操作即可完成需求，调整后的代码如下：

Sub 批量修改目标单元格()
    Dim hBlankRng As Range, cell As Range
    ' 处理H列无空白单元格时的报错问题
    On Error Resume Next
    Set hBlankRng = Columns("H:H").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If Not hBlankRng Is Nothing Then
        For Each cell In hBlankRng
            ' 赋值+填充H列对应单元格
            cell.Value = "Estoque"
            cell.Interior.Color = RGB(173, 216, 230)
            ' 赋值+填充对应行A列单元格
            Cells(cell.Row, 1).Value = "Estoque"
            Cells(cell.Row, 1).Interior.Color = RGB(173, 216, 230)
        Next
    End If
End Sub

代码说明 #

• RGB(173, 216, 230)为标准浅蓝色的色值，可根据实际需求调整三个参数修改填充色深浅
• 全程无需选中单元格/行，运行效率更高，也不会触发界面选中状态的变化
• 增加了空白区域判断逻辑，避免H列没有空白单元格时触发运行报错

内容的提问来源于stack exchange，提问作者Afonso Medeiros