Ich habe zwei Spalten .. "AE" und "AG"Wie wird eine Spalte von einer bestimmten Zeile bis zur letzten Zeile mit Werten kopiert?
Die Header befinden sich in Zeile 4 des Arbeitsblatts und alle Daten beginnen ab Zeile 5.
Ich möchte nur die gesamte Spalte von "AG" ab "AG5" bis zur ersten leeren Zeile kopieren und sie AS-Werte in genau "AE" einfügen (ab "AE5"). Wie kann ich das tun?
Wert Übertragung ändern, ist schneller als ein Kopieren und Einfügen.
dim lr as long
with worksheets("sheet1")
lr = .cells(.rows.count, "AG").end(xlup).row
.range(.cells(5, "AE"), .cells(lr, "AE")) = .range(.cells(5, "AG"), .cells(lr, "AG")).value
end with
danke, aber ich habe die oben vorgeschlagenen .. und es kopiert nicht und fügen Sie als Werte..does nicht kopieren und einfügen überhaupt .. –
Haben Sie die kleine Bearbeitung gesehen, die ich vor kurzem gemacht habe? (change .Values to .Value) Haben Sie sheet1 auf den korrekten Namen Ihres aktuellen Arbeitsblatts geändert? – Jeeped
Es tut mir leid, aber ich habe es getestet und es funktioniert genau wie angegeben. Obwohl es schwer zu lesen ist, sieht Ihr Code gut aus. Sie sollten es zu Ihrer Frage hinzufügen, indem Sie es in einen Code-Block formatieren. – Jeeped
Versuchen Sie unten.
With ActiveSheet
LR = .Range("AG1048576").End(xlUp).Row
.Range("AG5:AG" & LR).Copy
.Range("AE5").PasteSpecial xlValues
End With
Möglicherweise müssen Sie Active zu
sheets("NAME OF SHEET")
danke das funktioniert! –
Code funktioniert hier mit einer Formel in AG und dann werden Werte in AE eingefügt. erhalten Sie einen Fehler oder? – 99moorem
Was haben Sie bisher versucht? – MarthyM