Question

麻烦大神帮忙写个VBA代码，小弟不胜感激。

1,方框里的每一行里面的数为目标数
2，第六行为固定值 z=67+（n-1）*49
3，第六行的值全为第一行里的数随机相加得到
接上，例如6A=47=(D1+E1+F1) 6B=116=(E1+F1+I1+F1+E1)……
那么 7A= (D2+E2+F2) 7B=(E2+F2+I2+F2+E2)……
8A= (D3+E3+F3) 8B=(E3+F3+I3+F3+E3)……
9A= (D4+E4+F4) 9B=(E4+F4+I4+F4+E4)……
也就是说后面三行（7行8行9行）的值是根据6行的值得到的。
帮忙写个代码得到1000组（6A7A8A9A四个数为一组）这样的结果、放不下可以接着往后面的行放

Answer 1

做这种事真无聊，我告诉一下VBA怎么做吧，不想写
菜单上找到宏，进入VBA编辑器，新建一个模块，模块里加入代码：
Public Function Z(参数 as integer)
End Function
Z就是你要得到的数据原型，参数是你在工作表中选定的单元格

追问

大哥，能不能讲详细一点啊，小弟真的不太会。

Answer 2

z=67+（n-1）*49
这个z是什么？ n又是什么？
跟你下面的解释有什么关联？ 后面的解释既没有出现z 也没有出现n啊
6A=67=(D1+E1+F1) 6B=116=(E1+F1+I1+F1+E1)
这括弧里的运算方法是怎么得出来的？ 6C 又等于什么? 没有看出你的规律啊

追问

Answer 3

看你挂几天这里了，扣扣详细聊聊吧。

987122817

Answer 4

确实没有理解是什么意思

追问

请问下，哪里我没有解释清楚呢

Answer 5

一般人好像看不懂啊

追问

简单的说就是写个VBA代码，得到N组要求下的数据。