excel-vba-wie man kopieren Sie den Wert des mehrere nicht zusammenhängende Bereiche in einem array

Ich versuche, kopieren Sie den Wert des mehrere nicht zusammenhängende Bereiche in einem array. Ich schrieb einen code wie diesen:

summaryTempArray = .range("A2:D9,A11:D12,A14:D15").Value

Aber es kopiert nur den ersten Teil (A2:D9). Dann, ich habe Folgendes versucht und bekomme ich die Fehlermeldung - "Methode der Union von Objekt _Global ist Fehlgeschlagen" - gibt es irgendwelche Fehler in der Art und Weise, dass ich mit union?

summaryTempArray = Union(.range("A2:D9"), .range("A11:D12"), .range("A14:D15")).Value
verwenden Sie einfach die split auf den Bereich angewendet Adresse , Trennzeichen ","

InformationsquelleAutor Siraj Samsudeen | 2012-11-06

  1. 10

    Weiß nicht, was war falsch mit Ihrem union, aber es hätte die gleiche Reichweite, die Sie erklärte in Ihrem ersten Versuch.

    Das problem ist, Sie haben jetzt mehrere Bereiche. Was Sie können, und soweit ich weiß, hat nun auseinander.

    Hier ist ein Beispiel, das aufgelöst wird in eine Reihe von allen Bereichen, ohne jede Zelle einzeln, aber das hinzufügen jeder Bereich individuell auf die Inhaltsangabe array:

    Public Sub demo()
  Dim summaryTempArray() As Variant
  Dim i As Long

  With Tabelle1
    ReDim summaryTempArray(1 To .Range("A2:D9,A11:D12,A14:D15").Areas.Count)

    For i = 1 To .Range("A2:D9,A11:D12,A14:D15").Areas.Count
      summaryTempArray(i) = .Range("A2:D9,A11:D12,A14:D15").Areas(i)
    Next i
  End With

End Sub

    Hoffe, das hilft.

    InformationsquelleAutor Jook

  2. 2

    Ich glaube, Jook ' s Lösung ist so gut, wie Sie gehen zu bekommen, wenn es wichtig ist, um die source-Bereiche in einem array. Ich denke aber, die Lösung sollte enthalten Anweisungen zum extrahieren von Werten aus einem zerklüfteten array. Dies ist nicht schwierig, aber die syntax ist unklar.

    Kann ich nicht bekommen Ihr Union Anweisung fehl. Ich nehme an, es ist etwas über den Kontext, der den Fehler verursacht, die ich nicht kopieren können.

    Den code unten zeigt, dass die beiden Bereiche identisch sind, und dass nur die ersten sub-Bereich geladen wird, um ein array, wie Sie berichtet. Es endet mit einem alternativen Ansatz, der vielleicht zufrieden stellen.

    Option Explicit
Sub Test()

  Dim CellValue() As Variant
  Dim rng As Range

  With Worksheets("Sheet1")

    Set rng = .Range("A2:D9,A11:D12,A14:D15")
    Debug.Print rng.Address
    Set rng = Union(.Range("A2:D9"), .Range("A11:D12"), .Range("A14:D15"))
    Debug.Print rng.Address
    ' The above debug statements show the two ranges are the same.

    Debug.Print "Row count " & rng.Rows.Count
    Debug.Print "Col count " & rng.Columns.Count
    ' These debug statements show that only the first sub-range is included the
    ' range counts.

    CellValue = rng.Value

    Debug.Print "Rows " & LBound(CellValue, 1) & " to " & UBound(CellValue, 1)
    Debug.Print "Cols " & LBound(CellValue, 2) & " to " & UBound(CellValue, 2)
    ' As you reported only the first range is copied to the array.

    rng.Copy Destination:=Worksheets("Sheet2").Range("A1")
    ' This shows you can copy the selected sub-ranges.  If you can copy the
    ' required data straight to the desired destination, this might be a
    ' solution.

  End With

End Sub

    InformationsquelleAutor Tony Dallimore

  3. 0

    Ich hatte das gleiche problem & habe versucht ein paar Methoden ohne Erfolg, bis ich Treffer, die auf dieser:-

        dim i as integer
    Dim rng1 as range
    Dim str as string
    dim cels() as string
    Set rng1 = sheet1.Range("A2:D9,A11:D12,A14:D15")
    str = rng1.address(0,0)
    cels() = split(str, ",")     '<--- seems to work OK
    for i = 0 to 2
        Debug.Print cels(i)
    Next i

    Mich würde interessieren ob dies eine "falsche" Bekehrung Methode.

    Es scheint mir, dass dies nur ein Umweg, um eine Schleife auf die Bereiche rng1

    InformationsquelleAutor KiwiG

Schreibe einen Kommentar