如何将条件格式转换为文本结果？实现AM/PM时段自动标记

方案1：直接提取时段判断（无需依赖条件格式，更稳定） #

既然单元格末尾的时段格式固定，可直接提取时间部分判断上午/下午，无需依赖条件格式颜色，避免颜色识别的兼容性问题。

公式示例（K列对应单元格输入）： #

针对示例中Breakfast Club & Afterschool Club (2022/2023) - Thu, 08 Sep 2022, 07:45-08:30 session interval这类格式，可使用以下公式：

=IF(VALUE(LEFT(MID(C2,FIND(",",C2,FIND(",",C2)+1)+2,5))<12,"AM","PM")

公式说明：

1. FIND(",",C2,FIND(",",C2)+1)：定位单元格中第二个逗号的位置（跳过日期前的逗号）
2. MID(C2, ... +2,5)：提取逗号后空格开始的5位字符（即起始时间，如07:45）
3. VALUE(...)：将时间文本转为数值，与12比较，小于12标记为AM，否则为PM

如果时段位置有细微差异，可调整MID的参数，确保准确提取起始时间即可。

方案2：通过VBA读取条件格式颜色标记 #

若必须依赖已设置的黄色/蓝色条件格式来标记，可使用VBA遍历单元格，读取条件格式的填充颜色并赋值AM/PM。

VBA代码： #

Sub MarkAMPMByConditionalFormat()
    Dim targetSheet As Worksheet
    Dim dataRange As Range
    Dim currentCell As Range
    Dim cfRule As FormatCondition
    
    ' 替换为你的目标工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    ' 定义C列的数据范围（从第2行到最后一行）
    Set dataRange = targetSheet.Range("C2:C" & targetSheet.Cells(targetSheet.Rows.Count, "C").End(xlUp).Row)
    
    For Each currentCell In dataRange
        ' 遍历单元格的所有条件格式规则
        For Each cfRule In currentCell.FormatConditions
            ' 匹配条件格式的填充颜色（根据实际颜色调整RGB值）
            Select Case cfRule.Interior.Color
                Case RGB(255, 255, 0) ' 黄色，对应AM
                    targetSheet.Cells(currentCell.Row, "K").Value = "AM"
                Case RGB(0, 0, 255) ' 蓝色，对应PM
                    targetSheet.Cells(currentCell.Row, "K").Value = "PM"
            End Select
        Next cfRule
    Next currentCell
End Sub

使用步骤：

1. 按Alt + F11打开VBA编辑器
2. 右键点击目标工作表，选择「插入」→「模块」
3. 将上述代码粘贴到模块中，修改targetSheet的名称和RGB颜色值（与你的条件格式颜色一致）
4. 运行宏，即可在K列生成对应标记

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