jialan75的博客

Sub 选区遍历()useCols = Selection.Columns.CountFor Each c In Selection.Rowsa = 0For i = 1 To useColsIf c.Cells(1, i).Interior.Color = RGB(255, 0, 0) Thena = a + 1End IfNextc.Cells(1, i) = aNextEnd Sub