Naples_7的博客

原创 兰色幻想-VBA作业-试题1

'复制“日报表模板”工作表（已隐藏）至本工作簿最后一个位置，复制后的工作表名称为最后的日期天数+1&“报表”的格式。 '如：当前情况下，没有任何一天的日报表，则心腹之的工作表名称是“1日报表”，如果再添加时就是1+1=2日报表。如果目前已存在5天的日报表，则复制后的工作表名称应为“6日报表” '注：“日报表模板“工作表复制后要隐藏起来。 Sub cop() Dim sh As Worksheet Dim x, y As Integer y = 1 For x = 1 To Sheets....