Wie man ein Array in eine Variable speichert - VBA

Question

Ich bin neu in VBA also bitte bitte mit mir. Ich habe eine harte Zeit mit diesem Code:

Dim arrayAC() As Variant 
Dim arrayW() As Variant 
Dim DD As date 
Dim LrowAC As Integer 
Dim LrowW As Integer 
LrowAC = Worksheets("A").Columns(29).Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
LrowW = Worksheets("A").Columns(23).Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
ReDim arrayAC(1 To LrowAC + 1) 
ReDim arrayW(1 To LrowW + 1) 

For i = 3 To LrowAC + 1 
    arrayAC(i) = Worksheets("A").Cells(i, 29) 
Next i 
i = 3 

For h = 3 To LrowW + 1 
    arrayW(h) = Worksheets("A").Cells(h, 23) 
Next h 
h = 3 

For i = 3 To LrowAC + 1 
For h = 3 To LrowW + 1 
If arrayAC(i) = arrayW(h) Then 
DD = arrayAC(i) 
Worksheets("A").Cells(i, "X").Value = DD 
end if 
next h 
next i 

DD erhält keinen Wert! Ich weiß nicht, wie man das ArrayAC (i) in der DD-Variable speichert, die später im Excel-Blatt gedruckt wird. Danke,

Answer 1

Ich vermutete, dass sich die Arrays auf Zellbereiche beziehen? Wenn ja, ist es am einfachsten, sie in "Variante" zu konvertieren. Sie am Ende als 2D-Arrays können Sie durchsuchen:

Sub MatchData() 
    Dim ArrayAC As Variant, ArrayW As Variant, i As Long, j As Long, k As Long 

    ArrayAC = ThisWorkbook.Sheets("AC").Range("A2:A250").Value 
    ArrayW = ThisWorkbook.Sheets("W").Range("A2:A250").Value 

    For i = 1 To UBound(ArrayAC) 
     For j = 1 To UBound(ArrayW) 
      If ArrayAC(i, 1) = ArrayW(j, 1) Then 
       DD = ArrayAC(i,1) 
      End If 

     Next 
    Next 



End Sub 

Answer 2

dies tun, und wenn Sie das Meldungsfeld zu sehen, sollte der Wert auf Spalte X. geschrieben werden, wenn Sie das Meldungsfeld nicht sehen, dann ist etwas anderes falsch mit deinen Annahmen. Wenn Sie das Meldungsfeld mehr als einmal sehen, überschreiben Sie möglicherweise die Zelle in Spalte x, weiteres Debugging wäre erforderlich ...