为每月的每一天添加按升序循环的工作表

Question

我的循环有效，但是它们按相反的顺序排列。我知道它正在完成我下面的工作，但我对语法还不够好。我无法弄清楚如何逆转它。

当前的工作表顺序是降序：3.31,3.30,3.29等......

我需要升序：3.21,3.22,3.23,3.24等......

天=每月的数值天数 mon =月份的数值

建议？

For i = 1 To Val(days)
    Sheets(1).Copy after:=Sheets(1)
    ActiveSheet.Name = mon & "." & (i)
Next i

Answer 1

这将在工作簿的末尾以正确的顺序放置工作表：

For i = 1 To Val(days)
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = mon & "." & (i)
Next i

这将在sheet1之后正确放置它们：

Set wsTemp = Sheets(1)
For i = 1 To Val(days)
    Set wsTemp = Sheets(1).Copy(After:=wsTemp)
    wsTemp.Name = mon & "." & (i)
Next i