如何提取具有特定颜色的所有单元格值（以及它们的单元格 ID）？

Question

我有一个看起来像 this 的数据集。

我想创建另一个只有两列的数据集：

(1) 所有红色单元格的值/文本 (2) 与每个值/文本关联的原始单元格ID

基本上，它应该看起来像this。

我假设有一种简单的方法可以做到这一点，但由于某种原因，我无法使其在 excel 上运行（可能是因为我使用的是在线版本的 excel，但我不确定)。我也很乐意使用 R 来做到这一点，以防万一更容易。

提前谢谢你！

附言对奇怪的裁剪数据集感到抱歉（出于隐私考虑）。

Answer 1

由于您愿意使用 VBA 并寻求进一步的建议，因此我编写了以下代码作为指南，以便您学习、更改它并达到预期的结果。

假设您有一个名为“Colored data”的工作表，如下所示：

还有一张名为“Analysis”的表格，如下所示：

你可以运行这段代码：

Sub CompareAndHighlightDifferences()

Dim w1 As Worksheet, w2 As Worksheet
Dim cell_color As String
Dim cell_address As String
Dim new_row As Long

Set w1 = Sheets("Colored data")
Set w2 = Sheets("Analysis")

With w1
    For Each cel In .UsedRange
        cell_color = cel.Interior.Color
        cell_address = cel.Address
        new_row = w2.Cells(Rows.Count, 1).End(xlUp).Row + 1
        w2.Cells(new_row, 1) = cell_address
        With w2.Cells(new_row, 2)
            .Value = cell_color
            .Interior.Color = cell_color
        End With
    Next cel
End With

End Sub

并在工作表'Analysis'中获得以下结果：

希望对您有所帮助。