求VBA的计算公式ActiveCell.FormulaR1C1="=COUNTA("&CStr(ActiveSheet.Range("H"+CStr(i+1)).Value)&CStr(StartRow)&":"&CStr(ActiveSheet.Range("H"+CStr(i+1)).Value)&CStr(i)&")"上面的公式,当i=10,StartRow=2,H列的值是P时

题目详情

求VBA的计算公式
ActiveCell.FormulaR1C1 = "=COUNTA(" & CStr(ActiveSheet.Range("H" + CStr(i + 1)).Value) & CStr(StartRow) & ":" & CStr(ActiveSheet.Range("H" + CStr(i + 1)).Value) & CStr(i) & ")"

上面的公式,当i=10,StartRow=2,H列的值是P时,就是要计算P2到P10的行数,
可是输出之后,变成了=COUNTA('P2':'P10')
这样子,值永远＝1
请高手帮忙.
谢谢

▼优质解答

答案和解析

你的Formula属性用错了,不是FormulaR1C1,这是R1C1引用格式,不能识别“A1”引用
应该直接用 Formula属性就行了：
ActiveCell.Formula = "=COUNTA(" & CStr(ActiveSheet.Range("H" + CStr(i + 1)).Value) & CStr(StartRow) & ":" & CStr(ActiveSheet.Range("H" + CStr(i + 1)).Value) & CStr(i) & ")"

看了求VBA的计算公式Activ...的网友还看了以下：

还是matlab画图问题,要输入一个变量的clc; clear all; h=input('h=' 　2020-05-16 …

一个mathematica程序添加作图语句Clear[x,y,n,h,S1,S2,S3,S4,i] 　2020-05-16 …

求VBA的计算公式ActiveCell.FormulaR1C1="=COUNTA("&CStr(A 　2020-05-21 …

关系模式R(H,I,J,K,L),H上的一个函数依赖集为F={H→J,J→K,I→J,JL→H},分　2020-05-26 …

A.(A, B, D, C, F, E, I, J, H, G)B.(A, B, D, C, E, 　2020-05-26 …

Cr2O72-+I-+H+=H2O+I2+Cr3+在100mlC(H+)=1mol/L的溶液中有以　2020-06-04 …

推断题:现有如下反应（反应条件均不给）,推断物质⑴A→B+C+D⑵C+E→C+F+D⑶D+G→H⑷ 　2020-07-30 …

已知i+h=10g+c,f+d=f,10b+c+i=10c+d,10f+a+j=10f+e,11b* 　2020-10-30 …

判断化学平衡状态的几点困惑如H2＋I22HI的反应,单位时间内断裂一个H—H键的同时,形成一个H—H 　2020-11-02 …

在高度为h的完全二叉树中,表述正确的是A.度为0的结点都在第h层上B.第i(1≤i<h)层上的结点都　2020-11-29 …