Ед пише и пита за прост макрос:
Имате ли макрос, който може да добавя редове към електронна таблица (в долната част или в указателя на клетка), след това да копира от предишния ред и да вмъкне данните в новия ред? И накрая изтрийте данни в определени клетки.
Ето макрос, който ще вмъкне ред над указателя на клетка и ще копира съдържанието на предишния ред. Да предположим, че вашите данни се простират от A до T и че искате да изтриете съдържанието на клетките H, K и M на новия ред
Ще използвам ключовата дума ActiveCell, за да накарам макроса да работи по отношение на указателя на клетката.
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
