ПОСТ ВОСЬМИДНЕВНОЙ ДАВНОСТИ!
Предварительно каждую из трёх табличек выделила и присвоила им имя - Ди, Ли, Пи.
Далее на рабочем листе рядом с табличкой создавала кнопку для макроса и присваивала ей следующие коды (меняла в них только названия нужных диапазонов):
Чтобы удалить строку:
Чтобы добавить строку:
Предварительно каждую из трёх табличек выделила и присвоила им имя - Ди, Ли, Пи.
Далее на рабочем листе рядом с табличкой создавала кнопку для макроса и присваивала ей следующие коды (меняла в них только названия нужных диапазонов):
Чтобы удалить строку:
Код |
---|
Sub Кнопка6_Щелчок() Dim myRange As Range Set myRange = Range("Пи") Dim numRows As Long numRows = myRange.Rows.Count If numRows >= 2 Then 'Delete second-to-last row in range myRange.Rows(numRows - 1).Delete Shift:=xlUp Else 'Range has 1 or 0 rows, can't delete second-to-last row MsgBox "Range has 1 or 0 rows, can't delete second-to-last row." End I |
Код |
---|
Sub Кнопка7_Щелчок() Dim myRange As Range Set myRange = Range("Пи") Dim numRows As Long numRows = myRange.Rows.Count 'Insert new row as second-to-last row in range If numRows >= 2 Then myRange.Rows(numRows - 1).Insert Shift:=xlDown 'Copy formatting from above row to new row myRange.Rows(numRows - 2).Copy myRange.Rows(numRows - 1).PasteSpecial Paste:=xlPasteFormats Else 'Range has fewer than 2 rows, so we can't insert a new row MsgBox "Range has fewer than 2 rows, can't insert new row." End If Application.CutCopyMode = False 'Clear clipboard End Sub |
Как-то так...