蒙面大叔 发表于 2021-11-5 11:55:00

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

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

哈啰打车一键走你 发表于 2021-11-11 10:28:24

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

如虎添亿 发表于 2021-11-24 10:06:48

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

丁悦峰 发表于 2021-12-17 18:18:36

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

篝火 发表于 2021-12-31 01:55:46

页: [1]
查看完整版本: 关于复制工作表，日期跟随变动的问题，哪位大神能伸手帮帮忙 ...