5,139
社区成员
发帖
与我相关
我的任务
分享如何统计刷新后的数据
如图中，表1里是N多公式，最后的结果会汇总到表2的A1到J1中，就是0-9出现的次数，由于我要刷新很多次，所以手动复制黏贴非常麻烦，请教老师们，用代码怎么统计最后的这个结果
...全文
请发表友善的回复…
发表回复
jsdtshun 2016-04-16
- 打赏
- 举报
Sub 宏1()
If Not IsNumeric([m1]) Then Exit Sub
Range("n:w").ClearContents
For a = 1 To [m1]
Calculate
DoEvents
tp = Range("a1:j1")
Range("n" & a & ":w" & a) = tp
Next
End Sub
代码我有了，现在的效果是假如M1中输入100，那么N:W列会分别保存100行的结果，这样看起来很方便，请老师们，帮忙修改一下，把100次的结果累计保存在N1:W1这一行里，而不是100行
