EXCEL中工作表1作输入窗口,如何让输入的内容按顺序依次自动添加到工作表2里,类似于数据库添加记录?
3个回答
2011-12-23
展开全部
你应该使用 记录单 的方式去录入记录可能更简便……
你的问题需要一个录入区域 版面设计 一下单元格排布 然后把其他的单元格都锁定,然后再录制一个宏 把你录入的内容 检查无误后 复制粘贴到 表2里 ……做个按钮 运行这个宏 录入、检查完后 点击……
录制宏时 先规划好 操作步骤 尽量少操作错误 和额外的动作 直奔主题……
细节上,你可以在表2中设置一行 使用公式 作为 对表1录入区的引用 然后 你录制宏 就录制在表2 数据区的首行插入一空行,然后再复制那个公式引用行 然后 再选择性粘贴数据到刚刚插入的行……
你的记录 倒放……从上面插入 比较方便……哈哈
你的问题需要一个录入区域 版面设计 一下单元格排布 然后把其他的单元格都锁定,然后再录制一个宏 把你录入的内容 检查无误后 复制粘贴到 表2里 ……做个按钮 运行这个宏 录入、检查完后 点击……
录制宏时 先规划好 操作步骤 尽量少操作错误 和额外的动作 直奔主题……
细节上,你可以在表2中设置一行 使用公式 作为 对表1录入区的引用 然后 你录制宏 就录制在表2 数据区的首行插入一空行,然后再复制那个公式引用行 然后 再选择性粘贴数据到刚刚插入的行……
你的记录 倒放……从上面插入 比较方便……哈哈
展开全部
具体要求不详细
但可以肯定的是需要宏
代码如下
Sub 填充()
With Sheets("sheet2")
i = .Range("A65536").End(3).Row() + 1
.Cells(i, 1).Resize(1, Sheets("sheet1").UsedRange.Columns.Count) = Sheets("sheet1").UsedRange.Value
End With
Sheets("sheet1").UsedRange.Clear
End Sub
此代码意思是,将sheet1的使用单元格,复制到sheet2表以A列为基点的区域,复制后清空sheet1,便于你下次的录入信息
但可以肯定的是需要宏
代码如下
Sub 填充()
With Sheets("sheet2")
i = .Range("A65536").End(3).Row() + 1
.Cells(i, 1).Resize(1, Sheets("sheet1").UsedRange.Columns.Count) = Sheets("sheet1").UsedRange.Value
End With
Sheets("sheet1").UsedRange.Clear
End Sub
此代码意思是,将sheet1的使用单元格,复制到sheet2表以A列为基点的区域,复制后清空sheet1,便于你下次的录入信息
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把工作表1输入完后复制粘贴到表2不就得了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询