Copy/Paste mehrere Zeilen in VBA

Ich bin versucht zu tun, ein einfaches kopieren Zeile einfügen Zeile innerhalb einer Arbeitsmappe. Ich habe gesucht-threads und versucht, meine code mehrere Male ohne Erfolg.

Die eine, die dem am nächsten kommt, zu arbeiten, wird dieses kopiert jedoch nur eine einzige Instanz des matching-Kriterien.

Ich versuche, eine Schleife erstellen, kopieren Sie alle Zeilen, hat eine Entsprechung in einer der Spalten.

So, wenn 8 Spalten, wobei jede Zeile mit dem entsprechenden Wert in Spalte 7 kopieren sollten zu einem benannten Blatt.

HTML:

Sub test()
Set MR = Sheets("Main").Range("H1:H1000")
Dim WOLastRow As Long, Iter As Long

    For Each cell In MR
    
If cell.Value = "X" Then
cell.EntireRow.Copy
Sheets("X").Range("A" & Rows.Count).End(xlUp).PasteSpecial
    End If
If cell.Value = "Y" Then
cell.EntireRow.Copy
Sheets("Y").Range("A" & Rows.Count).End(xlUp).PasteSpecial
    End If
If cell.Value = "Z" Then
cell.EntireRow.Copy
Sheets("Z").Range("A" & Rows.Count).End(xlUp).PasteSpecial
    End If
If cell.Value = "AB" Then
cell.EntireRow.Copy
Sheets("AB").Range("A" & Rows.Count).End(xlUp).PasteSpecial
    End If
    
Application.CutCopyMode = False

Next

End Sub

Ich mag das, weil ich brauche, um den Gegner mehrere Ziel-sheets mit verschiedenen Kriterien, aber ich brauche alle Zeilen, die mit den Kriterien übereinstimmen, zu übernehmen.

InformationsquelleAutor John | 2015-01-26

1

BEARBEITETEN CODE IN REAKTION AUF EINE NEUE ANFRAGE:

Den code unten kopieren Sie alle Zeilen in Blatt Main und fügen Sie diese in die entsprechenden Arbeitsblätter basierend auf dem Wert in Spalte 7.

Bitte beachten Sie: Wenn es einen Wert in Spalte 7, der NICHT mit einem bestehenden Blatt name, der code wirft einen Fehler. Ändern Sie den code zur Behandlung der Ausnahme.

