VBA：同时修改工作薄中以日期命名的sheet名称

修改逻辑如下：

1. 一个月的数据放在同一个工作薄中，每天的数据为一个sheet，sheet名称为当天的日期；
2. 每天的数据模版一样，只是数据更新变化；
3. 现需要把上月的sheet名称日期改为当月的，只需要把月份改为当月月份，比如7.1-7.31改为8.1-8.31；

VBA代码：

Sub RenameWorksheets()
    Dim ws As Worksheet
    Dim i As Integer
    
    For i = 1 To 31 ' 迭代从1到31
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name = "7." & Format(i, "0") Then ' 检查工作表名称是否匹配
                ws.Name = "8." & Format(i, "0") ' 重命名工作表
            End If
        Next ws
    Next i
End Sub