Question

如何对文件夹里面的工作表里面的sheet1、sheet2等改名成为1，2，等

我百度上找到的代码是
Sub 改名()For i = 1 To Sheets.Count
Sheets(i).Name = i
Next
End Sub但是只能对单个excel文件改名，要一个个打开好麻烦呀，如何弄一个空白的EXCEL复制VBA代码，可以修改这个EXCEL所在文件夹所有EXCEL的工作簿的名称
好吧没人解决，那换个问题吧，怎么批量删除excel中的数值调节钮

Answer 1

亲，批量重命名Sheet的代码如下：

Sub sc()
Dim i As Integer
Dim f, ff As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ff = fso.getfolder(ThisWorkbook.Path & "\")
For Each f In ff.Files
    If f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
        Workbooks.Open (ThisWorkbook.Path & "\" & f.Name)
        For i = 1 To Workbooks(f.Name).Sheets.Count
            Workbooks(f.Name).Sheets(i).Name = i
        Next
        Workbooks(f.Name).Close True
    End If
Next f
Set fso = Nothing
End Sub

Answer 2

建议： 7. 快速删除行或列