حذف کلیه شیت های خالی در اکسل

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • ~M*E*H*D*I~

    • October 2011
    • 4374

    حذف کلیه شیت های خالی در اکسل

    با درود

    با استفاده از کد زیر قادر خواهید بود شیت های خالی که حاوی اطلاعاتی نیستند با یک کلیک حذف کنید
    کد PHP:

    Sub DeleteEmptyWorkSheets
    ()
    Dim ws As Worksheet 
    Dim deletedsheetcount 
    As Long 
    Dim strMessage 
    As String
    Application
    .DisplayAlerts False
     
    For Each ws In ActiveWorkbook.Worksheets 
    If Application.CountA(ws.Cells) = 0 Then
     ws
    .Delete
     deletedsheetcount 
    deletedsheetcount 
    Else strMessage strMessage ws.Name vbLf 
    End 
    If 
    Next
     Application
    .DisplayAlerts True
    MsgBox deletedsheetcount 
    " empty sheets deleted" vbLf &"Remaining sheets: " vbLf strMessage
    End Sub 

    sigpic
Working...