ลบ Sheet ที่ไม่ได้ใช้งาน VBA
Posted: Tue Apr 04, 2023 8:14 am
รบกวนแนะนำหน่อยครับ อยากลบ Sheet ที่ไม่ได้ใช้งาน (งานมีหลายไฟล์ลบทีละไฟล์แล้วช้าครับ) โดยจะเลือกลบพวก Sheet1 Sheet2 หรือ Sheet1(1) ประมาณนี้ครับ
Code: Select all
n = Sheets.Count
Do While n > 0
r = Sheets(n).Name
If r = "Sheet" Then
Application.ScreenUpdating = False
Sheets(n).delete
Application.ScreenUpdating = True
End If
n = n - 1
Loop