[已解决]批量删除行的问题

greenli

附件 批量删除行.rar (325.2 KB, 下载次数: 29)

2015-7-29 16:09 上传

点击文件名下载附件
谢谢!

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-7-29 16:21

1. Sub DelRows()
   
2. Application.ScreenUpdating = False
   
3. Dim fName$, iRow&
   
4. fName = Dir(ThisWorkbook.Path & "")
   
5. iRow = [a1]
   
6. Do Until fName = ""
   
7.     If fName <> ThisWorkbook.Name Then
   
8.         Workbooks.Open ThisWorkbook.Path & "" & fName
   
9.         ActiveWorkbook.ActiveSheet.Rows("1:" & iRow).Delete
   
10.         ActiveWorkbook.Close savechanges:=True
    
11.     End If
    
12.     fName = Dir
    
13. Loop
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

跳转到最佳答案楼层

gufengaoyue

1. Sub DelRows()
   
2. Application.ScreenUpdating = False
   
3. Dim fName$, iRow&
   
4. fName = Dir(ThisWorkbook.Path & "")
   
5. iRow = [a1]
   
6. Do Until fName = ""
   
7.     If fName <> ThisWorkbook.Name Then
   
8.         Workbooks.Open ThisWorkbook.Path & "" & fName
   
9.         ActiveWorkbook.ActiveSheet.Rows("1:" & iRow).Delete
   
10.         ActiveWorkbook.Close savechanges:=True
    
11.     End If
    
12.     fName = Dir
    
13. Loop
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

上清宫主

录制宏改的：
Sub 宏1()
Application.ScreenUpdating = 0
s$ = "1:" & [a1]
fp$ = ThisWorkbook.Path & "\"
fn1$ = ThisWorkbook.Name
fn2$ = Dir(fp & "*.xlsx")
Do While fn2 <> ""
   If fn1 <> fn2 Then
      Set wb = Workbooks.Open(fp & fn2)
      wb.Sheets(1).Rows(s).Delete
      wb.Close True
      Set wb = Nothing
  End If
  fn2 = Dir
Loop
End Sub