excel VBA匹配不同工作表上的2个单元格如果匹配则删除工作表

时间:2016-09-15 17:22:35

标签: excel-vba vba excel

我的表格名为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

1 个答案:

答案 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