1、是需要，在excel中空白文档数据表格。
2、然后再，在电脑键盘上按快捷键altf11，使excel再次进入vba界面。
3、接着，在excel的vba界面左面再点直接插入——模块，使再次进入代码编写的界面。
4、后来，在代码编写的界面输入代码：sub共值20()dimadountilsheet2.cells(a,2)sheet2.cells(2,3)sheet2.cells(2,3)sheet2.cells(a,2)b,b1endsub插入到控件，将控件如何制定宏为刚才一写的代码去掉。
irnd
rnd是0到1之间的数
你想必掉0到10的数就rnd*10配合round或是int函数得要你想要的副本范围
代码:：
subtest()
fori1need4
cells(i,b)left(cells(i,a),3)
next
endsub
要注意的是公式中的双引号容易乱填。个人建议可以使用chr(34)函数来替代。诸如，最先公式改写成如下：countifs(500!r[-29]c
方法一：在b1中键入公式sum(mid(a1,{1,6,11,16,21},4)*1)方法二：定义一个名称，比如“求逆”，再输入evaluate(substitute(sheet1!$a2,、
