Excel - Ein Makro zum Kopieren und Einfügen von Daten in die nächste leere Zelle

Problem

Ich habe zwei Blätter in einer Arbeitsmappe. Sheet1 ist für die Zusammenfassung und Sheet2 ist für die Rohdaten. Ich muss Daten in Sheet2 nach Sheet1 aktualisieren / einfügen / kopieren. Unten ist der Beispielmakrocode:

 Sub Summarize () Range ("A6: AT6"). Select Selection.Copy Sheets ("ImprovementLog"). Select Range ("B283"). Select Selection.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = False Range ("B283"). Wählen Sie End Sub 

Der obige Code funktioniert, aber jedes Mal, wenn ich Daten in Sheet2 ändere, ersetzt Sheet1 nur die Daten. Was ich brauche, ist, dass jedes Mal, wenn ich Daten in Sheet2 ändere, diese in Sheet1 hinzugefügt (angehängt) werden sollten.

Lösung

Sie müssen die zuletzt verwendete Zeile kennen. Here Range ("B283"). Select findet die zuletzt verwendete Zelle in Spalte B und wählt dann eine Zelle darunter aus

 lMaxRows = Cells (Rows.Count, "B"). End (xlUp) .Row Range ("B" & lMaxRows +1) .select 

Danke an rizvisa1 für diesen Tipp.