求红色单元格的个数
复制代码
不是求和,是红色单元格的个数
追答已更新代码
追问是在VBA中复制代码吗?代码看不到,只看到了一段视频
追答视频上有代码啊,是后台运行的情况
复制到代码窗口
Sub 求红色单元格的个数()
Range("V2:V1000") = ""
Dim I%, K%
For I = 2 To Range("C65536").End(xlUp).Row
For K = 9 To 21
If Cells(I, K).Interior.ColorIndex = 3 Then
Cells(I, "v") = Cells(I, "v") + 1
End If
Next
Next
End Sub