Ed skrev och frågade om ett enkelt makro:
Har du ett makro som kan lägga till rader i ett kalkylblad (längst ner eller vid cellpekaren), sedan kopiera från föregående rad och infoga data i den nya raden? Och slutligen ta bort data i vissa celler.
Här är ett makro som infogar en rad ovanför cellpekaren och kopierar innehållet i föregående rad. Låt oss anta att dina data sträcker sig från A till T och att du vill ta bort innehållet i den nya radens celler H, K och M
Jag använder nyckelordet ActiveCell för att få makrot att fungera i förhållande till cellpekaren.
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
