Array in Excel-Bereich

Ich bin neu in VBA und versuche zu schreiben, der ein array zu einem excel-Bereich durch ein array UDF.

Ich versuche die Ausgabe des array auf eine maximale Anzahl von Zeilen, die die Formel wurde platziert. Ich bin mit der Microsoft Scripting Bibliothek für das Wörterbuch, wenn diese Angelegenheiten.
Mit einer array-Formel in excel (STRG+Shift+Enter), wie kann ich die Größe meines Arrays auf den Bereich, der die Formel wurde platziert und dann das array in die Zellen?
Ich möchte die Formel in der Zelle =test("G1:J20") und die Formel wird in die Zellen A1:B20.

Code:
    Function test(ByVal inputRange As Range) As Variant
    Dim Cell As Variant
    Dim D As Dictionary
    Dim Arr() As Variant
    Dim i As Long
    Set D = New Dictionary

' Remove duplicates
For Each Cell In inputRange
    If D.Exists(CStr(Cell.Value)) = False Then
        D.Add CStr(Cell.Value), 1
    Else
        D.Exists (Cell.Value)
        D.Item(Cell.Value) = D.Item(Cell.Value) + 1
   End If
Next
D.Remove vbNullString

Redim Arr(0 To Application.Max(D.Count, Application.Caller.Cells.Count))

'Fill the array with the keys from the Dictionary
For i = 0 To D.Count - 1
    Arr(i) = D.Keys(i)
Next i

test = Application.Transpose(Arr)
End Function
  • Wenn Sie ReDim ein array ohne Verwendung Preserve dann verlieren Sie den Inhalt, aber in jedem Fall, dass Sie ReDim kann nur die Letzte dimension eines 2-D array... Versuchen Sie den Aufruf der Funktion aus einer test-Sub leichter zu Debuggen.
InformationsquelleAutor hollige1 | 2014-07-10
  1. 1

    Lesen und schreiben von arrays zu den Zellen benötigen Sie ein 2D-array. Zum Beispiel:

    Dim data() as Variant, N as Integer, M as Integer
' Say you want a 100×50 array
N = 100 : M = 50
ReDim data(1 to N, 1 to M)
' Fill data()
Range("A1").Resize(N,M).Value = data

    Oder einfach nur zum Lesen von Werten

    Dim data() as Variant, N as Integer, M as Integer, i as Integer, j as Integer
data = Range("A1:AX100").Value
N = UBOUND(data,1) : M = UBOUND(data,2)
For i = 1 to N
    For j = 1 to M
        Debug.Print(data(i,j))
    Next j
Next i
    • HINWEIS: Verwenden Sie die Range.Resize() und Range.Offset() Befehle wählen Sie den Bereich von Zellen benötigt.
    InformationsquelleAutor ja72
  2. 0

    Hier ist eine Methode, um ein array in ein Arbeitsblatt-Bereich, ist es das, was du meintest?

    Sub test()
    Dim v(0 To 2, 0 To 2) As Variant
    Dim r As Range
    'fill the array with values
    populate v
    'range must be same dimensions as array, in this case 3x3
    Set r = ActiveSheet.Range("A1:C3")
    'this simply puts array into range values
    r.Value2 = v
End Sub

Function populate(v As Variant)
    For i = 0 To 2
        For j = 0 To 2
            v(j, i) = i * j * j - i + 2
        Next j
    Next i
End Function

    Jedoch, da Sie bereits Durchlaufen Wörterbuch für die Werte, warum nicht, schreiben Sie die Werte direkt in das Arbeitsblatt? Sie können nachahmen, das transponieren, das austauschen Ihrer Zeilen-und spaltenindexpositionen

    Sub test()
    Dim dict As Dictionary
    Set dict = New Dictionary
    'fill dictionary with values
    populate dict
    'loop through dictionary, and add items to worksheet
    For i = 0 To dict.Count - 1
        ActiveSheet.Cells(1, i + 1).Value = dict.Keys(i)
        ActiveSheet.Cells(2, i + 1).Value = dict.Items(i)
    Next i
End Sub

Function populate(dict As Dictionary)
    dict.Add "help", "me"
    dict.Add "I'm", "lost"
    dict.Add "everything", "1"
    dict.Add "or", "0"
End Function
    • Vielen Dank für die Antwort. Gibt es eine Möglichkeit die Größe und den Ort der array in einen Bereich mit einer Matrixformel (STRG+Shift+Enter)?
    • was sind Sie, ändern der Größe, wie sollte es geändert werden?
    InformationsquelleAutor Alter
Schreibe einen Kommentar