VBA实现同行单元格条件格式：标记指定日期范围内的单元格

我太懂你面对27000行数据手动操作的痛苦了——这活儿根本不是人干的！直接用VBA宏来自动化这个流程，高效又不出错。

核心思路 #

我们要给F列到AC列的每个单元格设置判断规则：如果该单元格的日期落在同行A列和B列的日期区间内，就标记成你要的样式（比如粉红色文本或红色填充）。用VBA可以一次性给所有行批量配置条件格式，不用逐行折腾。

具体VBA代码 #

打开Excel按Alt+F11调出VBA编辑器，右键你的工作簿→插入→模块，然后粘贴下面的代码：

Sub MarkDateInRange()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim lastRow As Long
    
    ' 替换成你的实际工作表名称，比如"数据汇总表"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动获取数据最后一行（靠A列判断，适配数据变动）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 定义要设置条件格式的范围：F2到AC列最后一行
    Set targetRange = ws.Range("F2:AC" & lastRow)
    
    ' 清除已有条件格式（可选，避免重复规则冲突）
    targetRange.FormatConditions.Delete
    
    ' 添加新的条件格式规则
    With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:= _
        "=AND(F2>=$A2,F2<=$B2)")
        ' 设置文本颜色为粉红色
        .Font.Color = RGB(255, 105, 180)
        ' 如果要设置单元格填充为红色，取消下面这行注释
        ' .Interior.Color = RGB(255, 0, 0)
    End With
    
    MsgBox "条件格式设置完成！", vbInformation
End Sub

代码细节说明 #

• 先指定目标工作表，记得把"Sheet1"改成你实际用的表名；
• 自动识别数据最后一行，不用硬写27000，后续数据增减也能适配；
• 先清除旧的条件格式，避免重复规则导致的格式混乱；
• 用AND(F2>=$A2,F2<=$B2)作为判断公式，确保每个单元格都匹配同行的A/B列日期区间；
• 样式可以自由切换，注释里写了文本颜色和单元格填充的设置方式，按需调整即可。

运行方法 #

粘贴完代码后，按F5直接运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选中MarkDateInRange执行就行。如果后续数据更新了，再跑一遍宏就能自动同步格式。

要是你暂时不想用VBA，也可以手动设置：选中F2到AC列最后一行，新建条件格式→使用公式确定要设置格式的单元格，输入=AND(F2>=$A2,F2<=$B2)，再设置样式就行。但27000行的规模，还是VBA省心，不会因为手动选范围出错。

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