使用VBA进行两个表格的数据复制
答案:5 悬赏:60 手机版
解决时间 2021-04-01 14:29
- 提问者网友：鐵馬踏冰河
- 2021-04-01 01:39
使用VBA进行两个表格的数据复制
最佳答案
- 五星知识达人网友：等灯
- 2021-04-01 02:39
软件版本：Office2007
方法如下：
1.Sheet1中有如下数据，利用VBA复制到SHeet2中：
2.Alt+F11，输入代码如下：
3.F5执行代码，返回Excel中的Sheet2就可以看到数据复制过来了：
方法如下：
1.Sheet1中有如下数据，利用VBA复制到SHeet2中：
2.Alt+F11，输入代码如下：
3.F5执行代码，返回Excel中的Sheet2就可以看到数据复制过来了：
全部回答
- 1楼网友：独行浪子会拥风
- 2021-04-01 06:04
对内容进行复制，然后选择“选择性粘贴”
- 2楼网友：人類模型
- 2021-04-01 04:33
Worksheets("表一").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Format(Now, "yyyymmddhhnnss")
Worksheets(Worksheets.Count).Name = Format(Now, "yyyymmddhhnnss")
- 3楼网友：春色三分
- 2021-04-01 04:11
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）之类的数据组合
这个方法用途很广
.copy之前的数据，是选取表名为sheet1的工作表的a1:21区域
把它们复制到工作表sheet2的a21单元格
粘贴时，只需要知道粘贴数据区域的左上角在哪，就可以了。
这段代码我自己用过，绝对是可以用的
你可以把Worksheets（“sheet1”），改为Worksheets（变量名）
Range里的内容可以用（"b" & row_min3 & ":" & "b" & row_max_2）之类的数据组合
这个方法用途很广
- 4楼网友：傲气稳了全场
- 2021-04-01 03:03
加个按钮
定义四个变量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
定义四个变量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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