使用宏vba中的公式运行时错误“1004”

Question

I'm trying to insert a formula in a macro vba and write the output in a cell but i get a run-time error.. I'm not a vba developer so i can't understand what is wrong. I write only some simple macros.. This is what i wrote so far:

Sub count()

  Range("E6").Formula = "=SUM(IF(FREQUENCY(MATCH(A2:A96;A2:A96;0);MATCH(A2:A96;A2:A96;0))>0;1))"

End Sub

I expect that in the E6 cell will get the output, using only the formula i get 51, but when i run the macro i get the error.. Any help? Thanks

EDIT: Using InputBox

 Dim myRange As Range

    Set myRange = Application.InputBox(Prompt:= _
        "Select a Range", _
        Title:="InputBox Method", Type:=8)

    Range("E6").Formula = "=SUM(IF(FREQUENCY(MATCH(A2:A96,A2:A96,0),MATCH(A2:A96,A2:A96,0))>0,1))"

Answer 1

您应该使用我们的美式分隔符：

  Range("E6").Formula = "=SUM(IF(FREQUENCY(MATCH(A2:A96,A2:A96,0),MATCH(A2:A96,A2:A96,0))>0,1))"

Answer 2

As commented, this should work:

Range("E6").Formula = _
    "=SUM(IF(FREQUENCY(MATCH(A2:A96,A2:A96,0),MATCH(A2:A96,A2:A96,0))>0,1))"