vba删除表格中指定文本所在行的处理

欧阳修鞋

大家好，

这个文件代码有点复杂了，我编辑好几次最后都没法实现。
现在的需求是在再原有基础上新增：先删除表格中指定文本所在行。然后设置边距、求和等等。谢谢

蓝桥玄霜

删除行需要从下而上进行。

欧阳修鞋

蓝桥玄霜 发表于 2024-7-11 18:18
删除行需要从下而上进行。

谢谢 我是按照这个原则来的 但是没成功

ykcbf1100

单独写一个删除的代码。

ykcbf1100

删除指定行

1. Sub 删除指定行()  '//2024.7.11
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     p = ThisWorkbook.Path & ""
   
5.     For Each f In fso.GetFolder(p).Files
   
6.         If LCase$(f.Name) Like "*.xls*" Then
   
7.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
8.                 fn = fso.GetBaseName(f)
   
9.                 Set wb = Workbooks.Open(f, 0)
   
10.                 With wb.Sheets(1)
    
11.                     arr = .UsedRange
    
12.                     Set Rng = .Rows(r + 1)
    
13.                     For i = 4 To UBound(arr)
    
14.                         If arr(i, 7) = "已删除" Then
    
15.                             Set Rng = Union(Rng, .Rows(i))
    
16.                         End If
    
17.                     Next i
    
18.                     If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
19.                 End With
    
20.                 wb.Close 1
    
21.             End If
    
22.         End If
    
23.     Next f
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

欧阳修鞋

ykcbf1100 发表于 2024-7-11 19:50
删除指定行

太感谢了！