编译错误 类型不匹配

秀才遇到兵

下面这个程序  运行时总是提醒 “编译错误 类型不匹配”，求解决

Sub aaa ()
    Dim i As Integer
    Dim s
        s = Application.WorksheetFunction.CountIf("d" & "2" & ":" & "d" & i, "d" & i)
    For i = 2 To Cells(2, "d").End(xlUp)
        If s = 1 Then
            Cells(i, "n") = Cells(i, "d")
            Cells(i, "o") = Application.WorksheetFunction.SumIf("d:d", "d" & i, "f:f")
        Else
            Cells(i, "n") = ""
            Cells(i, "o") = ""
        End If
    Next

End Sub

望帝春心

要用RANGE....

秀才遇到兵

望帝春心 发表于 2016-8-18 17:26
要用RANGE....

具体怎么用啊  用range替换cells?好像不行哎 而且错误提示上是 sub aaa ()  这一栏背景色变黄

望帝春心

秀才遇到兵 发表于 2016-8-18 17:39
具体怎么用啊  用range替换cells?好像不行哎 而且错误提示上是 sub aaa ()  这一栏背景色变黄

提问请上传EXCEL压缩文件，模拟数据，说明规则并模拟出结果。

秀才遇到兵

望帝春心 发表于 2016-8-18 17:47
提问请上传EXCEL压缩文件，模拟数据，说明规则并模拟出结果。

判断 D列相同则F列求和，并把D列的数据显示在第一次出现该值的同行第N列，把和显示在O列。

望帝春心

1. Sub test()
   
2. Dim d, d2, arr, i%, n%, r%
   
3. Dim brr(1 To 100, 1 To 2)
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("d2:f" & Cells(Rows.Count, 4).End(3).Row)
   
6. For i = 1 To UBound(arr)
   
7.     If d.Exists(arr(i, 1)) Then
   
8.         r = d(arr(i, 1))
   
9.         brr(r, 2) = brr(r, 2) + arr(i, 3)
   
10.     Else
    
11.         d(arr(i, 1)) = i
    
12.         brr(i, 1) = arr(i, 1)
    
13.         brr(i, 2) = arr(i, 3)
    
14.     End If
    
15. Next
    
16. Range("n2").Resize(i, 2) = brr
    
17. End Sub

复制代码

大神写的代码

pel46585

是不是你dim 过aaa啊？最好过程名跟变量名，或者表名等等都不同。相同时估计会出现一些不可知错误吧。

秀才遇到兵

望帝春心 发表于 2016-8-18 20:23
大神写的代码

嗯 很好用  就是不知道意思  可以解释下吗

秀才遇到兵

pel46585 发表于 2016-8-18 21:18
是不是你dim 过aaa啊？最好过程名跟变量名，或者表名等等都不同。相同时估计会出现一些不可知错误吧。

不是  换名字一样   还是这个问题