Excel统计带颜色单元格个数
金斧子喉片:
Sub x()
Dim i, j, m As Integer
For i = 4 To 13
m = 0
For j = 3 To 7
If Cells(i, j).Interior.ColorIndex <> -4142 Then
m = m + 1
End If
Cells(i, 8) = m
Next
Next
End Sub
知识分享官 EXCEL EXCEL教程 EXCEL技巧 打卡挑战 必剪创作