复制时，按CTRL+CC键（按两次C键）表格右侧出现剪贴板。
每打开一个空表，就点剪贴板中的“粘贴”，就可以都次粘贴若干个表了。
第一个粘贴完成后，打开一个空表，按F4，也能粘贴。F4是重复操作键，多次粘贴之间，不要进行其他操作。
也许对你的“循环”理解有误，可以探讨。
先 在 第一张单上 获得鼠标坐标
获得当前鼠标位置（直接用，不用dim x,y）
VBSCall GetCursorPos(x,y)
然后用相对移动，完成复制过程。sub 复制
接下来是循环，可以 moveto x,y
mover 0,50
//50随便写的，就是 移动到 第一张单子的 第2行距离。
VBSCall GetCursorPos(x,y)
//这样重新定义了x，y，可以继续 sub 复制。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024