Question

我已经阅读了一个文本文件，以便从数据库中脱颖而出，并且我已经完成了它，以便过滤掉不必要的列。我对过滤行的方法是使用两个子程序并从第一个子程序中调用第二个子程序。片材过滤需要大约8秒钟，并且只有400行左右。这需要很长时间（即使它有效）的事实是我的代码效率低下。如果有人有更好的方法，我会非常感谢这些知识！要分隔行，我使用了以下VBA：

Sub FilterAndDelete()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
Select Case Left(Range("A" & i).Value, 3)
    Case "CHA", "HAM", "BKN"
        Call FilterAndDeleteB
    Case Else
        Rows(i).Delete
        Call FilterAndDeleteB
End Select
Next i
End Sub

Sub FilterAndDeleteB()
Dim Br As Long, i As Long
Br = Range("B" & Rows.Count).End(xlUp).Row
For i = Br To 1 Step -1
Select Case Left(Range("B" & i).Value, 1)
    Case "-"
        Rows(i).Delete
    Case Else
        'do nothing
End Select
Next i

更有效的方法来排序读入文本文件

0 个答案: