如何按条件格式颜色提取规则中的邮政编码文本？

可以通过VBA宏批量提取条件格式规则中的邮政编码，并按颜色分类整理到列中，具体操作如下：

方法1：VBA宏提取规则内容并按颜色分组 #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 插入新模块：右键点击左侧工程窗口中的工作簿名称 → 插入 → 模块
3. 将以下代码粘贴到模块中：

Sub ExtractConditionalFormatZIPsByColor()
    Dim ws As Worksheet
    Dim cfRule As FormatCondition
    Dim zipCol As Integer, greenRow As Integer, orangeRow As Integer
    Dim zipCode As String
    
    ' 设置目标工作表（可根据实际修改）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 设置结果起始列和行
    zipCol = 1 ' A列
    greenRow = 2
    orangeRow = 2
    
    ' 写入表头
    ws.Cells(1, zipCol).Value = "绿色规则邮政编码"
    ws.Cells(1, zipCol + 1).Value = "橙色规则邮政编码"
    
    ' 遍历所有条件格式规则
    For Each cfRule In ws.Cells.FormatConditions
        ' 只处理文本完全匹配的规则
        If cfRule.Type = xlCellValue And cfRule.Operator = xlEqual Then
            zipCode = cfRule.Formula1
            ' 去除公式里的引号
            zipCode = Replace(zipCode, """", "")
            
            ' 根据填充颜色判断分组（这里的RGB值需要和你的条件格式颜色对应，可自行调整）
            Select Case cfRule.Interior.Color
                Case RGB(0, 255, 0) ' 绿色
                    ws.Cells(greenRow, zipCol).Value = zipCode
                    greenRow = greenRow + 1
                Case RGB(255, 165, 0) ' 橙色
                    ws.Cells(orangeRow, zipCol + 1).Value = zipCode
                    orangeRow = orangeRow + 1
            End Select
        End If
    Next cfRule
    
    MsgBox "提取完成！"
End Sub

4. 调整代码参数：
   • 修改Set ws = ThisWorkbook.Worksheets("Sheet1")为你的目标工作表名称
   • 根据实际条件格式的绿色、橙色RGB值替换代码中的RGB(0,255,0)和RGB(255,165,0)（可用取色工具获取准确RGB）
5. 按F5运行宏，提取结果会自动整理到A、B列（可根据需求修改列号）

注意事项 #

• 如果你的条件格式规则是基于自定义公式（而非直接单元格值匹配），需要调整代码中判断规则类型的逻辑，解析公式中的邮政编码内容
• 运行宏前建议先备份文件，避免意外数据丢失
• 若规则中存在重复的邮政编码，宏会全部提取，后续可通过数据→删除重复值功能去重

内容的提问来源于stack exchange，提问作者James 'Mook' Pite