给个参考复制()Sheet2.Range(A110)=Sheet1.Range(A211).Value将表1中指定区域内的数值赋值给表2指定区域EndSub点工作表标签,点:查看代码,把以上代码复制粘贴上去,然后:指定宏-复制便可履行.代码后面的文字可以删除包括符号都要删除.
