求助删除单元格指定行，求助

此、厮^放肆

各位大大，我现在做产品的BOM需要删除单元格，每个表格特定的6、7、9、10、16、17行。表格有好几百多个，我手动删除不知道要多久，求助！~~~~~~~~~~先谢谢各位了。在线等.......... 删除白色部分

传说中的男子

做个模板。录制个宏？
我能想到的就是这个。

人贵于自省

楼主是07版本及以上的可以用筛选试试！

时光鸟

一个工作薄有几百个工作表？？？
可以写个VBA来批量删除6、7、9、10、16、17行。
但是如果你没有特定内容作为判断的话，这样做有个弊病，如果不小心重复执行的话就会误删有用的数据

传说中的男子

时光鸟 发表于 2012-12-10 16:32
一个工作薄有几百个工作表？？？
可以写个VBA来批量删除6、7、9、10、16、17行。
但是如果你没有特定内容 ...

如果是同一个工作薄的话反而好弄了，直接选择所有sheet，删除特定的行就行了。

时光鸟

传说中的男子 发表于 2012-12-10 16:50
如果是同一个工作薄的话反而好弄了，直接选择所有sheet，删除特定的行就行了。

多个工作薄的话，问题也不太大，可能整个操作的时间稍长一点~
最怕就是多次操作数据误删，我最关心的是这个要删的行就没有特征数据。

时光鸟

给你写了个VBA，批量删除第6, 7, 9, 10, 12, 13, 15, 16行的代码，使用这个批量删除行的代码要注意以下几点：
1）该代码只用来批量删除代码所在文件目录下.xls* 后缀匹配的所有工作薄l的所有工作表的第6, 7, 9, 10, 12, 13, 15, 16行
2）该批量删除操作不可逆转，请注意备份
3）请确保每个工作薄的每个工作表删除的行都相同，且每个工作表只能执行一次，若执行多次会造成误删

1. Public Sub test()
   
2. On Error Resume Next
   
3. Dim arrNa(1 To 2000) '定义当前目录下工作薄名称，根据文件量自行修改
   
4. Dim fileNa, thisNa, sheetNum '定义工作薄名称变量，当前工作薄名称变量，当前工作薄的工作表数量
   
5. Dim n, i, ii, iii  '定义遍历参数
   
6. arrDel = [{6, 7, 9, 10, 12, 13, 15, 16}] '定义要删除的行号，升序排列
   
7. Application.DisplayAlerts = False  '关闭工作薄修改后退出时的提示保存等信息，默认保存
   
8. Set obj = CreateObject("scripting.FileSystemObject")
   
9. For Each fileNa In obj.GetFolder(ThisWorkbook.Path).Files
   
10.   If fileNa Like "*.xls*" Then
    
11.     n = n + 1: arrNa(n) = fileNa  '取出当前目录下符合条件的工作薄的名称存到arrNa数组中
    
12.   End If
    
13. Next
    
14. For i = 1 To n
    
15.     With CreateObject(arrNa(i)) '遍历所有工作薄
    
16.     thisNa = .Name              '当前工作薄名称
    
17.     If thisNa = "批量删除当前目录下所有工作薄的所有工作表的指定行.xlsm" Then GoTo reg1
    
18.     sheetNum = .Worksheets.Count '当前工作薄中工作表的数量
    
19.     For ii = 1 To sheetNum
    
20.     With .Worksheets(ii)        '遍历当前工作薄所有工作表
    
21.           For iii = UBound(arrDel) To 1 Step -1 '从下到上删除
    
22.           .Rows(arrDel(iii)).EntireRow.Delete shift:=xlUp '遍历删除当前工作薄当前工作表下指定行
    
23.           Next iii
    
24.     Windows(thisNa).Visible = True '程序执行过程中，当前工作薄可见
    
25.     End With
    
26.     Next ii
    
27.     .Close True  '当前工作薄完成后关闭
    
28.     End With
    
29. reg1:
    
30. Next i
    
31. Application.DisplayAlerts = True  '恢复工作操作后的系统提示信息
    
32. End Sub

复制代码

此、厮^放肆

时光鸟 发表于 2012-12-10 21:17
给你写了个VBA，批量删除第6, 7, 9, 10, 12, 13, 15, 16行的代码，使用这个批量删除行的代码要注意以下几点 ...

厉害，小弟谢过了！

河南防腐小屈

时光鸟 发表于 2012-12-10 21:17
给你写了个VBA，批量删除第6, 7, 9, 10, 12, 13, 15, 16行的代码，使用这个批量删除行的代码要注意以下几点 ...

我想问问，这个是删除指定行的  我如果想添加指定行，怎么操作？比如我要添加第一行