求VBA的计算公式ActiveCell.FormulaR1C1 = "=COUNTA(" & CStr(ActiveSh
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) & ")"