[已解决]如何用countif数0

lingyuncelia1

(ˇˍˇ) 想～统计张三、李四、王二有多少个0
可惜以下代码无效？应如何改善呢？
Sub fish()
For j = 2 To 4
For i = 2 To 94
If Sheet1.Cells(i, 1) = Sheet2.Cells(j, 1) Then
myCount = Application.WorksheetFunction.CountIf(Sheet1.Rows(i), "0")
End If
Next
myCount = myCount + 1
Sheet2.Cells(j, 3) = myCount
Next
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-12 17:22

Sub fish()
    For j = 2 To 4
        myCount = 0

        For i = 2 To 94
            If Sheet1.Cells(i, 1) = Sheet2.Cells(j, 1) Then
                myCount = myCount + Application.WorksheetFunction.CountIf(Sheet1.Rows(i), 0)
            End If
        Next

        Sheet2.Cells(j, 3) = myCount
    Next
End Sub



结果是这样的吗？

跳转到最佳答案楼层

爱疯

Sub fish()
    For j = 2 To 4
        myCount = 0

        For i = 2 To 94
            If Sheet1.Cells(i, 1) = Sheet2.Cells(j, 1) Then
                myCount = myCount + Application.WorksheetFunction.CountIf(Sheet1.Rows(i), 0)
            End If
        Next

        Sheet2.Cells(j, 3) = myCount
    Next
End Sub



结果是这样的吗？

lingyuncelia1

爱疯 发表于 2016-5-12 17:22
Sub fish()
    For j = 2 To 4
        myCount = 0

谢谢，就是要这样的效果。