[已解决]一表格数据往另一表格在原有数据的最后空白行处导入

wwj804 · 发表于 2017-1-7 17:36

本人遇一问题，请各大师运用VBA控件帮忙解决一下，谢谢！

最佳答案

七彩屋

2017-1-9 15:06

Book111.rar (19.65 KB, 下载次数: 9)

七彩屋 · 发表于 2017-1-7 18:22

售价: 1 个金币 [记录] [购买]

乐乐2006201506 · 发表于 2017-1-8 07:11

问题不难，但需附件。

wwj804 · 发表于 2017-1-9 07:47

七彩屋发表于 2017-1-7 18:22
售价: 1 个金币 [记录] [购买]

可以啊，但你得帮我解决啊

wwj804 · 发表于 2017-1-9 07:48

乐乐2006201506 发表于 2017-1-8 07:11
问题不难，但需附件。

还要什么附件呢？

乐乐2006201506 · 发表于 2017-1-9 08:58

wwj804 发表于 2017-1-9 07:48
还要什么附件呢？

电子表格文件。你这个图片别人无法编辑，没数据源，怎么给你回复？

wwj804 · 发表于 2017-1-9 09:48

乐乐2006201506 发表于 2017-1-9 08:58
电子表格文件。你这个图片别人无法编辑，没数据源，怎么给你回复？

哦，对不起，忘了

七彩屋 · 发表于 2017-1-9 15:04

Sub qcw()
Application.ScreenUpdating = False
N = 1
arr = Sheet2.Range("A5:I" & Sheet2.Range("a65536").End(3).Row)
ReDim brr(1 To UBound(arr), 1 To 11)
For i = 1 To UBound(arr)
For J = 2 To 9
brr(i, J) = arr(i, J)
Next J
brr(i, 1) = Sheet1.Range("a" & Sheet1.Range("a65536").End(3).Row) + N
N = N + 1
brr(i, 10) = Sheet2.Range("H3")
brr(i, 11) = Sheet2.Range("H2")
Next i
Sheet1.Range("a" & Sheet1.Range("a65536").End(3).Row + 1).Resize(UBound(arr), 11) = brr
Application.ScreenUpdating = True
End Sub

复制代码

七彩屋 · 发表于 2017-1-9 15:06

Book111.rar (19.65 KB, 下载次数: 9)

wwj804 · 发表于 2017-1-10 08:06

七彩屋发表于 2017-1-9 15:06

老师您好，使用效果很好，但是假如增加或减少列的时候就不好使了，这此代码看不懂什么意思，麻烦您在代码后面注释一下每行代码的意思好吗？谢谢老师了！

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