Ed je napisal in vprašal o preprostem makro:
Ali imate makro, ki lahko v preglednico (na dnu ali na kazalcu celice) doda vrstice, nato kopira iz prejšnje vrstice in vstavi podatke v novo vrstico? In končno izbrišite podatke v določenih celicah.
Tu je makro, ki bo vstavil vrstico nad kazalcem celice in kopiral vsebino prejšnje vrstice. Predpostavimo, da se vaši podatki širijo od A do T in da želite izbrisati vsebino celic nove vrstice H, K in M
Ključno besedo ActiveCell bom uporabil, da bo makro deloval glede na kazalec celice.
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
