摘要: 1.'以第一张表为模板自动生成本月所有日报,要求报表日期为2016-5-1,表名为5月1日 字样 Sub rb() Dim i As Integer For i = 1 To 31 Sheet1.Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count 阅读全文
posted @ 2021-11-05 11:57 charlly 阅读(1000) 评论(0) 推荐(0)