添加到陣列並在數組中查找值

我有兩個數組：一個具有搜索文檔的值（arr），另一個使用找到的值（arr2）放入關聯的單元格地址。我對arr沒有任何問題，並且已經在我的代碼中成功使用了它。添加到陣列並在數組中查找值

隨着arr2，我想找到包含在arr值的任何細胞，並從中添加行的單元格地址lRow量下降到arr2，但前提是該地址是不是已經在arr2。

我找到了2個答案，我試圖結合以解決我的問題，但迄今沒有運氣。

Excel VBA - adding an element to the end of an array

我下面的代碼：

Sub Initiate() 

Dim arr(3) As Variant 
    arr(0) = "Value1" 
    arr(1) = "Value2" 
    arr(2) = "Value3" 
    arr(3) = "Value4" 
Dim arr2() As Variant 
Dim Alc as String 
Dim lRow as Long 
Dim fVal as String 

lRow = Activesheet.Cells(Activesheet.Rows.Count, 1).End(xlUp).Row 

For Each element In arr 

fVal = element 

Set fRange = WA.Cells.Find(What:=fVal, LookIn:=xlFormulas _ 
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False) 

While Not fRange Is Nothing 

    While Not IsInArray(fRange.Offset(lRow - 6, 0).Address(False, False), arr2) 

     ReDim Preserve arr2(0 To UBound(arr2) + 1) As Variant 

     arr2(UBound(arr2)) = fRange.Offset(lRow - 6, 0).Address(False, False) 

    Set fRange = WA.Cells.Find(What:=fVal, LookIn:=xlFormulas _ 
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False) 

    Wend 

Wend 

Next element 

Alc = "=" 

    For Each element In arr2 

     Alc = Alc & element & "+" 

    Next element 

Alc = Left(Alc, Len(Alc) - 1) 

MsgBox Alc 

End Sub 

Function IsInArray(stringToBeFound As String, arr2 As Variant) As Boolean 

    IsInArray = (UBound(Filter(arr2, stringToBeFound)) > -1) 

End Function

運行時我得到以下錯誤：

在這行代碼（T內他IsInArray功能）：

IsInArray = (UBound(Filter(arr2, stringToBeFound)) > -1)

任何幫助，不勝感激！

來源

2016-06-22 TheGuyThatDoesn' tKnowMuch

你有沒有考慮用字典來替換'arr2'。如果您將唯一值存儲爲密鑰，則可以相對輕鬆地防止重複。 – user3561813

我不喜歡使用過濾器，因爲它也子相匹配，而且往往這不是你想要

Function IsInArray(stringToBeFound As String, arr2 As Variant) As Boolean 

    IsInArray = Not IsError(Application.Match(stringToBeFound, arr2, 0)) 

End Function

還什麼：

ReDim Preserve arr2(0 To UBound(arr2) + 1) As Variant

也許應該是：

ReDim Preserve arr2(0 To UBound(arr2) + 1)

來源

2016-06-22 19:53:04

我想我會在這裏添加我的評論作爲答案。（我希望這不在這個問題/論壇的範圍之外）。如果您希望在集合中存儲獨特的值，我不確定您是否可以打敗字典的性能。

的循環之外，你會聲明和實例Dictionary：

Dim oDict as Object 
Set oDict = CreateObject("Scripting.Dictionary")

您當前使用的搜索arr2再加入如獨特的將被修訂，以看起來像值的代碼：

If Not oDict.Exists(fRange.Offset(lRow - 6), 0).Address(False, False)) then 
    oDict(fRange.Offset(lRow - 6), 0).Address(False, False)) = "" 
End If 

Set fRange = WA.Cells.Find(What:=fVal, LookIn:=xlFormulas _ 
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False)

我不知道您期望插入或搜索多少條記錄，或者您的軟件需要多少性能，但性能可能會有很大差異。

來源

2016-06-22 20:38:27 user3561813

添加到陣列並在數組中查找值

回答

相關問題