可否用vba 实现2个excel间表格的复制更新，自动

水魂 · 发表于 2015-9-9 10:33

请教各位大侠
我想将excel中“data”的数据自动更新至“sheet3”中，从而不用采取函数公式需要拖拽
详细见附件，谢谢！

笑着...两年过去 · 发表于 2015-9-9 10:46

Sub test()
arr = Range("a1:g" & [a1].End(4).Row)
ReDim brr(1 To UBound(arr), 1 To 9)
For i = 1 To UBound(arr)
brr(i, 2) = arr(i, 2): brr(i, 4) = arr(i, 5): brr(i, 5) = arr(i, 3): brr(i, 6) = arr(i, 6): brr(i, 7) = arr(i, 7): brr(i, 9) = arr(i, 1)
Next
Sheet3.Range("a" & Sheet3.[a99999].End(3).Row + 1).Resize(i - 1, 9) = brr
End Sub

复制代码

朱荣兴 · 发表于 2015-9-9 11:01

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2015-9-9 11:03

提示: 作者被禁止或删除内容自动屏蔽

水魂 · 发表于 2015-9-9 11:03

笑着...两年过去发表于 2015-9-9 10:46

你好，我试过了，但是提示错误

笑着...两年过去 · 发表于 2015-9-9 11:07

水魂发表于 2015-9-9 11:03
你好，我试过了，但是提示错误

？？

差旅费1.zip (36.24 KB, 下载次数: 38)

水魂 · 发表于 2015-9-9 11:10

谢谢各位，已经搞定了

水魂 · 发表于 2015-9-11 09:32

笑着...两年过去发表于 2015-9-9 11:07
？？

谢谢你热心的回答我的问题。

snoopychen1 · 发表于 2015-10-15 20:12

学习中，很好的材料。

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2015-9-9 11:01 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2015-9-9 11:03 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

可否用vba 实现2个excel间表格的复制 更新，自动