可否用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 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

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