我的表格名为LIST,单元格K15是一些值。我需要的是宏检查所有其他工作表,如果它匹配工作簿中所有其他工作表上的(LIST) - (K15)到单元格(B4)的值,它将始终是那个地方(B4)。如果匹配则删除该表。
所以它是某种匹配循环宏。
请帮帮我
Sub DeleteSheets01()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If Worksheets("LIST").Range("K15") = LenB(ActiveSheet.Range("B4")) Then ActiveSheet.Delete
Next ws
End Sub
答案 0 :(得分:0)
我做到了
Sub DeleteSheets01()
Application.DisplayAlerts = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Range("B4") = Worksheets("LIST").Range("K15") Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub