Goonnoob的博客

语句为：Sheets("数据录入").Range("h46:n55").Copy Sheets("一作业部").Range("b33")VBA 语句: Sheets("表名1").Range("h46").Copy Sheets("表名2").Range("b22")3.表名1中的h46假如是一个数据范围，则将范围内的内容复制到表名2中b22开始的相应范围当中。2.上面语句解析：将表名1中的h46表格中的数据复制到表名2中b22的表格当中。数据赋值：将两个不同sheet表格中的表格完成赋值。

开发工具---VB编辑器---插入---模块---写代码即可。Sub 数据清空（）