Xóa tất cả các sheet ẩn trong file excel

[thanhdogtvt]

Mình có file excel có rất nhiều sheet và sheet ẩn, giờ mình muốn xóa tất cả các sheet ẩn đi thì làm thế nào.Mọi người có cách nào không ạ, chứ unhide từng sheet và delete thì lâu lắm. Cảm ơn nhiều.

 

[Quang_Hải]

Mình có file excel có rất nhiều sheet và sheet ẩn, giờ mình muốn xóa tất cả các sheet ẩn đi thì làm thế nào.Mọi người có cách nào không ạ, chứ unhide từng sheet và delete thì lâu lắm. Cảm ơn nhiều.

Có 1 cách là dùng VBA. Bạn có muốn dùng VBA hay không?

 

[thanhdogtvt]

Có 1 cách là dùng VBA. Bạn có muốn dùng VBA hay không?

Mĩnh cũng nghĩ là cái này phải dùng VBA (mỗi tội gà), bạn có thể viết giúp mình với. Cảm ơn nhiều.

 

[Quang_Hải]

Mĩnh cũng nghĩ là cái này phải dùng VBA (mỗi tội gà), bạn có thể viết giúp mình với. Cảm ơn nhiều.

Copy code này về cho vào 1 module, bấm cái vèo là xong

Sub DeleteHiddenSheets()
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Worksheets
   If sh.Visible <> -1 Then
      sh.Visible = -1
      sh.Delete
   End If
Next
Application.DisplayAlerts = True
End Sub