Làm sao để xóa các Sheet trong 1 file excel (1 người xem)

[tn001]

Em muốn làm một hàm để xóa tất cả các sheet trong file excel (file vidu.xls em đã gửi đính kèm) chỉ để lại một sheet "TONG HOP". Rất mong các anh chị và các bạn hướng dẫn giúp. Xin cảm ơn nhiều a!

 

[Hai Lúa Miền Tây]

Em muốn làm một hàm để xóa tất cả các sheet trong file excel (file vidu.xls em đã gửi đính kèm) chỉ để lại một sheet "TONG HOP". Rất mong các anh chị và các bạn hướng dẫn giúp. Xin cảm ơn nhiều a!

Nếu xóa đơn thuần không dùng code thì bạn click vào sheet kế bên sheet Tong Hop (Nhớ là kế bên sheet Top Hop nhé), Click chuột phải chọn Select all sheets, xong nhấn Ctrl click 1 phát vào sheet Tong Hop, rồi vào edit\delete sheet.

 

[Hai Lúa Miền Tây]

Nếu bạn muốn dùng code thì code nè

Sub xoa()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Sheets
If UCase(sh.CodeName) <> "SHEET19" Then
sh.Delete
End If
Next
End Sub

Bạn tham khảo thêm file nhé

 

[ChanhTQ@]

Còn đây là macro của bạn (Chừa lại 'S1')

Option Explicit
Sub DeleteSheets()
 Dim Sh As Worksheet
 
2 Application.DisplayAlerts = False
 For Each Sh In ThisWorkbook.Worksheets
   If Sh.Name <> "S1" Then
      Sh.Select:              ActiveWindow.SelectedSheets.Delete
   End If
 Next Sh
 Application.DisplayAlerts = True
End Sub

Chú í: Cẩn thận hơn khi xóa, ta cần vô hiệu hóa dòng lệnh đánh số 2 trong nó!

Chúc vui

 

[tn001]

Cảm ơn 2 bác Domfootwear, ChanhTQ@ nhiều nhiều ạ. E sử dụng code và đã làm được rồi. Sau này có gì khó khăn, các bác lại giúp đỡ em nhé!

http://www.giaiphapexcel.com/forum/member.php?u=42738Chúc các bác vui vẻ!