如何实现每次运行VBA宏创建递增命名的Period工作表？

这需求很容易实现，核心思路是先检查工作簿里已有的"Period X"格式工作表，找到最大的序号，然后用这个序号+1来命名新工作表。如果是第一次运行，没有任何Period开头的表，就从1开始。

下面是修改后的完整VBA代码：

Sub CreatePeriodSheet()
    Dim ws As Worksheet
    Dim maxPeriod As Integer
    Dim newSheetName As String
    
    maxPeriod = 0 ' 初始化最大序号为0
    
    ' 遍历所有工作表，找出最大的Period序号
    For Each ws In ThisWorkbook.Sheets
        ' 检查工作表名称是否以"Period "开头
        If Left(ws.Name, 7) = "Period " Then
            ' 提取名称里的数字部分并转为整数
            Dim currentNum As Integer
            currentNum = CInt(Mid(ws.Name, 8))
            ' 更新最大序号
            If currentNum > maxPeriod Then
                maxPeriod = currentNum
            End If
        End If
    Next ws
    
    ' 计算新工作表的名称
    newSheetName = "Period " & (maxPeriod + 1)
    
    ' 创建新工作表并命名
    With ThisWorkbook
        Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
        ws.Name = newSheetName
    End With
End Sub

代码关键部分解释： #

• 遍历工作表：用For Each循环检查每个工作表的名称，判断是否符合"Period "开头的格式。
• 提取序号：用Left和Mid函数截取名称里的数字部分，再用CInt转为整数，方便比较大小。
• 处理首次运行：因为初始maxPeriod设为0，第一次运行时没有符合条件的工作表，所以新名称就是"Period 1"。
• 自动递增：每次运行都会找到当前最大的序号，加1后作为新表的名称，确保不会重复，且序号连续。

如果需要额外的容错（比如有人手动改了工作表名称导致序号不连续），这段代码依然能正常工作——它只会找现有最大的序号，然后往后加1，不会强制序号必须连续。

内容的提问来源于stack exchange，提问作者Aleksi Laaksonen