咨询：如何在Excel中基于当前年月自动高亮对应整行

方法一：条件格式（无需启用宏） #

• 选中需要应用高亮的数据区域（假设表头在第1行，数据从第2行开始）
• 点击「开始」选项卡 → 「条件格式」→ 「新建规则」→ 选择「使用公式确定要设置格式的单元格」
• 在公式框中输入（根据你的年份列、月份列位置调整单元格引用）：

  =AND($A2=YEAR(TODAY()),$B2=MONTH(TODAY()))
  

• 点击「格式」按钮，设置高亮样式（比如填充颜色），确认后完成
• 开启自动重算确保打开时刷新：点击「文件」→「选项」→「公式」→ 勾选「自动重算」

方法二：VBA宏（每次打开自动触发，更稳定） #

• 按Alt + F11打开VBA编辑器
• 在左侧「工程资源管理器」中找到目标工作簿，双击「ThisWorkbook」
• 在右侧代码窗口粘贴以下代码（注意修改工作表名和颜色参数）：

  Private Sub Workbook_Open()
      Dim ws As Worksheet
      Dim lastRow As Long
      Dim currentYear As Integer, currentMonth As Integer
      
      ' 替换为你的工作表名称
      Set ws = ThisWorkbook.Sheets("Sheet1")
      currentYear = Year(Date)
      currentMonth = Month(Date)
      
      ' 清除旧的高亮规则
      ws.Cells.FormatConditions.Delete
      
      ' 获取数据最后一行（年份列设为A列，可按需调整）
      lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
      
      ' 添加新的高亮规则
      With ws.Range("A2:" & ws.Cells(lastRow, ws.Columns.Count).Address).FormatConditions.Add(Type:=xlExpression, Formula1:= _
          "=AND($A2=" & currentYear & ",$B2=" & currentMonth & ")")
          .Interior.ColorIndex = 6 ' 黄色高亮，可修改ColorIndex换颜色（3=红色、4=绿色）
      End With
  End Sub
  

• 保存文件时选择「Excel启用宏的工作簿（.xlsm）」格式，下次打开即可自动触发高亮

内容的提问来源于stack exchange，提问作者Manoj Kumar G