新手求助

xlivans

跳过名字为xxx的工作表 ，结束后删除内容为空的工作表，该如何修改

Sub snn()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Range("F:L").ClearContents
Next
End Sub

cui26896

Sub snn()
Dim sht As Worksheet
For Each sht In Worksheets
  if sht.name<> "XXX"  then
    sht.Range("F:L").ClearContents
    if sht.usdrange= false then
      sht.delete
    endif
  endfi
Next
End Sub

一把小刀闯天下

Option Explicit

Sub test()
  Dim sht
  Application.DisplayAlerts = False
  On Error GoTo errmsg
  For Each sht In Sheets
    With sht
      If .Name <> "XXX" Then
        .Range("F:L").ClearContents
        If .UsedRange = Empty Then .Delete
      End If
    End With
  Next
  Application.DisplayAlerts = True
  Exit Sub
errmsg:
  Application.DisplayAlerts = True
  MsgBox "至少要有一个工作表存在！"
End Sub

microyip

if sht.name<>"xxx" then

xlivans

microyip 发表于 2020-5-31 18:38
if sht.name"xxx" then

Sub xxx()
For Each sh In Sheets
    If sh.Name = "aaa" Then
   
    ElseIf sh.Name = "bbb" Then
   
    ElseIf sh.Name = "ccc" Then
   
    Else
        sh.Range("F:L").ClearContents
    End If
Next
End Sub

大佬 ，这样写 对吗？

micch

for each sh in sheets:if sh.name <>"xxx" then sh.delete??

wp231957

1. Sub wp2()
   
2.    For Each x In Sheets
   
3.      If IsEmpty(x.UsedRange) Then
   
4.         Debug.Print x.Name & "  是一个空表"
   
5.      Else
   
6.         Debug.Print x.Name & "  表存在数据"
   
7.      End If
   
8.    Next
   
9. End Sub
   

复制代码

笨鸟飞不高

Sub AwTest()
    Dim sht As Worksheet
    Application.DisplayAlerts = False
    For Each sht In Sheets
        If sht.Name <> "xxx" Then
            If sht.UsedRange = Empty Then sht.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub