[已解决]VBA中的函数公式报错

gaiety1974

我在Excel里面用下面公式需要按Xtrl+Shift+Enter就不会出错，但是把公式复制到VBA中就是就报错，麻烦哪位大神帮忙指点一下，谢谢
.Range("D58") = "{=SUM(IF(ISBLANK(C8:C17),"""",(1/COUNTIF(C8:C17,C8:C17))))}"

返回表格计算报错为：#DIV/0!

最佳答案

月排行榜 / 总排行榜

benhsu

2022-5-31 11:55

数组公式里的括号不可以手动输入的
试试以下语句
.Range("D58").FormulaArray="=SUM(IF(ISBLANK(C8:C17),"""",(1/COUNTIF(C8:C17,C8:C17))))"

跳转到最佳答案楼层

benhsu

数组公式里的括号不可以手动输入的
试试以下语句
.Range("D58").FormulaArray="=SUM(IF(ISBLANK(C8:C17),"""",(1/COUNTIF(C8:C17,C8:C17))))"

gaiety1974

benhsu 发表于 2022-5-31 11:55
数组公式里的括号不可以手动输入的
试试以下语句
.Range("D58").FormulaArray="=SUM(IF(ISBLANK(C8:C17), ...

感谢感谢， 刚刚试了一下， 可以用了，谢谢指导

gaiety1974

benhsu 发表于 2022-5-31 11:55
数组公式里的括号不可以手动输入的
试试以下语句
.Range("D58").FormulaArray="=SUM(IF(ISBLANK(C8:C17), ...

再请教一下我用.Range("D58") = ""想再清空表格内容的时候去掉.Range("D58").FormulaArray = "=SUM(IF(ISBLANK(C8:C17),"""",(1/COUNTIF(C8:C17,C8:C17))))"计算的结果但保留公式，试了几次去不掉，能否帮忙看下，谢谢

benhsu

gaiety1974 发表于 2022-5-31 13:21
再请教一下我用.Range("D58") = ""想再清空表格内容的时候去掉.Range("D58").FormulaArray = "=SUM(IF(IS ...

没理解你要的”去掉结果但保留公式“是怎样的

gaiety1974

benhsu 发表于 2022-6-1 08:07
没理解你要的”去掉结果但保留公式“是怎样的

不好意思我表达的不是很清楚，我想要的效果是点击清空按钮，然后清楚单元格中的内容（VBA中定义好的公式计算的结果），但是单元格中在VBA中定义的公式保留。

benhsu

不懂
等高手出现吧