用vba清除格式，怎么写？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

菜鸟我手上有个文件夹，其中有三个xls
每个xls有一个sheet，每个sheet都带格式
问题来了：如何用vba，清除三个xls中每个sheet的格式。
谢谢！！
手动方法我会：打开一个xls，ctrl+A全选，开始-清除-清除格式。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：VBA sheet Ctrl xls SHE 文件夹 如何

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

1. Sub 宏1()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets   '遍历所有工作表
   
4.         sht.Cells.ClearFormats   '清除格式
   
5.     Next
   
6. End Sub

复制代码

芐雨 发表于 2015-11-10 09:09
其实录个宏，自己加个循环就好

多谢！

芐雨 发表于 2015-11-10 09:09
其实录个宏，自己加个循环就好

多谢！

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

laguno 发表于 2015-11-18 11:31
Sub iClear()
Dim Filename As Variant
Dim Thisbook As Workbook

多谢！！！

laguno 发表于 2015-11-18 11:31
Sub iClear()
Dim Filename As Variant
Dim Thisbook As Workbook

Filename = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "´ò¿ªÒªÇåÀíµÄ±í¸ñ", MultiSelect:=True

这里写错了吧~~？

cells.clear '清除单元格全部，包含内容、格式、批注

.ClearComments '清除单元格批注

.ClearContents '清除单元格内容

.ClearFormats '清除单元格格式