Ed a scris și a întrebat despre o macro simplă:
Aveți o macrocomandă care poate adăuga rânduri la o foaie de calcul (în partea de jos sau la indicatorul celulei), apoi copiați din rândul anterior și introduceți datele în noul rând? Și, în cele din urmă, ștergeți datele din anumite celule.
Iată o macrocomandă care va insera un rând deasupra pointerului și va copia conținutul rândului anterior. Să presupunem că datele dvs. se extind de la A la T și că doriți să ștergeți conținutul celulelor H, K și M ale noului rând.
Voi folosi cuvântul cheie ActiveCell pentru a face macro-ul să funcționeze în raport cu indicatorul celulei.
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
