excel怎样制作把录入的数据自动保存到另一工作表中?

发布网友 发布时间：2022-08-04 04:18

我来回答

共5个回答

热心网友 时间：2023-09-27 22:41

你好，在Excel中，可以通过使用宏（Macro）来实现将录入的数据自动保存到另一个工作表中的功能。下面是一个简单的示例，演示如何创建一个宏来实现这个目标：

1. 打开Excel，并打开您要记录数据的工作表（假设为"数据录入"工作表）和目标工作表（假设为"保存数据"工作表）。

2. 在Excel的开发选项卡中，点击"Visual Basic"按钮，打开Visual Basic for Applications（VBA）编辑器。

3. 在VBA编辑器中，选择"插入"菜单，然后选择"模块"以创建一个新的模块。

4. 在新模块中，编写以下VBA代码：

```VBA
Sub SaveDataToAnotherSheet()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim lastRow As Long

' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Sheets("数据录入")
Set targetSheet = ThisWorkbook.Sheets("保存数据")

' 获取目标工作表中的最后一行
lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1

' 将源工作表中的数据复制到目标工作表的下一行
sourceSheet.Range("A1:E1").Copy targetSheet.Range("A" & lastRow)

' 清除剪贴板中的内容
Application.CutCopyMode = False

' 提示保存成功
MsgBox "数据保存成功！"
End Sub
```

5. 关闭VBA编辑器。

现在，您可以测试宏的功能。每当您在"数据录入"工作表中录入新的数据时，只需运行该宏即可将数据自动保存到"保存数据"工作表的末尾。

要运行宏，可以按下ALT + F8键，然后选择"SaveDataToAnotherSheet"宏，并点击"运行"按钮。

请注意，在上面的示例中，我假设录入的数据位于"数据录入"工作表中的A1:E1范围内，您可以根据您的实际情况进行相应的调整。同时，确保源工作表和目标工作表的名称正确无误。

希望这个示例能够帮助您实现将录入的数据自动保存到另一个工作表中的功能。

热心网友 时间：2023-09-27 22:41

要将录入的数据自动保存到另一个工作表中，可以使用Excel的宏或公式来实现。以下是两种方法：
方法一：使用宏
1. 打开Excel，按下“Alt + F11”打开VBA编辑器。
2. 在VBA编辑器中，选择“插入” - “模块”，在新建的模块中输入以下代码：
```VBA
Sub SaveDataToAnotherSheet()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim lastRow As Long

'设置源工作表和目标工作表
Set wsSource = ThisWorkbook.Sheets("源工作表名称")
Set wsTarget = ThisWorkbook.Sheets("目标工作表名称")

'获取源工作表中最后一行的行号
lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row

'将数据复制到目标工作表中
wsSource.Range("A1:D" & lastRow).Copy wsTarget.Range("A1")

'清除剪贴板中的内容
Application.CutCopyMode = False
End Sub
```
3. 将代码中的“源工作表名称”和“目标工作表名称”替换为实际的工作表名称。
4. 关闭VBA编辑器。
5. 在Excel中，按下“Alt + F8”打开宏对话框，选择“SaveDataToAnotherSheet”宏，点击“运行”按钮。
6. 录入的数据将自动保存到目标工作表中。
方法二：使用公式
1. 在目标工作表中，选择要保存数据的单元格。
2. 输入以下公式，并按下回车键：
```
=源工作表名称!A1
```
3. 将公式拖拽到需要保存数据的单元格范围。
4. 现在，当在源工作表中录入数据时，目标工作表中对应的单元格将自动更新为相应的数据。
请注意，以上方法中的“源工作表名称”和“目标工作表名称”需要根据实际情况进行替换。

热心网友 时间：2023-09-27 22:42

如果是同一工作簿的工作表，使用公式，输入数据的时候，另一张表格自动引用
如果是不同工作簿的工作表，使用excel中的VBA宏代码可实现该功能，入完数据点击按钮即可同步写入到，另一张工作簿的工作表

热心网友 时间：2023-09-27 22:42

如果在同一个工作薄
比如，入库单数据，依次 添加到 sheet名为 汇总的表后面，即使 入库单数据，删除了，汇总表保存数据仍然存在
要用VBA代码
如果是另1个工作薄，也需要vba

热心网友 时间：2023-09-27 22:43

确实，时光留不下太多的从容，那些风花雪月最终邂逅了多少归人，一季花海飘香，多少美，都在意念里惊艳着彼此无言的心弦。尘世所有的牵绊，似有若无，又苦了多少等待，叩谢时光它的确是不曾给过我等待。　　然而在这个没有等待的故事里，时光变悄悄苍老了一些东西，譬如回忆，譬如朝露，说的明显些，就看着自己日益清瘦的脸庞，就知道它真的像一把无形的刻刀，它苍老的并不是时间，而是走在时间里的你我。　　也都说，夜里每个人都是感性的，所以在这个夜里，又想起了张爱玲的那句话：为什么要那么痛苦地忘记一个人，时间自然会使你忘记。如果时间不可以让你忘记不应该记住的人，我们失去的岁月又有甚么意义？　　我知道，我曾怀揣着那么一种情感，至于什么时候我已经不记得啦，也许很久很久以前吧，不过现在说起来也只是不了了之，如今的自己，似乎一切却是那么的模糊，模糊的没有清晰的记忆，没有真实的回忆。