求助怎么批量删除表格中内填写内容的部分

lachenfei

970853065 发表于 2024-10-30 20:12
不符合，得保留表格，我写了一个但是循环不了所有工作表，请指教一下 谢谢！！

Sub shyan()
Dim ws As Worksheet
    Dim r
    Dim i
    i = 4
   
    For Each ws In ThisWorkbook.Worksheets
   
    If ws.Name <> "案卷目录" And ws.Name <> "资料文件明细" And ws.Name <> "卷内目录模板" Then

        While ws.Cells(i, 3) <> ""
        
        i = i + 18
        
        Wend
            
            ws.Activate
            
            ws.Rows(i - 3 & ":" & 540).Select
        
            Selection.Delete Shift:=xlShiftUp
        
            ActiveWindow.ScrollRow = 13
        
   
    End If
Next ws

End Sub