Excel VBA解决方案需求：指定列行星名称匹配及对应列空值标红处理

这就给你一个精准适配需求的VBA代码，完全覆盖你提到的所有场景：

代码实现 #

Sub MarkMissingTColumnValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetPlanets As Variant
    Dim checkColumns As Variant
    Dim i As Long
    Dim col As Variant
    Dim hasMatchingPlanet As Boolean
    
    ' 指定要操作的工作表，可改为具体表名如ThisWorkbook.Worksheets("Data")
    Set ws = ActiveSheet
    
    ' 定义目标行星列表，方便后续修改
    targetPlanets = Array("Mercury", "Mars", "Jupiter", "Neptune", "Saturn")
    ' 定义需要检查的列（J=10, L=12, N=14）
    checkColumns = Array(10, 12, 14)
    
    ' 获取数据的最后一行（取J、L、N列中最大的行号，确保不遗漏数据）
    lastRow = Application.Max( _
        ws.Cells(ws.Rows.Count, 10).End(xlUp).Row, _
        ws.Cells(ws.Rows.Count, 12).End(xlUp).Row, _
        ws.Cells(ws.Rows.Count, 14).End(xlUp).Row _
    )
    
    ' 关闭屏幕更新提升运行效率
    Application.ScreenUpdating = False
    
    ' 从第2行开始循环检查每一行
    For i = 2 To lastRow
        hasMatchingPlanet = False
        
        ' 检查当前行的J、L、N列是否存在目标行星
        For Each col In checkColumns
            ' 使用Match函数快速判断单元格值是否在目标行星数组中
            If Not IsError(Application.Match(ws.Cells(i, col).Value, targetPlanets, 0)) Then
                hasMatchingPlanet = True
                Exit For ' 找到匹配后直接跳出列循环，提升效率
            End If
        Next col
        
        ' 如果找到目标行星，检查T列（第20列）是否为空
        If hasMatchingPlanet Then
            With ws.Cells(i, 20)
                If .Value = "" Then
                    .Interior.Color = vbRed ' 单元格背景标红，若需字体红则改为.Font.Color = vbRed
                Else
                    .Interior.Color = xlColorIndexNone ' 若之前标红过，恢复默认背景
                End If
            End With
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "检查完成！", vbInformation
End Sub

代码说明 #

• 工作表指定：默认使用当前激活的工作表，你可以修改Set ws = ActiveSheet为Set ws = ThisWorkbook.Worksheets("你的表名")来指定固定工作表
• 灵活配置：目标行星和检查列都用数组定义，后续修改只需调整数组内容即可
• 效率优化：关闭屏幕更新减少闪烁，找到匹配行星后立即跳出列循环，避免不必要的检查
• 覆盖所有场景：不管一行中有1个还是多个目标行星，只要存在就会检查T列；T列有值时会自动清除之前的红色标记（如果有的话）

使用步骤 #

1. 打开你的Excel文件
2. 按下Alt + F11打开VBA编辑器
3. 在左侧工程窗口中，右键点击你的工作簿 → 插入 → 模块
4. 将上述代码粘贴到模块窗口中
5. 按下F5运行代码，或者回到Excel界面，点击开发工具 → 宏 → 选择MarkMissingTColumnValues → 执行

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