作者ssgf (花中人)
看板Office
标题[问题] 如何每日自动复制，作成历史纪录
时间Thu Jan 11 08:25:43 2018
(若是和其他不同软体互动之问题 请记得一并填写)
软体: excel
版本: 2016
小弟的sheet1 A3:A21 每日去更新数值
然後我想要他能自动帮我把每日的数值复制到sheet2，并自动产生日期排列下去，做为历
史记录，如下两图所示
请问这是要用巨集来写吗？excel不熟，请大大们帮忙了，谢谢。
https://i.imgur.com/QXRBLuw.jpg
https://i.imgur.com/IAHoFVI.jpg
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 39.8.161.132
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1515630346.A.F90.html
1F：→ soyoso: a3:a21每日更新数值来看，可以巨集方式来协助 01/11 08:44
2F：→ soyoso: 复制方面可range.copy，worksheets.paste或 01/11 08:45
3F：→ soyoso: range.pastespecial 01/11 08:46
4F：→ soyoso: 或以range = range.value方式 01/11 08:46
5F：→ soyoso: 当日日期以date，要改日期格式以format，取得最右侧有资料 01/11 08:48
6F：→ soyoso: 栏号以range.end；触发以上程序内动作就要看是要开启、关 01/11 08:49
7F：→ soyoso: 关、存档前、存档後...分别有workbook_open、beforesave、 01/11 08:51
8F：→ soyoso: aftersave、beforeclose... 01/11 08:52
9F：→ soyoso: 判断当天日期是否已存在sheet2，有range.find、工作表函数 01/11 09:04
10F：→ soyoso: countif、match 01/11 09:04
11F：→ ssgf: 感谢大大回覆，想请问上述内容都是可以使用录制巨集来完成 01/11 09:06
12F：→ ssgf: 吗？还是说只有sheet1每日更新的部份呢？ 01/11 09:06
13F：→ soyoso: 部分应可录制的到，如复制贴上，取得最右侧有资料储存格、 01/11 09:11
14F：→ soyoso: range.find方面；如要以储存格格式来改变日期格式也可以录 01/11 09:12
15F：→ soyoso: 制的到；其他触发、判断if和储存格内填入当日日期方面再自 01/11 09:13
16F：→ soyoso: 行调整 01/11 09:14
17F：→ soyoso: 上述回文的动作为将sheet1每日报值如储存格a3:a22复制到 01/11 09:16
18F：→ soyoso: sheet2内 01/11 09:16
19F：→ ssgf: 糟糕，讲真的有看没有懂，excel底子太差了 01/11 09:29
21F：→ ssgf: 小弟录完巨集如上图，但这只是把sheet1 copy到sheet2的同个 01/11 17:47
22F：→ ssgf: 栏位而已，不是我想要的阿，要怎麽修改呢？ 01/11 17:47
23F：→ soyoso: 如要依序贴上於sheet2右侧的话，可用range.end来取得最右 01/11 18:01
24F：→ soyoso: 侧有值储存格，再右移一个储存格或以range.offset来偏移 01/11 18:02
25F：→ soyoso: 公式如要以"=today()"的话，请要选择性贴上值，不然无法正 01/11 18:07
26F：→ soyoso: 常呈现历史资料的日期 01/11 18:08
27F：→ soyoso: 或是用date就会是当天日期 01/11 18:10