关于复制工作表，日期跟随变动的问题，哪位大神能伸手帮帮忙 ...

蒙面大叔

需要大量复制工作表，工作表中日期需要逐渐往后延伸，例如表1中日期11-5，表1（2）中日期自动延一天变成11-6，表1（3）中日期变成11-7，这样该怎么实现。还请大家多帮忙万分感谢！
000.zip (1.46 KB, 下载次数: 15)

2021-11-5 11:55 上传

点击文件名下载附件
000.zip

哈啰打车一键走你

这样？
表1（2）='1'!A2+1
表1（3）='1'!A2+2

如虎添亿

手动一个表一个表改我知道，但是需要复制的表态多了，复制一个改一个太影响效率，有没有方法复制完工作表，直接日期就能递增的。

丁悦峰

Sub 日期递增()
rq = Sheets(Sheets.Count).[a2] + 1
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
With ActiveSheet
  .Name = .Index
  .[a2] = rq
End With
End Sub

篝火

000.rar (8.58 KB, 下载次数: 145)

2021-11-5 11:55 上传

点击文件名下载附件
000.rar