修改逻辑如下:
- 一个月的数据放在同一个工作薄中,每天的数据为一个sheet,sheet名称为当天的日期;
- 每天的数据模版一样,只是数据更新变化;
- 现需要把上月的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