Макросы вставки строки снизу в таблице Excel

@kurmaga · Регистрация: 23.12.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте!

Прошу вас помочь, сам я точно не справлюсь!!

В таблице, скажем, из 4-х столбцов (A,B,C,D) необходимо добавить строку снизу. При этом по столбцу A происходит автоматическая пере-нумерация. а последняя строка Итого: не удаляется. если можно

Прикрепил файл, содержащий таблицу. В силу своих возможностей в ней сделал макросы для Удаления строк. А со Вставками большой ступор. Смог только частично написать вставку снизу, но как сделать автоматическую нумерацию и формулу не знаю.

Заранее благодарен!

@sanych_k · 13.02.2017, 20:45

Visual Basic

Sub Insert_Rows2()
If Selection.Rows.Count > 1 Then Exit Sub
r_ = Selection.Row
    Rows(r_).Insert Shift:=xlDown
    Sheets("Ïîèñê").Rows("6:7").Copy Range("A" & r_)
        Application.CutCopyMode = False
End Sub

@Hugo121 · 13.02.2017, 20:50

И что не так? Работает, ошибок нет...

@sanych_k · 13.02.2017, 20:51

Visual Basic

Sub Insert_Rows2()
If Selection.Rows.Count > 1 Then Exit Sub
r_ = Selection.Row
Rows(r_).Insert Shift:=xlDown
Sheets("лист1").Rows("6:7").Copy Range("A" & r_)
Application.CutCopyMode = False
End Sub

@Hugo121 · 13.02.2017, 20:52

Точно нужно сообщить? А то оно есть...

@sanych_k · 13.02.2017, 20:56

приходиться каждый раз указывать ячейку куда вносить строки. Как можна сделать что бы после внесения данных автоматом активная ячейка будет первая ячейка внизу

@Hugo121 · 13.02.2017, 21:03

Ну можно например писать в

Visual Basic

1	[A2].End(xlDown)(2)

или в A5, кто знает куда там Вы задумали чего вносить...

@sanych_k · 13.02.2017, 21:26

не проходит

@Hugo121 · 13.02.2017, 21:28

Поспорю - проходит!

@sanych_k · 13.02.2017, 21:35

блин .... я чуть "туплю" , а можно попросить полным кодом скинуть?

@Hugo121 · 13.02.2017, 21:39

Так это и есть полный код - встраивайте в свою задумку, я без понятия что там... Могу только гадать - может так?

Visual Basic

Sub Insert_Rows2()
    Sheets(1).Rows("6:7").Copy [A2].End(xlDown)(2)
    Application.CutCopyMode = False
End Sub

@sanych_k · 13.02.2017, 21:49

Спасибо

@MaxaonAst · 02.11.2017, 15:03

Добрый день!
Надеюсь не ошибся с темой!
Тема эта изъезженная до нельзя, но решения не смог найти.
На листе две таблицы и для каждой в отдельности необходимы кнопки добавить/удалить строки внизу таблицы.
Для одной таблицы скрипя у меня получилось сделать, для двух в отдельности ни как.
Важный момент, при добавлении строки она должна появляться внизу таблицы перед строкой "Итого", при этом должна брать формулы из строки стоящей над ней и в столбике продолжать порядковую нумерацию.

Помогите люди добрые!
Файлик прилагаю.

@Аватар-С · 18.01.2018, 14:38

Здравствуйте Коллеги!

Доработал, просто потренироваться.

Visual Basic

Sub Строка()
'вставить строку
    Dim strInput As String, i As Long, iR, iBox, Message, Title, Default
        Message = "Укажите желаемое колличество строк!"
        Title = "Вставка сток в лист " & Chr(171) & ActiveSheet.Name & Chr(187)
        Default = "1"
N:      iBox = InputBox(Message, Title, Default)
    Select Case iBox
        Case "": Exit Sub
        Case Is > 0: On Error GoTo errN
            For i = 1 To iBox
                iR = Range("A2").End(xlDown).Row
                Rows(iR & ":" & iR).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                Cells(iR, 1) = Cells(iR - 1, 1) + 1
            Next i
        Case Else
