VBscript优化Excel搜索和删除

Question

我具有可以构建的VBScript函数，该函数可以打开用户指定的excel文件，然后开始解析工作表3的C列以查看类别是什么。如果类别不是“水果”，我希望删除整行。该功能按预期工作。但是，我注意到它的效率极低（100行大约需要3秒），我需要能够扫描近11000行。有没有一种方法可以优化搜索，以便仅花几秒钟即可浏览所有记录？

   Function prepFile(usrFileSelected)
        Set objExcel = CreateObject("Excel.Application")
        Set objWorkbook = objExcel.Workbooks.Open(usrFileSelected)
        objExcel.Sheets("Sheet3").Activate
        intRow = 2
        maxRow = objExcel.ActiveSheet.UsedRange.Rows.Count
        Do while intRow <= 1000
            currentValue = objExcel.Cells(3,intRow).value

            If currentValue <> "Fruit" then
                objExcel.Rows(intRow).EntireRow.Delete
            End If
            intRow = intRow + 1 
        Loop
        msgbox("Done")
        objWorkbook.Save
        objWorkbook.Close
    End Function

Answer 1

我的第一次尝试是禁用screen updating：

Sub prepFile(usrFileSelected)
    Dim Excel, Row

    Set Excel = CreateObject("Excel.Application")
    Excel.ScreenUpdating = False

    With Excel.Workbooks.Open(usrFileSelected)
        For Each Row In .Sheets("Sheet3").UsedRange.Rows
            If Row.Cells(3).Value <> "Fruit" Then Row.EntireRow.Delete
        Next
        .Save
        .Close
    End With

    Excel.Quit
End Sub

下一个优化想法是使用Excel的.Find method来看看它是否比手动方法更快。