[已解决]怎么删除数字？

dadasdas

K5开始到K65536，如果有数字1和2就删除，代码怎么写？
附件： Book.rar (1.51 KB, 下载次数: 23)

2013-2-23 19:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-23 21:29

1. Sub 删除12()
   
2.     Dim i&
   
3.     Dim arr
   
4.    
   
5.     Application.ScreenUpdating = False
   
6.     arr = Range(Range("k4"), Cells(Rows.Count, "k").End(xlUp))
   
7.    
   
8.     For i = LBound(arr) To UBound(arr)
   
9.         If arr(i, 1) Like "[12]" Then
   
10.             arr(i, 1) = ""
    
11.         End If
    
12.     Next
    
13.    
    
14.     Range("k4").Resize(UBound(arr)) = arr
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "删除完成"
    
17. End Sub

复制代码

数组方法

跳转到最佳答案楼层

hwc2ycy

1. Sub 删除12()
   
2.     Dim lastrow&, i&
   
3.     lastrow = Cells(Rows.Count, "k").End(xlUp).Row
   
4.     For i = lastrow To 5 Step -1
   
5.         If Cells(i, "k") = 1 Or Cells(i, "k") = 2 Then
   
6.             Cells(i, "k").Delete xlShiftUp
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

云影

1. =IF(OR(K5={1,2}),"",K5)&""

复制代码

hwc2ycy

1. Sub 删除12()
   
2.     Dim lastrow&, i&
   
3.     Application.ScreenUpdating = False
   
4.     lastrow = Cells(Rows.Count, "k").End(xlUp).Row
   
5.     For i = lastrow To 5 Step -1
   
6.         If Cells(i, "k") = 1 Or Cells(i, "k") = 2 Then
   
7.             Cells(i, "k").Delete xlShiftUp
   
8.         End If
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11.     MsgBox "删除完成"
    
12. End Sub

复制代码

对于批量删除，一定要从下往上删除。

hwc2ycy

1. Sub 删除12()
   
2.     Dim lastrow&, i&
   
3.     Application.ScreenUpdating = False
   
4.     lastrow = Cells(Rows.Count, "k").End(xlUp).Row
   
5.     For i = lastrow To 5 Step -1
   
6.         If Cells(i, "k") Like "[12]" Then
   
7.             Cells(i, "k").Delete xlShiftUp
   
8.         End If
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11.     MsgBox "删除完成"
    
12. End Sub

复制代码

换成用LIKE

dadasdas

hwc2ycy 发表于 2013-2-23 20:01
换成用LIKE

能不能在原位置删除，数字3移到到上面了

dadasdas

hwc2ycy 发表于 2013-2-23 20:01
换成用LIKE

不是删除，是清除内容

hwc2ycy

1. Cells(i, "k")=""

复制代码

hwc2ycy

清除的话，就无所谓从下到上了，另外可以用数组的方法加快速度。

dadasdas

hwc2ycy 发表于 2013-2-23 20:27
清除的话，就无所谓从下到上了，另外可以用数组的方法加快速度。

能不能用数组写一下，学习一下