VBA上的Excel公式错误
提问于 2012-03-27 14:50:03
我正在尝试将以下代码放入VBA中。理想情况下，我希望在A列为空时将该公式应用于H列。任何帮助都将不胜感激。在A列为空的情况下，endPosition是保存row#值的变量。
ActiveCell.Formula = "=SUM(N(FREQUENCY(R[endPosition]C[-1]:R[endPosition]C[-1],R[endPosition]C[-1]:R[endPosition]C[-1])>0))"当循环看到空单元格时，将在末尾应用此公式：
Range("A1").Select
beginPosition = 2 'Start from row number 2
Do While IsEmpty(ActiveCell.Offset(1, 0)) = False
ActiveCell.Offset(1, 0).Select
endPosition = ActiveCell.Row
Loop
endPosition = endPosition + 1
Range("H15").Select
ActiveCell.Formula = "=SUM(N(FREQUENCY(R[endPosition]C[-1]:R[endPosition]C[-1],R[endPosition]C[-1]:R[endPosition]C[-1])>0))"
回答 1
Stack Overflow用户
回答已采纳
发布于 2012-03-27 14:59:31
假设公式是正确的，如果endPosition是一个变量，则不应将其包含在字符串中：
ActiveCell.FormulaR1C1 = "=SUM(N(FREQUENCY(R[" & endPosition & _
"]C[-1]:R[" & endPosition & "]C[-1],R[" & endPosition & _
"]C[-1]:R[" & endPosition & "]C[-1])>0))"页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/9891944
复制相关文章
腾讯云开发者
