Edas parašė ir paklausė apie paprastą makrokomandą:
Ar turite makrokomandą, kuri gali pridėti eilučių į skaičiuoklę (apačioje arba langelio rodyklėje), tada nukopijuoti iš ankstesnės eilutės ir įterpti duomenis į naują eilutę? Galiausiai ištrinkite duomenis iš tam tikrų langelių.
Čia yra makrokomanda, kuri įterps eilutę virš langelio žymeklio ir nukopijuos ankstesnės eilutės turinį. Tarkime, kad jūsų duomenys tęsiasi nuo A iki T ir norite ištrinti naujos eilutės langelių H, K ir M turinį
Aš naudosiu raktinį žodį „ActiveCell“, kad makrokomanda veiktų ląstelių žymeklio atžvilgiu.
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
