Question

怎么批量修改一个文件中多个excel中工作表名称

要求工作表名是数字就可以

Answer 1

Sub 批量改名()
    Dim st As Worksheet
    Dim Name As String
    Dim i
    Name = "操死小日本"
    i = 1
        For Each st In Sheets
            st.Name = Name & i
            i = i + 1
        Next
End Sub

追问

不是在同一个excel中的，是多个excel的，这个应该怎么办