[已解决]删除满足条件的行

luren24

       新手请教，这个宏是删除满足这个日期之前的所有数据，比如说，删除今天之前2个月的数据，就输入2.可是我这个宏不知道怎么搞的全删了。实在搞不懂。请教高手。郁闷。学这个真难。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-11-23 13:41

Private Sub CommandButton1_Click()
    Dim l As Integer
    Dim y%, m%, d%
    y = Year(Now())
    m = Month(Now())
    d = Day(Now())
    Dim xdata
    xdata = Date
    a = Range("a65536").End(xlUp).Row - 1
    l = Application.InputBox("你要删除几个月请输入", "操作提示", "0", 100, 100)
    xdata = DateSerial(y, m - l, d)
    For i = a To 1 Step -1    '在表格行循环
        If xdata > Cells(i, 1).Value Then
            Cells(i, 1).EntireRow.Delete    '是的删除
        Else
        End If
    Next
End Sub


1个颜色是1个错误，共3个。

跳转到最佳答案楼层

luren24

Private Sub CommandButton1_Click()
Dim l As Integer
Dim y%, m%, d%
y = Year(Now())
m = Month(Now())
d = Day(Now())
Dim xdata
xdata = Date
a = Range("a65536").End(xlUp).Row - 1
l = Application.InputBox("你要删除几个月请输入", "操作提示", "0", 100, 100)
xdata = DateSerial(y, m - l, d)
    For i = a To 2 Step -1 '在表格行循环
             If xdate < Cells(i, 1).Value Then
                 Cells(i, 1).EntireRow.Delete '是的删除
             Else
             End If
     Next
End Sub
这个是代码

爱疯

Private Sub CommandButton1_Click()
    Dim l As Integer
    Dim y%, m%, d%
    y = Year(Now())
    m = Month(Now())
    d = Day(Now())
    Dim xdata
    xdata = Date
    a = Range("a65536").End(xlUp).Row - 1
    l = Application.InputBox("你要删除几个月请输入", "操作提示", "0", 100, 100)
    xdata = DateSerial(y, m - l, d)
    For i = a To 1 Step -1    '在表格行循环
        If xdata > Cells(i, 1).Value Then
            Cells(i, 1).EntireRow.Delete    '是的删除
        Else
        End If
    Next
End Sub


1个颜色是1个错误，共3个。

luren24

好，我改下试

luren24

爱疯，你太牛了。我是个粗心的人，不知道适不适合弄这个。我要改行做这个。

爱疯

这个只要不马虎就行了