如何通過顏色選擇單元格值並將其粘貼到單獨的列中？

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 

這是假設有每行只有一個正確答案。