杨鹏飞 发表于 2013-7-11 10:50:11

Access中如何实现自动往下复制公式？

问题：不指定l,m参数，如何实现自动往下复制公式？

淡写轻描 发表于 2013-7-11 10:55:01

Sub aaaa() Dim i As Integer Dim j AsInteger Dim l As Integer Dim m As Integer l = 10 m = 15 i = 4 j = 10Range("C" & j & "").Select Cells(10, 3).Formula ="=sum(B" & i & ":" & "B" & j& ")/7" Selection.AutoFill Destination:=Range("C" &l & " : C" & m & "") '已在cells(10,3)单元格中得到公式=sum(B4:B10)/7'现在我想自动复制公式到本列以下的单元格 '(如：cells(11,3)、cells(12,3) ……中得到公式) End Sub
页: [1]
查看完整版本: Access中如何实现自动往下复制公式？