在Excel 表1一个固定的地方做数据输入,在表2中逐行记录数据。当表1的数据重新输入时,自动保存到下一行中

在Excel表1一个固定的地方做数据输入,在表2中逐行记录数据。当表1的数据输入时,自动保存到表2第一行中,当表1的数据重新输入时,自动保存到表2下一行中... 在Excel 表1一个固定的地方做数据输入,在表2中逐行记录数据。当表1的数据输入时,自动保存到表2第一行中,当表1的数据重新输入时,自动保存到表2下一行中 展开
 我来答
pleong
2012-02-10 · 超过42用户采纳过TA的回答
知道小有建树答主
回答量:122
采纳率:100%
帮助的人:87万
展开全部
必须有一个按钮来告知excel你的“重新输入”完成了,需要自动保存到表2。
因此你可以在表1中增加一个按钮(excel 2007开发工具->插入->表单控件)。
(如果看不到“开发工具”选项,你需要在excel选项->“常用”中选择,在功能区显示“开发工具”选项卡)
(对于excel2003,我不记得是怎么样操作了,你可以去百度看看如何在excel 2003里面添加按钮)

增加控件时,会提示指定宏,你选择“新建”。

在接下来的界面中输入以下代码(注意Sub和End Sub那两行是自动生成的,不要重复了):

Sub 按钮1_Click()

Dim sht As Worksheet
Dim rng As Range

ActiveSheet.Rows(1).Copy
Set sht = ActiveWorkbook.Worksheets("Sheet2")
Set rng = sht.Cells(ActiveWorkbook.Worksheets("Sheet2").UsedRange.Count + 1, 1)
rng.PasteSpecial xlPasteValuesAndNumberFormats
rng.PasteSpecial xlPasteFormats

End Sub

上述代码假定你输入的数据是在按钮所在当前表的第1行,参见下面代码:
ActiveSheet.Rows(1).Copy

假定要复制到的数据是到Sheet2,参见如下代码:
Set sht = ActiveWorkbook.Worksheets("Sheet2")

你可以根据实际情况修改
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式