[已解决]如何修改代码来指定删除某张表的数据

shixyi37

Sub del()
Dim I%, x%
x = [a65536].End(xlUp).Row
For I = x To 1 Step -1
If Cells(I, "A").Value = "11"  Then   '如果单元格等于11，就删除这一行
Rows(I).Delete
End If
Next

End Sub

这个代码是删除宏所在表中的符合条件（A列=11）的行。我不想把宏放在查找符合条件的表里，而是想放在模块里（例如指定删除Sheets("计算")表中的A列=11的行），怎么改代码？

最佳答案

月排行榜 / 总排行榜

dsmch

2015-2-5 17:20

1. Sub del()
   
2. Dim I%, x%
   
3. With Sheets("计算")
   
4.     x = .[a65536].End(xlUp).Row
   
5.     For I = x To 1 Step -1
   
6.         If .Cells(I, "A").Value = "11" Then .Rows(I).Delete
   
7.     Next
   
8. End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub del()
   
2. Dim I%, x%
   
3. With Sheets("计算")
   
4.     x = .[a65536].End(xlUp).Row
   
5.     For I = x To 1 Step -1
   
6.         If .Cells(I, "A").Value = "11" Then .Rows(I).Delete
   
7.     Next
   
8. End With
   
9. End Sub

复制代码

26759761@qq.com

Sub del()
Dim I%, x%
Sheets("计算").select
x = [a65536].End(xlUp).Row
For I = x To 1 Step -1
If Cells(I, "A").Value = "11"  Then   '如果单元格等于11，就删除这一行
Rows(I).Delete
End If
Next

End Sub

无聊的疯子

用他们几位的代码来改的，公用过程，