[已解决]录入数据后保存在里一个excel文档

woodhot · 发表于 2012-1-4 16:07

录入数据后，怎么样才能将数据保存在另一excel文档
01中输入，02中保存。请问各位前辈，此功能能实现么？

最佳答案

月排行榜 / 总排行榜

wayy

2012-1-4 17:15

wayy.rar (8.83 KB, 下载次数: 64)

wayy · 发表于 2012-1-4 16:44

有呀，可以使用备份本文件的方法来实现，但是为何要存在另一个文件中呢？同一个文件会方便很多。

wayy · 发表于 2012-1-4 17:15

wayy.rar (8.83 KB, 下载次数: 64)

雄鹰 · 发表于 2012-1-4 17:30

Private Sub CommandButton1_Click()
起始位置 = Sheets("sheet2").[a65536].End(xlUp).Row  '取表2最下有数据的行号
If 起始位置 > 2 Then    '如果大于2
      Sheets("sheet1").Range("A2:AI21").Copy '复制表一的a2:ai21
      Sheets("Sheet2").Cells(起始位置 + 1, 1).Select '选中表二的最下数据行下的空行
      ActiveSheet.Paste    '粘贴数据
Else '否则
      Sheets("sheet1").Range("a1:ai21").Copy '复制a1:ai21
      Sheets("Sheet2").Cells(1, 1).Select '选择表2的A1
      ActiveSheet.Paste '粘贴数据
End If
Sheets("sheet1").Range("a2:ai21").Value = "" '将表1的数据清空
End Sub

WANGSHANGKUN · 发表于 2012-1-4 17:52

学习了

雄鹰 · 发表于 2012-1-4 17:57

好像有问题，请高手斧正！

雄鹰 · 发表于 2012-1-4 17:58

wayy 发表于 2012-1-4 16:44
有呀，可以使用备份本文件的方法来实现，但是为何要存在另一个文件中呢？同一个文件会方便很多。

我的有问题，请斧正。

wayy · 发表于 2012-1-4 20:57

雄鹰发表于 2012-1-4 17:30
Private Sub CommandButton1_Click()
起始位置 = Sheets("sheet2").[a65536].End(xlUp).Row '取表2最 ...

Private Sub CommandButton1_Click()
With Sheet2
起始位置 = .[a65536].End(xlUp).Row '取表2最下有数据的行号
If 起始位置 > 2 Then '如果大于2
Range("A2:AI21").Copy .Cells(起始位置 + 1, 1) '选中表二的最下数据行下的空行
Else '否则
Range("a1:ai21").Copy .Cells(1, 1) '选择表2的A1
End If
End With
Range("a2:ai21").ClearContents '将表1的数据清空
End Sub

复制代码

雄鹰 · 发表于 2012-1-4 21:43

wayy 发表于 2012-1-4 20:57

谢谢版主百忙之中的斧正，又进步一点了。

woodhot · 发表于 2012-1-9 11:51

我设置了很多数组公式，数据一多，就慢慢的。
所以我想设置一个公式模板，数据生成后，将结果保存在另一个文档，这样再调用结果的时候会快一点
。谢谢，问题已解决

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

[已解决]录入数据后保存在里一个excel文档

相关帖子

点评