Ed kirjoitti yksinkertaisen makron ja kysyi siitä:
Onko sinulla makro, joka voi lisätä rivejä laskentataulukkoon (alareunassa tai solun osoittimessa), sitten kopioida edelliseltä riviltä ja lisätä tiedot uudelle riville? Ja lopuksi poista tiedot tietyistä soluista.
Tässä on makro, joka lisää rivin solun osoittimen yläpuolelle ja kopioi edellisen rivin sisällön. Oletetaan, että tietosi ulottuvat A: sta T: hen ja että haluat poistaa uuden rivin solujen H, K ja M sisällön
Käytän avainsanaa ActiveCell saadaksesi makron toimimaan suhteessa solun osoittimeen.
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