Ed schrieb und fragte nach einem einfachen Makro:
Haben Sie ein Makro, mit dem Sie einer Tabelle Zeilen hinzufügen können (unten oder am Zellenzeiger), dann aus der vorherigen Zeile kopieren und die Daten in die neue Zeile einfügen können? Und schließlich löschen Sie Daten in bestimmten Zellen.
Hier ist ein Makro, das eine Zeile über dem Zellenzeiger einfügt und den Inhalt der vorherigen Zeile kopiert. Angenommen, Ihre Daten erstrecken sich von A bis T und Sie möchten den Inhalt der Zellen H, K und M der neuen Zeile löschen
Ich werde das Schlüsselwort ActiveCell verwenden, damit das Makro in Bezug auf den Zellenzeiger funktioniert.
Sub AddRowForEd() ActiveCell.EntireRow.Insert Cells(ActiveCell.Row - 1, 1).Resize(1, 20).Copy _ Destination:=Cells(ActiveCell.Row, 1) Cells(ActiveCell.Row, 8).Clear ' Column H Cells(ActiveCell.Row, 11).Clear ' Column K Cells(ActiveCell.Row, 13).Clear ' Column M End Sub
