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

Question

我的列值代表问题的多项选择答案。被认为是正确的细胞＆＃34;是绿色的。我想自动选择＆＃34;正确＆＃34;回答并粘贴在一个单独的列中。我怎样才能做到这一点，是否有针对此的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

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