求教，如何用VBA将上面的数据添加到下面的表格中

bestkey58 · 发表于 2023-3-24 16:22

本帖最后由 bestkey58 于 2023-3-24 17:32 编辑

工作簿1.zip (20.49 KB, 下载次数: 3)
微信截图_20230327160350.png

求教，如何用VBA将上面的数据添加到下面的表格中，感谢大神

limonet · 发表于 2023-3-24 16:35

最简单点是COPY加END。

bestkey58 · 发表于 2023-3-24 16:38

limonet 发表于 2023-3-24 16:35
最简单点是COPY加END。

数据量大，每天都要输入，这样不用担心格式出差错。

3190496160 · 发表于 2023-3-24 16:48

Sub copy()
ar = Range("a3:j3")
r = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(r, 1).Resize(1, UBound(ar, 2)) = ar
End Sub

3190496160 · 发表于 2023-3-24 16:49

工作簿1.rar (26.39 KB, 下载次数: 6)

bestkey58 · 发表于 2023-3-24 17:30

3190496160 发表于 2023-3-24 16:49

谢谢老师！感谢

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

[已解决] 求教，如何用VBA将上面的数据添加到下面的表格中