求VBA的计算公式

你的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 的日期以日为基数。 加时要加 时数 / 24 加分要加 分数 / 60 / 24 加秒要加 秒数 / 60 / 60 / 24 试试执行下面的 vba Sub addtime() Dim xDate As Date '现在日期及时间 xDate = Now MsgBox "现在的日期时间是：" &Chr(13) &Chr(13) &xDate '假设加5小时30分 MsgBox "5小时30分后的日期时间是：" &Chr(13) &Chr(13) &(xDate + 5 / 24 + 30 / 60 / 24) '假设减1日3小时 MsgBox "1日3小时前的日期时间是：" &Chr(13) &Chr(13) &xDate - 1 - 3 / 24 End Sub

---