[已解决]VBA实现将一个窗口中输入的数据插入到一个工作表的第一个空白行中

muyczhou1623 · 发表于 2012-11-9 15:09

本帖最后由 muyczhou1623 于 2012-11-9 15:12 编辑

表格1中设成一个录入信息窗口当点击提交时将信息录入到工作表 2的对应单元格中，当表格2中有数据时，自动添加到下一行中。本人是新手请各位老师指点下！谢谢！

最佳答案

hwc2ycy

2012-11-9 15:15

本帖最后由 hwc2ycy 于 2012-11-9 15:17 编辑

复制代码

hwc2ycy · 发表于 2012-11-9 15:15

本帖最后由 hwc2ycy 于 2012-11-9 15:17 编辑

复制代码

hwc2ycy · 发表于 2012-11-9 15:19

你可以把输入的数据写入一个数组，比如arr
worksheets("2").RANGE("a65536").End(xlUp).Offset(1).resize(1,ubound(arr))=worksheetfunction.transpose(arr)

muyczhou1623 · 发表于 2012-11-11 17:41

hwc2ycy 发表于 2012-11-9 15:19
你可以把输入的数据写入一个数组，比如arr
worksheets("2").RANGE("a65536").End(xlUp).Offset(1).resize( ...

谢谢您啊！我用您说的办法完成了！

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

[已解决]VBA实现将一个窗口中输入的数据 插入到一个工作表的第一个空白行中