Ed kirjutas ja küsis lihtsa makro kohta:
Kas teil on makro, mis saab lisada tabeleid ridu (all või lahtrikursoril), seejärel eelmisest reast kopeerida ja andmed uude ritta lisada? Ja lõpuks kustutage teatud lahtrites olevad andmed.
Siin on makro, mis sisestab ruudukese kohale rea ja kopeerib eelmise rea sisu. Oletame, et teie andmed ulatuvad A-st T-ni ja soovite kustutada uue rea lahtrite H, K ja M sisu
Ma kasutan märksõna ActiveCell, et makro raku kursori suhtes toimiks.
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
