Ed napisał i zapytał o proste makro:
Czy masz makro, które może dodawać wiersze do arkusza kalkulacyjnego (na dole lub przy wskaźniku komórki), a następnie kopiować z poprzedniego wiersza i wstawiać dane do nowego wiersza? I wreszcie usuń dane w niektórych komórkach.
Oto makro, które wstawi wiersz powyżej wskaźnika komórki i skopiuje zawartość poprzedniego wiersza. Załóżmy, że Twoje dane rozciągają się od A do T i chcesz usunąć zawartość komórek nowego wiersza H, K i M
Użyję słowa kluczowego ActiveCell, aby makro działało w stosunku do wskaźnika komórki.
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
