其实录个宏，自己加个循环就好

多谢！

多谢！

Sub iClear()
Dim Filename As Variant
Dim Thisbook As Workbook
Dim Sht As Worksheet
Dim i As Long

Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False

On Error Resume Next
Filename = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "´ò¿ªÒªÇåÀíµÄ±í¸ñ", MultiSelect:=True)
If VarType(Filename) = vbBoolean Then Exit Sub
For i = 1 To UBound(Filename)
    Set Thisbook = Workbooks.Open(Filename(i), False)
    For Each Sht In Thisbook.Worksheets
        With Sht
            .Cells.ClearFormats
        End With
    Next
    Thisbook.Close SaveChanges:=True
Next
Application.AskToUpdateLinks = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Set Thisbook = Nothing
End Sub

多谢！！！