如何通过颜色选择单元格值并将其粘贴到单独的列中？

Question

我的列值表示问题的多项选择答案。被认为“正确”的单元被着色为绿色。我想自动选择“正确”的答案并将其粘贴到单独的列中。我怎样才能做到这一点，是否有VBA解决方案呢？

Answer 1

如果我理解你的要求，这样的事情应该工作：

Sub CopyGreen() 
For Each cell In ActiveSheet.Columns("A:D").SpecialCells(xlCellTypeConstants) 
    If cell.Font.Color = RGB(155, 187, 89) Then cell.Copy ActiveSheet.Cells(cell.Row, 5) 
Next cell 
End Sub 

这是假设有每行只有一个正确答案。