Question

excel宏 如何用变量表示行列号并写入工作表函数中

某单元格有一个函数如下
=Sheet1!B1*AVERAGE(Sheet1!B5:B65)+Sheet1!B2
现在希望在for循环中用变量d,e表示 average函数中的单元格,我是这么写的，但是不行
Cells(b, 2) = "=Sheet1!B1*AVERAGE(Sheet1!B" & d & ":B" & e & ")+Sheet1!B2"

目的就是实现
将B5：B65均值乘以B1再加上B2，赋值给sheet2的cell(b,2)
将B65：B125均值乘以B1再加上B2，赋值给sheet2的cell(b+1,2)
将B125：B185均值乘以B1再加上B2，赋值给sheet2的cell(b+2,2)
…………以此类推
求高人指导应该如何实现

Answer 1

1. 打开Excel输入需要分组的数据，输成一竖列，记得要标注序号。序号的排列可以按如图（二）的方式，按着ctrl往下拉。
   

   

2. 把数据及数据的信息全选，打开”数据“里面的“排序”进行排序，如图用“薪酬”排序
   

   

3. 自己算出极差，如图所用的公式，

   极差=最大值-最小值

   算出组数=1+（lnN/ln2）  N是数据的个数

   算出组距=极差/组数

   

4. 写出每一组的：下限-1的值

   为了符合统计分组“上组限不在内的原则”

   

5. 打开“工具”里面的数据分析，选择“直方图”，按照图示选择输入区域和接受区域。并选择下面的柏拉图、累计百分率和图表输出。
   

   

   
   

   

   

6. 然后就可以看到输出的分布数列，但是不完善，需要我们人工修改。修改后，一个分布数列就完成了。
   

   

Answer 2

宏写在sheet2里
j = 1
for i= 5 to 1000 step 60
d = "=Sheet1!B1*AVERAGE(Sheet1!B" & i & ":B" & i+60 & ")+Sheet1!B2""

cells(j,2) = d

j = j + 1

next i

追问

好像还是不行……求助！！

追答

d不要写公式了，直接就拿VBA写吧