[已解决]关于countif的问题

lingyuncelia1

Sheet1属于张三的H列有11个1，李四有24个，王二有29个。
但是运行以下代码：
Sub four()
For j = 2 To 4
For i = 2 To 94
If Sheet1.Cells(i, 1) = Sheet2.Cells(j, 1) And Sheet1.Cells(i, 8) = 1 Then
myCount = myCount + Application.WorksheetFunction.CountIf(Sheet1.Rows(i), 1): Sheet2.Cells(j, 3) = myCount
End If
Next
Next
End Sub
张三：11，李四35，王二：64，数字变成累加了。
以上代码应如何改善呢？

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-13 11:32

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

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

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


建议：
1）求助时只保留和本题相关的数据、代码、表格等，好找些。
2）刚写代码时，最好对关键字之处注释下。

跳转到最佳答案楼层

爱疯

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

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

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


建议：
1）求助时只保留和本题相关的数据、代码、表格等，好找些。
2）刚写代码时，最好对关键字之处注释下。

望帝春心

解决了怎么不给爱疯版主最佳呢？

lingyuncelia1

爱疯 发表于 2016-5-13 11:32
Sub four()
    For j = 2 To 4
        myCount = 0

谢谢赐教！