请问怎么保留表格里面的内容，没有表格的行全部删除

mohao

请问怎么保留表格里面的内容，没有表格的行全部删除

lsc900707

1. Sub gj23w98()
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("sheet1")
   
4.         arr = .UsedRange
   
5.         For i = UBound(arr) To 1 Step -1
   
6.             If InStr(Cells(i, 1), "结算") Or Len(Cells(i, 3)) = 0 Then .Rows(i).Delete
   
7.         Next
   
8.         For Each Shp In .Shapes
   
9.             If Shp.Type = msoPicture Then Shp.Delete
   
10.         Next
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13. End Sub

复制代码

lsc900707

代码需要审核，附件供测试：

mohao

lsc900707 发表于 2018-9-22 12:56
代码需要审核，附件供测试：

先谢谢,那个结算方式那一行和空行也要删除

lsc900707

mohao 发表于 2018-9-22 14:42
先谢谢,那个结算方式那一行和空行也要删除

1. Sub gj23w98()
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("sheet1")
   
4.         arr = .UsedRange
   
5.         For i = UBound(arr) To 1 Step -1
   
6.             If InStr(Cells(i, 1), "结算") Or Len(Cells(i, 3)) = 0 Then .Rows(i).Delete
   
7.         Next
   
8.         For Each Shp In .Shapes
   
9.             If Shp.Type = msoPicture Then Shp.Delete
   
10.         Next
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13. End Sub

复制代码

lsc900707

mohao 发表于 2018-9-22 14:42
先谢谢,那个结算方式那一行和空行也要删除

代码贴了两次都要审核。已修改，请测试附件：