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

如果我理解你的要求,像这样的事情应该行得通:

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

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