修改不同工作表中工作薄的名字，有没有大佬教教。每个工作表中工作薄数量是一样的。怎么批量修改工作薄的名字呢？格子好像只能修改同一个工作表中工作薄的名字

Sub ModifySheetNames()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 设置要修改的工作簿的数量
    Dim numOfWorkbooks As Integer
    numOfWorkbooks = 3  ' 假设要修改3个工作簿的名字
    
    '设置新的工作簿名字的前缀
    Dim prefix As String
    prefix = "NewName" ' 设置前缀为"NewName"
    
    ' 循环遍历工作表，修改工作簿名字
    For Each ws In Worksheets
        i = i + 1
        ws.Parent.Name = prefix & i
        If i = numOfWorkbooks Then Exit For ' 根据需要修改的工作簿数量设定退出条件
    Next ws
End Sub

1. 修改上述代码中的numOfWorkbooks变量为要修改的工作簿的数量，prefix变量为新的工作簿名字的前缀。
2. 在VBA编辑器中，按下F5键运行代码。工作簿的名字将被修改为指定前缀，并按照数字序列编号。

http://www.ffcell.com/WenKu/article.aspx?id=442