求解汇总求和，并可以清除指定名称的工作表

13724841877

之前，我构思的表可能太复杂了，希望这次各位老师能帮我解决一下，解决一部分也可以。因为表太大了，我截取较易理解的那部分。还差一些VBA处理语句就可以了。详见附件。

大灰狼1976

先来个简单的

1. Sub 删除()
   
2. Dim sh As Worksheet
   
3. Application.DisplayAlerts = False
   
4. For Each sh In Worksheets
   
5.   If InStr(sh.Name, "外购入库单") Then sh.Delete
   
6. Next sh
   
7. Application.DisplayAlerts = True
   
8. End Sub

复制代码