Доброго времени суток!)
Что изменить в макросе с кодом:
чтобы строки добавлялись в конец таблицы, а не в середину, как в данном макросе.
И как сделать так, чтобы при добавлении n количества строк в таблицу 1, добавлялась n количества строк в аналогичную таблицу 2 на листе2 (таблиц может быть много, а не обязательно 2 шт.).
Что изменить в макросе с кодом:
Код |
---|
Sub ДобавитьСтроку() Dim vrowCol Dim a As String vrowCol = InputBox("Сколько строк добавить?", "Воод значений") vrowCol = Val(vrowCol): If vrowCol = 0 Then Exit Sub With ActiveCell Application.ScreenUpdating = False a = CStr(.Row) & ":" & CStr(.Row + vrowCol - 1) Rows(a).Insert Shift:=xlDown Application.ScreenUpdating = True End With End Sub |
чтобы строки добавлялись в конец таблицы, а не в середину, как в данном макросе.
И как сделать так, чтобы при добавлении n количества строк в таблицу 1, добавлялась n количества строк в аналогичную таблицу 2 на листе2 (таблиц может быть много, а не обязательно 2 шт.).