Excel中如何实现同行已高亮单元格关联高亮及数据提取？

我有如下表格：

需要实现两个需求：

1. 当某行的Report Date列单元格已被高亮时，高亮对应的File ID列单元格；
2. 提取出Report Date列单元格已高亮的所有行的File ID数据。

解决方案（以Excel为例） #

需求1：同步高亮File ID单元格 #

方法1：条件格式（无需代码）

1. 选中File ID列的所有数据单元格（假设表头在第1行，数据从第2行开始）
2. 点击「开始」→「条件格式」→「新建规则」
3. 选择「使用公式确定要设置格式的单元格」
4. 输入公式：=CELL("color",C1)=3（C1需替换为同行Report Date列的单元格；3对应Excel默认黄色高亮，若你用的是其他颜色，需调整为对应颜色索引值）
5. 点击「格式」，设置与Report Date列一致的填充色，确认即可。

方法2：VBA宏（精准同步任意颜色）

如果Report Date列用了非默认颜色，用宏可以完美同步：

Sub SyncFileIDHighlight()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row 'C为Report Date列，按需修改
    
    For i = 2 To lastRow '跳过表头行
        With ws.Cells(i, "A") 'A为File ID列，按需修改
            If ws.Cells(i, "C").Interior.ColorIndex <> xlNone Then
                .Interior.Color = ws.Cells(i, "C").Interior.Color
            Else
                .Interior.ColorIndex = xlNone
            End If
        End With
    Next i
End Sub

使用方式：按Alt+F11打开VBA编辑器，插入模块，粘贴代码后运行。

需求2：提取高亮行的File ID数据 #

方法1：VBA批量导出

适合大量数据，一键提取到新工作表：

Sub ExtractHighlightedFileIDs()
    Dim ws As Worksheet, outputWs As Worksheet
    Set ws = ActiveSheet
    
    '创建/获取结果工作表
    On Error Resume Next
    Set outputWs = ThisWorkbook.Sheets("高亮File ID结果")
    If Err.Number <> 0 Then
        Set outputWs = ThisWorkbook.Sheets.Add(After:=ws)
        outputWs.Name = "高亮File ID结果"
    End If
    On Error GoTo 0
    
    Dim lastRow As Long, outputRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    outputRow = 2
    outputWs.Cells(1, 1).Value = "高亮行File ID"
    
    For i = 2 To lastRow
        If ws.Cells(i, "C").Interior.ColorIndex <> xlNone Then
            outputWs.Cells(outputRow, 1).Value = ws.Cells(i, "A").Value
            outputRow = outputRow + 1
        End If
    Next i
    
    MsgBox "提取完成，结果在「高亮File ID结果」工作表中"
End Sub

方法2：手动筛选（适合少量数据）

1. 选中Report Date列表头，点击「数据」→「筛选」
2. 点击Report Date列的筛选箭头，选择「按颜色筛选」→ 选中高亮的颜色
3. 筛选完成后，选中所有可见的File ID单元格，复制粘贴到目标位置即可。

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