求教高手，如何逻辑删除一行（付图）

顺顺爸

我是新手，请教老师：如下图，用VBA（ 写语句 ）如何自动删除交易额小于“10” 的记录（行），即只保留大于10的记录。谢谢了！！！


[img]file:///C:\Users\mrleeboo\AppData\Roaming\Tencent\Users\996364782\QQ\WinTemp\RichOle\B9}1IB9[2S81%JZ}9LMOP7U.jpg[/img]

[img]file:///C:\Users\mrleeboo\AppData\Roaming\Tencent\Users\996364782\QQ\WinTemp\RichOle\B9}1IB9[2S81%JZ}9LMOP7U.jpg[/img]

lu_zhao_long

假设楼主的工作表的CodeName 为 Sheet1：
Sub test()
Dim TempRow As Long, LastRow As Long
With Sheet1
    LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    For TempRow = LastRow To 2 Step -1
        If .Cells(TempRow, 2).Value < 10 Then
            .Rows(TempRow).Delete
        End If
    Next TempRow
End With
End Sub

顺顺爸

这么快，谢谢。
我还是看不懂。能逐句翻译一下吗？
慢慢体会，看懂了。

其他的懂了，这句没懂，能解释下吗： LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row ？？

顺顺爸

我理解为 给 lastrow 赋值 最长的行的行数 ，如果是上图lastrow就=21，

我理解的正确吗？

lu_zhao_long

顺顺爸 发表于 2013-4-4 00:07
我理解为 给 lastrow 赋值 最长的行的行数 ，如果是上图lastrow就=21，

我理解的正确吗？

LastRow 的赋值语句目的是获得该工作表中最后一行的行号（是已经使用的，而不是整个工作表的总行数。Excel2003的工作表的总行数是65536，而Excel2007的工作表的总行数是1048576），不是最长的行的行数。

其中 .Rows.Count 就是为了得到该工作表的总行数。无论是何版本的 Excel 都可以通用。

在Excel中，为了准确查找某列已经使用的最后一行，比较好的办法是从该列的最底下的一个单元格往上查，即同时按下 Ctrl+↑（向上箭头）。如果从最上面第一行向下查的话，即同时按下 Ctrl+↓（向下箭头），只要中间某行单元格内为空，则会停止在该空单元格上面的一个单元格上。所以不一定能够得到想要的结果。

顺顺爸

解释的又细致又清楚，谢谢lu_zhao_long。

如果要增加一个条件该如何编写呢: 即自动删除"交易额1"和“交易额2”同时小于“10” 的记录（行）？

[img]file:///C:\Users\mrleeboo\AppData\Roaming\Tencent\Users\996364782\QQ\WinTemp\RichOle\$NQN@`CHX}(5]G[QT@6IW44.jpg[/img]

[img]file:///C:\Users\mrleeboo\AppData\Roaming\Tencent\Users\996364782\QQ\WinTemp\RichOle\$NQN@`CHX}(5]G[QT@6IW44.jpg[/img]

lu_zhao_long

顺顺爸 发表于 2013-4-4 21:19
解释的又细致又清楚，谢谢lu_zhao_long。

如果要增加一个条件该如何编写呢: 即自动删除"交易额1"和“交 ...

For TempRow = LastRow To 2 Step -1
        If .Cells(TempRow, 2).Value < 10 And .Cells(TempRow, 3).Value < 10 Then
            .Rows(TempRow).Delete
        End If
    Next TempRow

顺顺爸

谢谢。
非常感谢，这个语句终于学会{:soso_e179:}{:soso_e179:}了。

顺顺爸

再次请教高手，如果是逻辑删除列，怎么写呢？删除行的时候，可以用数字（123456789）循环，列（ABCDEFG……）如何循环？
如图，我只需要保留“公司”、“品目”、“交易额”、“发生日期”这四列，不符合的列都删除：

顺顺爸

再次请教，如果遇到弹出msgbox（程序运行暂停，要我选择）的时候，我如何编程能全自动运行（即不暂停，直接选择“是”）。
（如图：我做的是把“开票日期”分列（3列）只保留年，去掉月、日）

以下是我录制的宏：
Sub Macro3()
'
' Macro3 Macro
'


'
    Application.DisplayAlerts = False
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("B:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("A2").Select
    Application.DisplayAlerts = True
End Sub