将公式插入单元格 VBA

Question

我正在尝试将公式“打印”到带有 VBA 的 excel sheet 中。该代码在 COUNTIF 前面没有“=”符号的情况下工作，但是当我插入它时，我得到一个运行-Time error 1004.

有人可以帮助我吗？

这里是获取错误的代码

Sub Looksie()

    Dim Tru As Range
    Dim i As Integer
    i = 2
    
    For Each Tru In Range("A2:A300")
        
            Sheets("Resultat").Select
            Cells(i, 2).Formula = "=COUNTIF(Input!" & Cells(19, i + 1).Address & ":" & Cells(5000, i + 1).Address & ";" & """" & "A" & """" & ")"
     
            i = i + 1
        
    Next Tru
 End Sub

谢谢

Answer 1

你可以使用下一个代码吗？

我只编辑了“:”到“,”。

Sub Looksie()

    Dim Tru As Range
    Dim i As Integer
    i = 2
    
    For Each Tru In Range("A2:A300")
        
            Sheets("Resultat").Select
            Cells(i, 2).Formula = "=COUNTIF(Input!" & Cells(19, i + 1).Address & ":" & Cells(5000, i + 1).Address & ",""A"")"
     
            i = i + 1
        
    Next Tru
 End Sub

将公式插入单元格 VBA

Inserting Formula into cells VBA

excel

vba

excel-formula

cell