Kopie, bis das Letzte Stück von Daten

Ist es möglich, einen Bereich auszuwählen, zu kopieren, um das Letzte Element?

Sheets("Design").Select
Range("A1:C200").Copy

'My data only runs until E48 and Im left with 152 blancs.

So, jetzt ist es Kopien von A1 E200, aber wie kann ich die Bearbeiten den obigen code so, dass es nur wählt, bis das Letzte Stück von Daten, welche in meinem Fall ist E48? (dieser ist variabel)

Dank!

@Jean

In meiner excel-Tabelle habe ich Daten von A1-A18, B ist leer und C1-C2. Ich möchte nun kopieren Sie alle Zellen, die einen Wert enthalten. 

 With Range("A1")
     Range(.Cells(1, 1), .End(xlDown).Cells(20, 3)).Copy
 End With

Diese kopieren alles von A1-C20, aber ich will nur A1-A18 und C1-C2-gesehen, als ob diese Daten enthalten. Aber es muss gebildet werden, in einer Weise, dass, sobald ich die Daten in B oder meine Palette erweitert, dass diese auch kopiert.

Ist diese vielleicht ein wenig klarer?

Über die Copy/Paste-situation;

Ich derzeit paste mit dieser

appWD.Selection.PasteSpecial ' So it copies the formats too?
'In your case, do you mean I should do it like this?
Range(.Cells(1, 1), .End(xlDown).Cells(20, 3)).Copy Destination:=appWD.Selection.PasteSpecial
InformationsquelleAutor CustomX | 2011-03-16
  1. 2

    Dies funktioniert:

    With Range("A1")
    Range(.Cells(1, 1), .End(xlDown).Cells(1, 5)).Copy
End With

    Ändern Sie die "5", wenn Sie benötigen eine andere Anzahl von Spalten.

    Auch, das ich die harte Tour gelernt: nicht mit Kopieren/Einfügen wenn überhaupt möglich! Kopieren und Einfügen über die Zwischenablage. Andere Programme können das Lesen aus /schreiben in die Zwischenablage, während Ihr code ausgeführt wird, was zu wilden, unvorhersehbaren Ergebnissen. Jedoch, es ist sicher zu kopieren, um Ihr Ziel-Bereich auf der gleichen Linie, d.h. dies

    Range(.Cells(1, 1), .End(xlDown).Cells(1, 5)).Copy myDestinationRange

    und nicht diese

    Range(.Cells(1, 1), .End(xlDown).Cells(1, 5)).Copy
myDestinationRange.Paste

    Letztere verwendet die Zwischenablage, während die ehemaligen nicht.

    • danke, also wie würden Sie das in meinem Fall? So wird es jetzt nach unten gehen von A1 bis A5 oder A1 nach unten zu E1 nach unten? Und dies wird nur Zellen kopieren, wo gibt es Daten? Was meinst du mit " nicht mit Kopieren/Einfügen? Sheets("1").Range("B1").Copy Destination:=Sheets("2").Range("A1").Wert Sowas?
    • Diese auch kopiert blancs, möglich ist, wählen Sie nur die Felder, die Daten enthalten?
    • So viele Fragen... Die Art, wie ich die Range-Eigenschaft in der obigen Bereich(UpperLeftCell,LowerRightCell). Die ganze "Rechteck" definiert, die von diesen oberen linken und unteren rechten Ecken ausgewählt werden.
    • "> Was meinst du mit " nicht mit Kopieren/Einfügen?" Ich gab ein Beispiel in meiner Antwort... Tun dies, nicht dies... Ist es unklar, in irgendeiner Weise?...
    • Ich werde neu definieren, meine Frage oben.
    • "Das ist auch kopiert blancs, möglich ist, wählen Sie nur die Felder, die Daten enthalten?" Es ist möglich, Sie müssen aber ein anderer Ansatz, zu lang, zu beschreiben, in einem Kommentar. Ich schlage vor, Sie Fragen eine neue Frage mit einer detaillierten Beschreibung von dem, was Sie zu tun versuchen.
    • stackoverflow.com/questions/5338725/...

    InformationsquelleAutor Jean-François Corbett
  2. 2

    Sollte dies funktionieren:

    a1 = Range("a1").Address
lastcell = Range("E1").End(xlDown).Address
Range(a1, lastcell).Copy
    • Dies wird nur dann kopieren, Spalte A...
    • So ist es nicht. Ich habe mich jetzt fest, damit er nicht bis zur Spalte E in der Frage gesagt.
    • Dies nicht nur kopieren, A1-B1...-D1-E1:E48? In meinen Fall?
    • Es kopiert alles in das Rechteck von A1 bis E48 in Ihrem Fall. Wenn das Letzte Element in der Spalte E ist, E48, noch den anderen Spalten Daten unter Zeile 48, dann wird es nicht kopieren Sie diese. Jean-François Corbett Kommentare zu kopieren, sind es Wert, Aufmerksamkeit zu.
    • Schaue noch einmal in meinen Beitrag, ich habe versucht, neu zu definieren, es. Dies könnte deutlicher sein.
    InformationsquelleAutor paulmorriss
  3. 0

    Wenn es Euch passt, mein Favorit ist CurrentRegion: 

    Range("A1").CurrentRegion.Copy Destination:=Sheet2.Range("a1")
    • Achtung: wenn Sie Daten in benachbarten Spalten (Spalte F, G...) dieser kopiert wird.
    • Richtig, daher meine Warnung ", wenn es Euch passt"
    • danke, ich werde es einmal versuchen
    InformationsquelleAutor Patrick Honorez
Schreibe einen Kommentar