[急]请教一个EXCEL的问题，如何实现自动往下复制公式？

竹笛

EXCEL论坛没人回应，只好在此求助了，谢谢！

'问题：不指定l,m参数，如何实现自动往下复制公式？
Sub aaaa()
Dim i As Integer
Dim j As Integer
Dim l As Integer
Dim m As Integer
l = 10
m = 15
i = 4
j = 10
Range("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

[em26]文件下载

huanghai

我不会，但是我知道这里一定有人会改：
http://club.excelhome.net/index.asp

Roadbeg

笛子的意思可是:
l,m 是变量,且在编写程序时无法得知?
那么.焦点在于,如何动态的得知  m 的值.
如果是这样的话,可以做一个函数对 b列自上而下进行遍历,当B列出现无效值(为空)时,此时
的单元格为有效数据列的最低端,由此而知 m 的值,则 l=m-6.问题解决.

竹笛

谢谢楼上兄弟：

说明：不是，l与m参数可以获得，但我现在需要的是在代码中不使用l,m参数来自动向下复制公式。

Roadbeg

复制应该有限制吧?比如复制到某一个单元格为止.

竹笛

对，就象用鼠标双击右下角“+”一样。限制条件是左边的单元格到的位置。

Roadbeg

既然是可知的,何必不用.

竹笛

是的，但是我必须写一段代码来给l,m确定值，因为我的记录数是一天一变。

其实，说白了，是想知道是否还有更为精炼的解决之道？谢谢Roadbeg兄。

Roadbeg

精益求精,竹笛兄的精神令人佩服.
这使我想起了以前看到的一个经典例子:
如何不用第三个变量,交换两个变量的值?
解法非常精彩,不知各位高手可有兴趣解一解此题?

竹笛

估计是精炼的解决之道，但还不是我最满意的：
Sub aaaa()
Dim i As Integer '确定行号
Dim l As Integer '确定行记录数
Dim n As Integer 'n天移动平均产量
n = Cells(3, 7) '确定几天的移动平均产量
i = n + 1 '确定第一个要写入公式的单元格
l = Cells(4, 7) '确定行记录数

Range("C" & i & "").Select
Cells(n + 1, 3).Formula = "=sum(B2:" & "B" & i & ")/" & n & ""
Selection.AutoFill Destination:=Range("C" & i & " : C" & l & "")
End Sub


[em26]文件下载