2016-04-12 22 views
-3

Ich habe riesige Daten.WIE viele Zeilen gleichzeitig kopieren?

WIE man viele Reihen in der gleichen Zeit kopiert?

wo die Zeilen, die ich will, in systematischen Ansatz für jede vier Zeilen wiederholt werden. Bitte, siehe die Abbildung.

Vielen Dank im Voraus für jede Hilfe. MANY ROWS

+0

[Warum nicht Bilder von Code und Beispieldaten] (http://meta.stackoverflow.com/questions/285551/285557 # 285557) und [Entmutigen Screenshots von Code und/oder Fehlern] (http://meta.stackoverflow.com/questions/303812). – Jeeped

Antwort

0

Setzen Sie dieses in F2 und kopieren Sie und unten:

=INDEX(A:A,(ROW(1:1)-1)*4+2) 

enter image description here

+0

vielen dank, es funktioniert wie magie – amer

+0

@amer bitte wählen Sie eine als richtig zu markieren, indem Sie das grau/grün Häkchen durch die Antwort, die Sie wählen. Es ist etwas, was nur du tun kannst. Es wird die Frage abschließen. –

0

Probieren Sie etwas wie,

with worksheets("sheet1") 
    .range("a2:b2, a6:b6, a10:b10, a14:b14, a18:b18").copy _ 
     destination:=.range("f2") 
end with 

Alternativ mit ‚Tausende von Zeilen‘ Sie eine Vereinigung mit einer Schleife schaffen könnte.

With Worksheets("sheet1") 
    Set rng = .Range("a2:b2") 
    For rw = 6 To .Cells(Rows.Count, 1).End(xlUp).Row Step 4 
     Set rng = Union(rng, .Cells(rw, 1).Resize(1, 2)) 
    Next rw 
    rng.Copy Destination:=.Range("f2") 
End With 
+0

vielen dank zu ihrer antwort – amer

Verwandte Themen