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

Question

我的循环有效，但它使它们以相反的顺序排列。我意识到它正在做我下面的事情，但我的语法还不够好。我不知道如何扭转它。

当前工作表顺序为降序：3.31、3.30、3.29 等...

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

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

建议？

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

score 1 · Accepted Answer

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

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

1 回答 1