Excel VBA如何实现某列非空时对应另一列单元格填充黄色背景

实现逻辑 #

针对7000行级别的批量处理做了效率优化，避免逐行读取单元格造成的卡顿：

• 先获取A列实际使用的最大行号，避免无效循环
• 一次性读取A列所有内容到数组，大幅减少VBA和单元格的交互次数
• 执行批量操作前关闭屏幕更新，完成后再恢复，进一步提升运行速度
• 同时兼容真空白单元格和公式返回空文本的判断场景

完整代码 #

Sub 对应列非空填充黄色()
    Dim lastRow As Long
    Dim arrA As Variant
    Dim i As Long
    
    ' 关闭屏幕更新，提升批量处理速度
    Application.ScreenUpdating = False
    
    ' 获取A列最后一个有内容的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    ' 适配需求中最大7000行的限制，可根据实际需求修改
    If lastRow > 7000 Then lastRow = 7000
    
    ' 一次性读取A列所有内容到数组，比逐行读单元格效率高10倍以上
    arrA = Range("A1:A" & lastRow).Value
    
    ' 循环遍历每一行判断
    For i = 1 To lastRow
        ' 判断A列当前行非空（兼容空白单元格和公式返回空文本的场景）
        If Not IsEmpty(arrA(i, 1)) And arrA(i, 1) <> "" Then
            ' 对应B列填充标准黄色
            Range("B" & i).Interior.ColorIndex = 6
        Else
            ' A列为空时清空B列背景，不需要该逻辑可删除此行
            Range("B" & i).Interior.ColorIndex = xlNone
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

使用方法 #

• 打开目标Excel文件后按Alt+F11唤出VBA编辑器
• 右键点击当前工作簿名称，选择「插入」-「模块」
• 将上述代码粘贴到模块中，按F5即可直接运行
• 如需修改匹配列和填充列，替换代码中的"A"和"B"为目标列编号即可

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