å·²éªè¯æ 误ï¼åææ¯æ¯ä¸è¡å¿ é¡»æä¸åªæä¸ä¸ªèæ¯è²ä¸ä¸ºåè²ï¼ï¼
Sub Colo()
Range("A:A").Font.Color = RGB(255, 0, 0)
For ro = 1 To Range("B1").End(xlDown).Row
For cl = 2 To Range("A4").End(xlToRight).Column
If Cells(ro, cl).Interior.Color <> RGB(255, 255, 255) Then
If Cells(ro, cl).Value < 5 Then
Cells(ro, 1).Value = 1
Else
Cells(ro, 1).Value = 2
End If
End If
Next
Next
End Sub
求公式,谢谢
判断右侧10列每一行带背景色单元格数值的大小,然后在第一列显示出来