vba 调用 countif 函数问题

sk_jack

各位老师

我刚开始学习VBA，在自己练习的过程中，发现了一个问题，求解答。数据如附件

源数据是A1:G18，需求是在K列显示A1:A18中各单元格重复出现的次数。在L列中是用countif函数直接计算的，但是用vba调用countif就怎么也运行不出。
vba如下：

Private Sub test()

Dim rng As Range, i As Integer

i = 1

For Each rng In Range("a1:a18")

    Range("i" & i) = Application.WorksheetFunction.CountIf(Range("a1:i18"), "A & i")

    i = i + 1

Next rng

End Sub

周星骋

这里不想讨论楼主原公式是否合理。
只帮楼主更正VBA代码

1. Private Sub test()
   
2.     Dim rng As Range, i As Integer
   
3.     i = 1
   
4.     For Each rng In Range("A1:A18")
   
5.         Range("I" & i) = Application.WorksheetFunction.CountIf(Range("A" & i & ":G18"), Range("A" & i))
   
6.         i = i + 1
   
7.     Next rng
   
8. End Sub
   
9. 
   

复制代码

sk_jack

周星骋 发表于 2016-8-31 18:13
这里不想讨论楼主原公式是否合理。
只帮楼主更正VBA代码

多谢指正！

YincyHe

行怎么引用