0

感谢 Noodles 的回答，我知道我的 UDF 是我的 excel 工作簿中滞后的主要原因。可以重写此 UDF 以不导致延迟吗？我正在将此 UDF 与 excel 公式一起使用（例如 =IF(OR(ISNUMBER($DH2),$DH2>" "),LookUpConcat($B2,Usage!$AM$2:$AM$5000,Usage!$AS$2: $AS$5000,""),""))。也许公式需要改变。该公式通过许多单元格下拉，并调整为在工作簿中的 2 个不同列中工作。我不是 IT，所以 Noodles 对我最后一个滞后问题的回答并没有被我完全理解，但给了我足够的信息，让我知道这是导致最大滞后问题的宏。

   Function LookUpConcat(ByVal SearchString As String, SearchRange As Range, ReturnRange As Range, _
                       Optional Delimiter As String = " ", Optional MatchWhole As Boolean = True, _
                       Optional UniqueOnly As Boolean = False, Optional MatchCase As Boolean = False)



     Dim X As Long, CellVal As String, ReturnVal As String, Result As String

     If (SearchRange.Rows.Count > 1 And SearchRange.Columns.Count > 1) Or _
    (ReturnRange.Rows.Count > 1 And ReturnRange.Columns.Count > 1) Then
   LookUpConcat = CVErr(xlErrRef)
 Else
  If Not MatchCase Then SearchString = UCase(SearchString)
   For X = 1 To SearchRange.Count
     If MatchCase Then
    CellVal = SearchRange(X).Value
    Else
    CellVal = UCase(SearchRange(X).Value)
      End If
     ReturnVal = ReturnRange(X).Value
      If MatchWhole And CellVal = SearchString Then
       If UniqueOnly And InStr(Result & Delimiter, Delimiter & ReturnVal & Delimiter) > 0 Then GoTo     Continue
       Result = Result & Delimiter & ReturnVal
     ElseIf Not MatchWhole And CellVal Like "*" & SearchString & "*" Then
       If UniqueOnly And InStr(Result & Delimiter, Delimiter & ReturnVal & Delimiter) > 0 Then GoTo     Continue
    Result = Result & Delimiter & ReturnVal
  End If
Continue:
Next
   LookUpConcat = Mid(Result, Len(Delimiter) + 1)
 End If

结束功能

4

1 回答 1

0

答案是，感谢 Mark Fitzgerald，UDF 没有任何问题，延迟是由搜索范围的数量引起的。我调整了搜索范围并解决了滞后问题。

于 2014-12-09T20:05:49.497 回答