errN:       If MsgBox("Вы ввели не коректные данные!", vbRetryCancel + 64, Title) = vbRetry Then GoTo N
    End Select
End Sub

С уважением, Аватар-С

@mor_sergey · 30.01.2019, 12:47

Hugo121, не могу понять в чем дело. Ваша процедура, tt , из Книга1H.xls в файле работает, переношу в свою программу, и ошибка. показал на чистой книге. спасибо

@Hugo121 · 30.01.2019, 12:54

Код здесь текстом опубликуйте, не перенабирать ведь... да и отсюда не видно где там l, а где 1

Не лучший выбор имени переменной в даннном случае. Это я писал?

@mor_sergey · 30.01.2019, 13:16

Hugo121, в 3 сообщении в этой теме.....а в 10 сообщении применили код на примере.в примере все работает. переношу в любую другую книгу, ошибка

Visual Basic

Sub tt()
    Dim L
    L = Range("A12").End(xlDown).Row
    Rows(L & ":" & L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(L, 1) = Cells(L - 1, 1) + 1
    Cells(L, 1).Borders.Weight = xlThin
End Sub

@dzug · 30.01.2019, 19:27

Попробуйте так:

Visual Basic

Dim L
    L = Range("A12").End(xlDown).Row + 1
    Rows(L & ":" & L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(L, 1) = Cells(L - 1, 1) + 1
    Cells(L, 1).Borders.Weight = xlThin

@Hugo121 · 30.01.2019, 19:47

Вот эту часть строки не пробовали анализировать?

Visual Basic

1	Cells(L - 1, 1) + 1

Очевидно в файле, где работало было побольше строк с нумерацией, возможно это условие и оговаривалось...

Добавлено через 5 минут
Вернее так - код писался под таблицу типа

про
1
итого

@dzug · 30.01.2019, 19:53

В Вашем файле из поста 10, выполнение строки

Visual Basic

1	l = Range("A12").End(xlDown).Row

выдаёт результат 14, а в файле mor_sergey, выдаёт 13, т.к. ниже этой строки отсутствует запись "ИТОГО" в объединённой ячейке..

А в сроке из файла топикстартера

Visual Basic

1	Cells(l, 1) = Cells(l - 1, 1) + 1

вызывает ошибку попытка сложить строку "про" с единичкой из 13 строки.

P.S.
Уважаемый Hugo, я сам у Вас многому научился и Ваши знания считаю на порядок выше моих..

@Hugo121 · 30.01.2019, 19:58

Я естественно не помню на какой файл это писалось, но как вижу угадал, только что нашёл пост10

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	13.02.2017, 20:50	62
	И что не так? Работает, ошибок нет... 1

@sanych_k 1 / 1 / 0 Регистрация: 13.02.2017 Сообщений: 7
	13.02.2017, 21:26	67
	не проходит 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	13.02.2017, 21:28	68
	Поспорю - проходит! 1

@sanych_k 1 / 1 / 0 Регистрация: 13.02.2017 Сообщений: 7
	13.02.2017, 21:35	69
	блин .... я чуть "туплю" , а можно попросить полным кодом скинуть? 0

@mor_sergey 77 / 11 / 0 Регистрация: 28.03.2018 Сообщений: 828
	30.01.2019, 12:47	74
	Hugo121, не могу понять в чем дело. Ваша процедура, tt , из Книга1H.xls в файле работает, переношу в свою программу, и ошибка. показал на чистой книге. спасибо Миниатюры 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	13.02.2017, 20:52	64
	Точно нужно сообщить? А то оно есть... 0

@sanych_k 1 / 1 / 0 Регистрация: 13.02.2017 Сообщений: 7
	13.02.2017, 21:49	71
	Спасибо 1

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	30.01.2019, 12:54	75
	Код здесь текстом опубликуйте, не перенабирать ведь... да и отсюда не видно где там l, а где 1 Не лучший выбор имени переменной в даннном случае. Это я писал? 1

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	30.01.2019, 19:58	80
	Я естественно не помню на какой файл это писалось, но как вижу угадал, только что нашёл пост10 1

Макросы вставки строки снизу в таблице Excel

Решение