求助阿

tao2xin

我的代码是

Sub delcolumn()

Dim i As Integer

For i = Range("e65536").End(xlUp).Row To 1 Step -1

If Range("bm" & i).Value <> "司蒙村" Then

Rows(i).Delete shift:=xlUp

End If

Next

End Sub

但是现在我需要在这段代码中加入一个条件，就是不等于2013年（只是2013年，不要具体的日期）的也需要删除，我的日期的格式是E列

求助1.rar (90.51 KB, 下载次数: 11)

2014-12-5 00:36 上传

点击文件名下载附件

TomingTang

重复发帖，昨晚给你改了。你没有回复。没有加个附件。现在重发帖子。

1. Sub delcolumn()
   
2.     Dim i As Integer
   
3.     MsgBox Range("e65536").End(xlUp).Row
   
4.     For i = Range("e65536").End(xlUp).Row To 2 Step -1
   
5.         If Range("bm" & i).Value <> "司蒙村" And Year(Range("E" & i).Value) <> 2013 Then
   
6.             Rows(i).Delete shift:=xlUp
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码