如何按行自定义Excel单元格格式，高亮超出±20%均值范围的数值？

方法一：正确设置条件格式（无需宏） #

你之前用条件格式没成功是因为没设置相对引用，按以下步骤操作即可实现按行动态判断：

1. 选中所有需要判断的日数据单元格（比如你的D3、D4、D5列对应的120行数据区域，可根据实际列标调整）
2. 点击「开始」选项卡 → 「条件格式」→ 「新建规则」
3. 选择「使用公式确定要设置格式的单元格」
4. 输入公式（假设该行的-20%在F列，+20%在G列，根据你的实际列位置调整）：

   =OR(B2<$F2,B2>$G2)
   

   这里的B2是选中区域的第一个单元格，公式会自动对每行的单元格匹配对应行的-20%和+20%值
5. 点击「格式」按钮，设置高亮样式（比如填充浅红色），确认后完成设置

方法二：VBA宏批量处理 #

如果更习惯用宏批量操作，可按以下步骤执行：

1. 打开Excel，按Alt+F11进入VBA编辑器
2. 右键点击当前工作簿 → 「插入」→ 「模块」
3. 将以下代码粘贴到模块中（根据你的实际列标调整区域参数）：

   Sub HighlightOutliers()
       Dim ws As Worksheet
       Dim lastRow As Long
       Dim i As Long
       Dim cell As Range
       
       ' 指定目标工作表，可修改为你的表名，比如"Sheet1"
       Set ws = ThisWorkbook.Sheets("Sheet1")
       ' 获取数据最后一行（假设日数据在B列）
       lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
       
       ' 清除原有格式
       ws.Range("B2:D" & lastRow).ClearFormats
       
       ' 遍历每行数据
       For i = 2 To lastRow
           ' 检查该行的三个日数据单元格（B、C、D列）
           For Each cell In ws.Range("B" & i & ":D" & i)
               ' 对比该行的-20%（F列）和+20%（G列）值
               If cell.Value < ws.Cells(i, "F").Value Or cell.Value > ws.Cells(i, "G").Value Then
                   ' 设置高亮底色为浅红
                   cell.Interior.Color = RGB(255, 204, 204)
               End If
           Next cell
       Next i
   End Sub
   

4. 按F5运行宏，即可批量完成超出范围数据的高亮

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