www.exceldemy.com

Dim okCount As Integer Dim ngCount As Integer Dim emptyCount As Integer okCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "ok") ngCount = WorksheetFunction.CountIf(Range("D9").CurrentRegion.Columns(2), "ng") emptyCo…