Lassen Sie mich wissen, ohne zusätzliche Hilfe benötigt.
```
Sub CopyStuff()
    Dim wsMain As Worksheet
    Dim wsPaste As Worksheet
    Dim rngCopy As Range
    Dim nLastRow As Long
    Dim nPasteRow As Long
    Dim rngCell As Range
    Dim ws As Worksheet

    Const COLUMN_TO_LOOP As Integer = 7

    Application.ScreenUpdating = False

    Set wsMain = Worksheets("Main")
    nLastRow = wsMain.Cells(Rows.Count, 1).End(xlUp).Row
    Set rngCopy = wsMain.Range("A2:H" & nLastRow)

    For Each ws In ActiveWorkbook.Worksheets
        If UCase(ws.Name) = "MAIN" Then
            'Do Nothing for now
        Else
            Intersect(ws.UsedRange, ws.Columns("A:H")).ClearContents
        End If
    Next ws

    For Each rngCell In Intersect(rngCopy, Columns(COLUMN_TO_LOOP))
        On Error Resume Next
        Set wsPaste = Worksheets(rngCell.Value)
        On Error GoTo 0

        If wsPaste Is Nothing Then
            MsgBox ("Sheet name: " & rngCell.Value & " does not exist")
        Else

            nPasteRow = wsPaste.Cells(Rows.Count, 1).End(xlUp).Row + 1

            wsMain.Range("A" & rngCell.Row).Resize(, 8).Copy wsPaste.Cells(nPasteRow, 1)
        End If

        Set wsPaste = Nothing
    Next rngCell

    Application.ScreenUpdating = True
End Sub
```
- Danke. Es ist nur, dass Sie mir einen run-teime error'9': subscript out of range für das Set wsPaste=Worksheets(rngCell.Wert).
- Gibt es ein Arbeitsblatt mit dem Namen des Werts in Spalte 7 für jede Zeile in Spalte 7. Verweisen auf das Beispiel in deinem ursprünglichen Beitrag, die Zelle in Spalte G ein " X " - Wert ein. Diese Zeile bewegen, um ein Blatt mit dem Namen 'X'. Trifft dies gilt für alle Zeilen? Außerdem haben die Zeilen einfach kopiert werden, um den Tabellenblättern?
- so habe es geschafft Kopie der ersten Instanz. Also der erste X-Wert eingefügt wurde in X Blatt. Also in der test-Arbeitsmappe, die ich verwende, habe ich 11 Instanzen von X in Spalte G. jedes mal wenn ich es ausführen, wird es kopieren, dass dieselbe Instanz, die unterhalb der ersten auf dem zielblatt.
- Haben Sie alle leeren Zellen in Spalte G? Ich erstellte eine test-Arbeitsmappe mit allen Informationen, die ich gesammelt, dass von Ihrem ursprünglichen Beitrag, und es funktionierte ohne Probleme. Dies führt mich zu glauben, dass ich missverstanden Ihre erste Daten-layout. Auf einer seitlichen Anmerkung, ich veränderte den code und bearbeitet meine ursprüngliche Antwort. Diese neue version wird überprüft, ob das Blatt vorhanden ist, und zeigen Sie eine Nachricht im Feld, wenn das Blatt nicht. Beachten Sie die Meldungen des Blattes Namen, die nicht existieren.
- Das war perfekt. Es war nur ein Beispiel, dass ein Blatt und Referenz nicht übereinstimmen. Läuft schön. Danke!!! Eine follow-up-Anfrage. Ist es möglich, um das Ziel zu löschen Zellen vor dem einfügen? Ich möchte vermeiden, duplizieren der eingefügte info.
- Ich bearbeitet den code oben in der Antwort. Vor dem kopieren nichts mehr, der code durchläuft die Arbeitsmappe und löscht alle Zellen, die NICHT in das Arbeitsblatt Main. Mit dieser sagte, wenn Sie ALLE Arbeitsblätter in der Arbeitsmappe abgesehen von Main dass Sie NICHT wollen, gelöscht, dann müssen Sie ändern Sie den code vor dem ausführen. Ansonsten, es ist gut zu gehen! Auf einer seitlichen Anmerkung, wenn der code funktioniert wie benötigt, bitte markiere die Frage als beantwortet, so dass zukünftige Leser können die Frage, wie eine Referenz.
- Das Letzte update gelöscht, alle Blätter und die Referenz-Daten nicht einfügen. hahaha. ein wenig schockierend zu sehen, auf den ersten.
- Es machte den Haupt-Blatt auch? Wenn das der Fall ist, das erklärt, warum es kopiert gar nichts mehr (nichts mehr übrig war) zu kopieren. Aber, ist es nicht zu erklären, warum es gelöschte Informationen in der Main Blatt. Ist es mit dem Namen, genau, Haupt - (groß-Kleinschreibung)?
- Dank Der Benutzer. Es war mein Fehler. Ich falsch die zweite Referenz auf das Haupt-Blatt in Ihrem code. Kurze Frage. Kann ich deaktivieren Sie einfach die Ziel-Zellen und nicht das ganze Arbeitsblatt Ziel? Es wird einen gesonderten Abschnitt für das Ziel-Arbeitsblatt, dass ich die Formel in.
- es scheint tatsächlich so deaktivieren Sie alle Arbeitsblätter, die nicht gehen, um Daten eingefügt von der großschot.
- Der code löscht ALLE Tabellenblätter, die nicht benannt Main. Ist es das, was Sie brauchen?
- Nein, ich würde nur hoffen, dass Bereich zu löschen, ist es eingefügt in. Also der A2:H Bereich, der kopiert wird. Von ich:ZZ habe ich andere Formeln mit den Daten eingefügt werden, in A2:H.
- Ok, noch einmal bearbeitet. Ich hoffe, dies passt die Rechnung. Ich machte ein paar änderungen, eigentlich. Zuerst habe ich nur gelöscht, den Inhalt in Blätter, die NICHT benannt Main und nur Daten in den Spalten A:H. zusätzlich ändere ich die Copy/Paste-code. Zunächst, es kopiert die entirerow, und klebte es. Dies diente zum überschreiben der Daten in der Paste sheets, einschließlich der Spalten I:Z (da Sie Teil der gesamten Reihe). Der neue code nicht mehr überschreibt diese Formel Zellen.
- gut tut es nur, löschen Sie den Bereich, der kopiert wurde, so dass ein Teil funktioniert. leider löscht auch aus der Abschnitt kopiert werden soll, so wird nichts eingefügt, und die ursprünglichen Daten werden nun entfernt.
- Die original-Daten, bezogen auf die Daten aus Arbeitsblatt Main, richtig? Haben Sie bestätigen, dass Sie den Namen des Tabellenblattes ist genau Main (groß-und Kleinschreibung, keine führenden/nachgestellten Leerzeichen)?
- ja. nun es gibt mir einen Laufzeitfehler 1004: kann nicht tun, um eine verbundene Zelle, obwohl es keine verbundene Zelle. Ich habe nicht zusammengeführte jedes Blatt um sicher zu gehen. Die Linie verweist, ist die Intersect (ws.UsedRange,ws.Columns("A:H")).ClearContents
InformationsquelleAutor user3561813
0

Ihre aktuelle code einfügen in der gleichen Zeile in jedem Blatt über und über, um die Letzte Zeile mit Wert in Spalte A. Range("A" & Rows.Count).End(xlUp) sagt, etwa "gehen Sie auf die ganz unten auf dem Arbeitsblatt in Spalte A, und springen Sie dann von dort auf die nächste untersten Zelle in Spalte A mit Inhalt", was bringt Sie zurück zu der gleichen Zelle jedes mal.

Stattdessen könnte man mit Hilfe von Linien des Musters:
```
Sheets("X").Range("A" & Sheets("X").UsedRange.Rows.Count + 1).PasteSpecial
```
Wo UsedRange ist ein Angebot, das alle Zellen auf dem Blatt mit den Daten in Ihnen. Die + 1 bringt Sie auf die folgende Zeile.

Könnten Sie diese ein wenig hübscher aus, als mit Mit:
```
With Sheets("X")    
  .Range("A" & .UsedRange.Rows.Count + 1).PasteSpecial    
End With
```
InformationsquelleAutor Isaac Moses

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.