Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка ячейки со сдвигом вниз - для последней заполненной - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка ячейки со сдвигом вниз - для последней заполненной (Макросы/Sub)
Вставка ячейки со сдвигом вниз - для последней заполненной
ВасилисаЛукьянчикова Дата: Воскресенье, 10.06.2018, 20:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер.
Есть такой вопрос.

Имеется лист, на котором три таблицы.
Подскажите - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз ?
При этом процессе - картинки также сдвигаются вниз.

Но тут дело в том, что сдвигание должно происходить начиная с последней заполненной строки столбца G.
То есть - для примера - последняя заполненная строка - это G13:H13
К сообщению приложен файл: 7916361.xls(48.5 Kb)
 
Ответить
СообщениеДобрый вечер.
Есть такой вопрос.

Имеется лист, на котором три таблицы.
Подскажите - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз ?
При этом процессе - картинки также сдвигаются вниз.

Но тут дело в том, что сдвигание должно происходить начиная с последней заполненной строки столбца G.
То есть - для примера - последняя заполненная строка - это G13:H13

Автор - ВасилисаЛукьянчикова
Дата добавления - 10.06.2018 в 20:41
Kuzmich Дата: Воскресенье, 10.06.2018, 21:31 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 379
Репутация: 74 ±
Замечаний: 0% ±

Excel 2003
Цитата
При этом процессе - картинки также сдвигаются вниз

В свойствах рисунков поставьте галочку - не перемещать и не изменять размеры
 
Ответить
Сообщение
Цитата
При этом процессе - картинки также сдвигаются вниз

В свойствах рисунков поставьте галочку - не перемещать и не изменять размеры

Автор - Kuzmich
Дата добавления - 10.06.2018 в 21:31
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 09:12 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Kuzmich, так они вообще-то они и должны сдвигаться.

Вопрос - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?
 
Ответить
СообщениеKuzmich, так они вообще-то они и должны сдвигаться.

Вопрос - как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?

Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 09:12
RAN Дата: Понедельник, 11.06.2018, 09:44 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4850
Репутация: 971 ±
Замечаний: 0% ±

2010
ВасилисаЛукьянчикова, у вас макрорекордер за неуплату отключили?


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВасилисаЛукьянчикова, у вас макрорекордер за неуплату отключили?

Автор - RAN
Дата добавления - 11.06.2018 в 09:44
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 11:47 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, макрорекордер не определяет последнюю заполненную строку в таблице G:H
Вопрос звучит так: как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?

Еще раз: "начиная с последней заполненной строки столбца G "
 
Ответить
СообщениеRAN, макрорекордер не определяет последнюю заполненную строку в таблице G:H
Вопрос звучит так: как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?

Еще раз: "начиная с последней заполненной строки столбца G "

Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 11:47
RAN Дата: Понедельник, 11.06.2018, 12:47 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4850
Репутация: 971 ±
Замечаний: 0% ±

2010


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА так?

Автор - RAN
Дата добавления - 11.06.2018 в 12:47
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 14:02 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, не нахожу ответа на свой вопрос.
Идут темы: Перенос последнего заполненного значения, Выбрать последнюю заполненную ячейку и отобразить ее значение, Отображение ФИО последнего заполнившего отчет Менеджера, копирования и вставка данных из последних заполненных ячеек.

У меня вопрос звучит по-другому:
Как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?
 
Ответить
СообщениеRAN, не нахожу ответа на свой вопрос.
Идут темы: Перенос последнего заполненного значения, Выбрать последнюю заполненную ячейку и отобразить ее значение, Отображение ФИО последнего заполнившего отчет Менеджера, копирования и вставка данных из последних заполненных ячеек.

У меня вопрос звучит по-другому:
Как для средней таблицы G:H произвести вставку "ячейки со сдвигом вниз" - на три строки вниз (начиная с последней заполненной строки столбца G) ?

Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 14:02
boa Дата: Понедельник, 11.06.2018, 14:09 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 27 ±
Замечаний: 0% ±

2013, 365
[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Rows(iRow & ":" & iRow + 2).Insert
[/vba]
или так если только для одной таблицы
[vba]
Код
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]




Сообщение отредактировал boa - Понедельник, 11.06.2018, 14:12
 
Ответить
Сообщение[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Rows(iRow & ":" & iRow + 2).Insert
[/vba]
или так если только для одной таблицы
[vba]
Код
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]

Автор - boa
Дата добавления - 11.06.2018 в 14:09
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 14:57 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
boa, первый макрос - сдвигает вообще весь лист (мне нужна только вторая таблица).

Второй макрос - выдает ошибку "Run-time error '1004' Method 'Range' of object '_Global' failed"
 
Ответить
Сообщениеboa, первый макрос - сдвигает вообще весь лист (мне нужна только вторая таблица).

Второй макрос - выдает ошибку "Run-time error '1004' Method 'Range' of object '_Global' failed"

Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 14:57
boa Дата: Понедельник, 11.06.2018, 15:14 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 27 ±
Замечаний: 0% ±

2013, 365
ВасилисаЛукьянчикова,
во втором коде, что бы не повторяться, я опустил первую строку
правильно будет:
[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]




Сообщение отредактировал boa - Понедельник, 11.06.2018, 21:44
 
Ответить
СообщениеВасилисаЛукьянчикова,
во втором коде, что бы не повторяться, я опустил первую строку
правильно будет:
[vba]
Код
iRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
[/vba]

Автор - boa
Дата добавления - 11.06.2018 в 15:14
Kuzmich Дата: Понедельник, 11.06.2018, 15:14 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 379
Репутация: 74 ±
Замечаний: 0% ±

Excel 2003
Цитата
Второй макрос - выдает ошибку

[vba]
Код

Sub iInsertRow()
Dim iRow As Long
  iRow = Cells(Rows.Count, "G").End(xlUp).Row
  Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
Второй макрос - выдает ошибку

[vba]
Код

Sub iInsertRow()
Dim iRow As Long
  iRow = Cells(Rows.Count, "G").End(xlUp).Row
  Range("G" & iRow & ":H" & iRow + 2).Insert Shift:=xlDown
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 11.06.2018 в 15:14
boa Дата: Понедельник, 11.06.2018, 15:19 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 27 ±
Замечаний: 0% ±

2013, 365
Kuzmich, правильно, только +1 забыли. последняя строка уедет ;)


 
Ответить
СообщениеKuzmich, правильно, только +1 забыли. последняя строка уедет ;)

Автор - boa
Дата добавления - 11.06.2018 в 15:19
Kuzmich Дата: Понедельник, 11.06.2018, 15:22 | Сообщение № 13
Группа: Проверенные
Ранг: Обитатель
Сообщений: 379
Репутация: 74 ±
Замечаний: 0% ±

Excel 2003
boa ТС писала
Цитата
на три строки вниз (начиная с последней заполненной строки столбца G) ?
 
Ответить
Сообщениеboa ТС писала
Цитата
на три строки вниз (начиная с последней заполненной строки столбца G) ?

Автор - Kuzmich
Дата добавления - 11.06.2018 в 15:22
ВасилисаЛукьянчикова Дата: Понедельник, 11.06.2018, 15:52 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Теперь все работает. Спасибо за ответы.
 
Ответить
СообщениеТеперь все работает. Спасибо за ответы.

Автор - ВасилисаЛукьянчикова
Дата добавления - 11.06.2018 в 15:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка ячейки со сдвигом вниз - для последней заполненной (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!