Excel中如何根据Sheet1的单元格数值条件，利用VBA或条件格式将其他工作表相同位置的单元格标红？

在Excel中，可根据Sheet1的单元格数值条件，通过VBA宏或条件格式将其他工作表相同位置的单元格标红。

方法一：使用VBA

打开VBA编辑器（Alt+F11），插入模块并输入以下代码：

Sub HighlightBySheet1()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Sheets("Sheet1").UsedRange
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            For Each cell In rng
                If IsNumeric(cell.Value) And cell.Value <> "" Then
                    If cell.Value > 20 Then
                        ws.Cells(cell.Row, cell.Column).Interior.Color = vbRed
                    Else
                        ws.Cells(cell.Row, cell.Column).Interior.ColorIndex = xlNone
                    End If
                End If
            Next cell
        End If
    Next ws
End Sub

运行该宏后，程序会遍历Sheet1已用区域，当某单元格数值大于20时，将其他所有工作表中同行同列的单元格背景设为红色；否则清除填充色。

方法二：使用条件格式

1. 切换到需要设置的目标工作表（如Sheet2）。
2. 选中与Sheet1数据范围对应的单元格区域。
3. 点击“开始”选项卡中的“条件格式”→“新建规则”。
4. 选择“使用公式确定要设置格式的单元格”。
5. 输入公式：=AND(ISNUMBER(Sheet1!A1), Sheet1!A1>20)（假设从A1开始选区，Excel会自动调整相对引用）。
6. 点击“格式”，在“填充”选项卡中选择红色，确认保存。
7. 对其他工作表重复上述操作，或通过格式刷复制规则。

判断依据与适用条件

• VBA方式：适合一次性批量处理或数据量较大的场景，执行后颜色固定，若Sheet1数据变化需重新运行宏。
• 条件格式方式：适合需要动态响应的场景，Sheet1数值改变时其他工作表颜色自动更新，但每个工作表需单独设置规则。

常见误区

1. 跨表引用限制：早期版本Excel的条件格式不支持直接跨工作表引用，Excel 2010及以上版本支持在条件格式公式中引用其他工作表单元格。
2. 数据类型未校验：若未判断单元格是否为数值，文本内容参与比较可能导致错误或异常结果。
3. 性能问题：当Sheet1已用区域非常大时，VBA双重循环可能耗时较长，可先关闭屏幕刷新（Application.ScreenUpdating = False）以提升效率。