Question

如何告诉VBA，如果工作表的名称包含名称＆＃34; name＆＃34;部分单词＆＃34; name＆＃34;要彻底擦掉那张纸吗？

当工作表没问题时，在工作表名称

中写入了一个普通名称

当纸张被称为纸张时，＃34;名称1＆＃34;或＆＃34;名称2＆＃34;等等，直到＆＃34;名称30＆＃34;

我必须删除blanc表。

在我的尝试之下，但没有工作。

Sub erasesheet(wbNew As Workbook)   
Dim ws As Worksheet

For Each ws In Worksheets

'here I have to be able to tell : I it contains the word "name" in the sheet
'like the code is now it will only look exactly fot sheets with name "name"
      If Sheets.Name = "name"   Then
         Application.DisplayAlerts = False
         ws.Delete
      Application.DisplayAlerts = True
     End If
  Next ws
end sub

Answer 1

您需要使用Instr。请尝试以下代码

Sub erasesheet(wbnew As Workbook)
    Dim ws As Worksheet

    For Each ws In wbnew.Worksheets
        If InStr(1, UCase(ws.Name), "NAME") Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
      Next ws
End Sub

如何在写入部分名称时擦除表格是工作表名称？

1 个答案: