Question

VBA 如何批量将单元格复制到另一个工作表中

急求！vba如何复制单元格？
想把A.xlsb中，G列13行及之后、H列13行及之后的单元复制到B.xlsm中。
现在可以把A文档打开，求教，怎么实现复制。

Answer 1

把你要保留的工作表的名字放到数组里，再把数组放到字典里，然后遍历工作表，判断工作表名是否在字典里存在，如果存在，把工作表移动到新工作簿里然后另存为

不想用字典和数组的话，也可以把工作表名列一列，用VBA调用countif函数判断

工作表移动到新工作簿里然后另存为的代码录制宏可以得到
给你个最实用的代码吧 用单元格已使用区域Copy到新的表中用下面代码要指明第左上解单元格要复制表的区域.Copy Destination:=接收复制表的左上角单元格如把SHEET1中的已使用区域复制到SHEET2中 以SHEET2的A1单元格为起来粘贴进
不用VBA就可以实现复制。

1、同时打开两个工作簿。

2、鼠标右键点击要移动的工作表，选择移动或复制。

3、在移动或复制工作表汇总，选择另一个工作簿。

4、选择移动到最后，然后勾选建立副本，点击确定。

5、点击确定后，就可以复制过去了。

参考vlookup公式的用法，图例是要对D2输入对应的数字，解释=VLOOKUP(A:A,H:K,2,0)的含义：

vlookup()接收4个参数，图中分别是A:A,H:K,2,0。A:A代表以第一列为要查找的值，H:K代表搜索的范围是H列到K列，2代表取出H:K列中的第二列（左起），因为D2这个单元格是要找采购总量，那么H:K列的第二列就是我们要的，所以是2，0是一个参数表示匹配的方法，完全匹配就用0。

那么E2，F2的公式就分别是=VLOOKUP(A:A,H:K,3,0)和=VLOOKUP(A:A,H:K,4,0)，我们只要修改第三个参数就好了（可以看到找不到的品类是#N/A因为没有对应的结果）。

对于你的情况，不同页或者不同工作表，引用不如在同一页这么简单，前2个参数你可以手动选择，会自动填上，填好一个按逗号（英文半角）。

如果上面2个图，不在一个工作簿（也就是不是同一个excel文件），那么在公式计算完后，选择全部公式区域，复制，右键选择“值”粘帖以去除公式，但如此一来这些值就是静态的数值不会再改变。

Answer 2

给你个最实用的代码吧 用单元格已使用区域Copy到新的表中
用下面代码要指明第左上解单元格
要复制表的区域.Copy Destination:=接收复制表的左上角单元格
如
把SHEET1中的已使用区域复制到SHEET2中 以SHEET2的A1单元格为起来粘贴进SHEET2
Dim myRange1 As Range
Dim myRange2 As Range
Set myRange1 = Sheets1.UsedRange
Set myRange2 = Sheets2.Range("A1")
myRange1.Copy Destination:=myRange2

删除行得用循环 加 条件加行删除就OK了

Answer 3

只能用vba了

追问

是的，想请教怎么用vba实现。

是的，想请教怎么用vba实现。