求助用Excell宏批量删除表格内容

约定的童话

lesterbulan 发表于 2019-8-19 12:10
好的，谢谢啦。
这是我录制的宏代码
同一文件夹excel批量运行宏吗

代码发你了，还有不懂得可以加我QQ1975382969咨询
Sub 删除()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim MyPath, MyName, AWbName, Wb As Workbook
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName = ActiveWorkbook.Name
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyName)
            With Workbooks(1)
                ActiveSheet.[B3:B10] = ""
                ActiveSheet.[D3:D10] = ""
                ActiveSheet.[A14] = ""
                ActiveSheet.[A16] = ""
                Wb.Close True
            End With
        End If
        MyName = Dir
    Loop
    MsgBox "删除完毕！", , "报告！"
    Application.ScreenUpdating = True
End Sub

lesterbulan

约定的童话 发表于 2019-8-19 13:09
代码发你了，还有不懂得可以加我QQ1975382969咨询
Sub 删除()
    Application.ScreenUpdating = False

非常感谢，我测试一下，有问题加你QQ

lesterbulan

Jaofuan 发表于 2019-8-19 11:50
你的附件就只有一个工作表，你要说清楚说几千个工作簿还是工作表，如果工作簿要把存放文件地址写清楚

谢谢大神帮忙，已经解决了问题