尝试在公式中使用Countif

Question

如何在公式中使用countif

我在Google和其他论坛上做了一些研究，但没有找到解决方案。这不是语法错误，所以不是我的双引号引起了问题。该错误是运行时1004，应用程序定义或对象定义的错误。

Cells(a, 1).Formula = "=Countif(Range(cells(" & a & ",7),cells(" & a & ",21))),""a"""

在第一种情况下，a为5，所以我希望它扫描第5行中的g到u列，并计算出现的字母'a'

期望一个数字连续计算所有出现的“ a”，而不是出现1004错误

在我的上一篇帖子中，只是给主持人的笔记，我被问到一个愚蠢的问题而被降职。线程关闭后，如何修复该问题。

Answer 1

因此，根据您在评论部分的回复，我认为您正在使用：

Sub PutFormulaInCell()

Dim a As Long
a = 5

With ThisWorkbook.Sheets("Sheet1")
    .Cells(a, 1).Formula = "=Countif(G" & a & ":U" & a & "," & """a"")"
End With

End Sub

现在，您混合使用了VBA和Excel语法，导致1004错误。