[已解决]如何在表一模版中输入数据在后面的表二中自动保存数据？

tonytg

如附件所示，我每天在表一中清空旧数据输入新数据，如何在表二、表三中根据日期自动保存每天的数据？谢谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-28 09:51

以下代码可以简化你的复制粘贴操作。

1. Sub aaa()
   
2. Dim sh As Worksheet
   
3. For Each sh In Worksheets
   
4.   If sh.Name <> "日表" Then sh.UsedRange = sh.UsedRange.Value
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

tonytg

这个应该是要用到VBA的字典技术吧？哪位高手帮帮忙啊，求救！

大灰狼1976

以下代码可以简化你的复制粘贴操作。

1. Sub aaa()
   
2. Dim sh As Worksheet
   
3. For Each sh In Worksheets
   
4.   If sh.Name <> "日表" Then sh.UsedRange = sh.UsedRange.Value
   
5. Next
   
6. End Sub

复制代码