使用VBA进行两个表格的数据复制

使用VBA进行两个表格的数据复制

软件版本：Office2007
方法如下：
1.Sheet1中有如下数据，利用VBA复制到SHeet2中：

2.Alt+F11，输入代码如下：

3.F5执行代码，返回Excel中的Sheet2就可以看到数据复制过来了：

对内容进行复制，然后选择“选择性粘贴”

Worksheets("表一").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Format(Now, "yyyymmddhhnnss")

Worksheets("sheet1").Range("a1:c21").Copy Worksheets("sheet2").Range("a21")
.copy之前的数据，是选取表名为sheet1的工作表的a1:21区域
把它们复制到工作表sheet2的a21单元格
粘贴时，只需要知道粘贴数据区域的左上角在哪，就可以了。
这段代码我自己用过，绝对是可以用的
你可以把Worksheets（“sheet1”），改为Worksheets（变量名）
Range里的内容可以用（"b" & row_min3 & ":" & "b" & row_max_2）之类的数据组合
这个方法用途很广

加个按钮
定义四个变量a,b,c,d as integer
a=sheet1.usedrange.rows.count,
b=sheet1.usedrange.colounms.count.
c=sheet2.usedrange.rows.count,
d=sheet2.usedrange.colounms.count.
然后用个循环
for h=1 to a
for i= 1 to b
sheet2.cells(c+a,d+b)=sheet1.cells(a,b)这样不改变原来表二的数据，把表一的数据全部复制过来追问能帮写个完整的公式吗？ 或者私聊！ 账号是我扣 扣追答我加不到你，你加我号了280881620