[已解决]求大家帮我看一下我这段统计代码为什么得不到正确结果

lovelfg

EXCEL里A列存放了一些编号列表，现在我想like的方法在F列统计出每一个单项编号
例如101有一个，102有4个，103有4个等等。我的思路是循环每一项进行匹配，再设置一个变量K为计数器。
代码如下：
Sub newcount()
Dim i As Integer, j As Integer, k As Integer, l As Integer
k = 0
For j = 2 To 6
For i = 2 To 9
   If Range("E" & j) Like "*" & Range("A" & i) & "*" Then
        k = k + 1
    End If
    Next
   Next
  Range("F" & j) = k
End Sub
然而不知道为什么，所得到的结果完全是错的，求大神指正一下，谢谢

最佳答案

月排行榜 / 总排行榜

云影

2016-10-17 09:45

Sub newcount()
    Dim i As Integer, j As Integer, k As Integer, l As Integer
    k = 0
    For j = 2 To 6
        For i = 2 To 9
            If Range("a" & i) Like "*" & Range("e" & j) & "*" Then
                k = k + 1
            End If
        Next
        Range("F" & j) = k: k = 0
    Next
End Sub

*101/102/103* like 101  你是这样对比所以不对

跳转到最佳答案楼层

云影

Sub newcount()
    Dim i As Integer, j As Integer, k As Integer, l As Integer
    k = 0
    For j = 2 To 6
        For i = 2 To 9
            If Range("a" & i) Like "*" & Range("e" & j) & "*" Then
                k = k + 1
            End If
        Next
        Range("F" & j) = k: k = 0
    Next
End Sub

*101/102/103* like 101  你是这样对比所以不对

爱疯

Sub newcount()
    Dim i, j
    Range("f:f") = ""
    For i = 2 To 6
        For j = 2 To 9
            If Range("a" & j) Like "*" & Range("e" & i) & "*" Then
                Range("F" & i) = Range("F" & i) + 1
            End If
        Next
    Next
End Sub

lovelfg

云影 发表于 2016-10-17 09:45
Sub newcount()
    Dim i As Integer, j As Integer, k As Integer, l As Integer
    k = 0

看您的回复，就是每次把k的值重置归零？