excel怎么实现多张工作表同时修改格式？如图所示，工作表是独立的，不是一个表里好几个sheets

把你录制的宏加入到下面的代码中 , 然后运行这个宏,指定好目录 就可以自动修改目录下的全部excel文件了.

注意复制粘贴你录制的宏的时候 不要带第一行的sub Macro1() 这句,也不要最后一句end sub 这句.

Sub 格式()
Dim FolderPath As String, FileName As String, WB As Workbook
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    If .Show Then
        FolderPath = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With
FileName = Dir(FolderPath & "\*.xls*")
If FileName <> "" Then
    Do
        Set WB = Workbooks.Open(FolderPath & "\" & FileName)
        Sheets(1).Activate
        
        '这里放置你录制的宏
            
        WB.Save
        WB.Close
        FileName = Dir
    Loop While FileName <> ""
End If
End Sub