带有循环的 UDF 非常缓慢且效率低下

Question

我有一个代码可以对电子表格中的数千行进行排序，当它在两个不同的列中找到具有特定匹配项的行时，它会在第三列中返回一个值。然而，这个 UDF 被使用了数千次，每次运行数千个循环，它非常慢。有没有办法加快或提高效率？

Dim SearchSheet As Worksheet
Dim PN As Integer
Dim MdlCol As Integer
Dim Mdl As String
Dim Result As Integer
Dim FinalRow As Integer
Dim i As Integer
Application.Volatile True
Select Case True
    Case Number < WorksheetFunction.CountA(Sheet2.Range("A:A")) And Model = "1A"
        Set SearchSheet = Sheet2
        PN = 3
        MdlCol = 5
        Mdl = "1A"
        Result = 30
    Case Number < WorksheetFunction.CountA(Sheet2.Range("A:A")) And Model = "1B"
        Set SearchSheet = Sheet2
        PN = 3
        MdlCol = 6
        Mdl = "1B"
        Result = 30
    Case Number < WorksheetFunction.CountA(Sheet2.Range("A:A")) And Model = "1C"
        Set SearchSheet = Sheet2
        PN = 3
        MdlCol = 7
        Mdl = "1C"
        Result = 30
    Case Number >= WorksheetFunction.CountA(Sheet2.Range("A:A")) And Model = "1A"
        Set SearchSheet = Sheet3
        PN = 2
        MdlCol = 18
        Mdl = "-1A"
        Result = 80
    Case Number >= WorksheetFunction.CountA(Sheet2.Range("A:A")) And Model = "1B"
        Set SearchSheet = Sheet3
        PN = 2
        MdlCol = 19
        Mdl = "-1B"
        Result = 80
    Case Number >= WorksheetFunction.CountA(Sheet2.Range("A:A")) And Model = "1C"
        Set SearchSheet = Sheet3
        PN = 2
        MdlCol = 20
        Mdl = "-1C"
        Result = 80
End Select
FinalRow = WorksheetFunction.CountA(SearchSheet.Range("A:A")) + 10

For i = 2 To FinalRow
    If SearchSheet.Cells(i, PN) = PartNumber And SearchSheet.Cells(i, MdlCol) = Mdl Then
            If SearchSheet.Cells(i, Result).Value = "X" Then
                CalibrationRequired = "Y"
            Else
                CalibrationRequired = SearchSheet.Cells(i, Result).Value
            End If
        Exit For
    End If
Next i
End Function ```

Answer 1

我建议：

1. 在开始时放置 LastARow=WorksheetFunction.CountA(SearchSheet.Range("A:A")) 一次，然后重复使用 LastARow，而不是多次重复 COUNTA。

2. 与其循环到最后一行并依次查看每个单元格，不如将所有数据放入一个变体数组并在其上循环

3. 通过从 VBA 启动计算来避免 VBE UDF 减速错误