Eds uzrakstīja un jautāja par vienkāršu makro:
Vai jums ir makro, kas izklājlapai var pievienot rindas (apakšā vai šūnas rādītājā), pēc tam kopēt no iepriekšējās rindas un ievietot datus jaunajā rindā? Visbeidzot, izdzēsiet datus noteiktās šūnās.
Šeit ir makro, kas ievietos rindu virs šūnu rādītāja un kopēs iepriekšējās rindas saturu. Pieņemsim, ka jūsu dati sniedzas no A līdz T un vēlaties dzēst jaunās rindas šūnu H, K un M saturu.
Es izmantošu atslēgvārdu ActiveCell, lai makro darbotos attiecībā pret šūnu rādītāju.
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