Сopy+Paste строк по значению выделенной ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сopy+Paste строк по значению выделенной ячейки (Макросы/Sub)

Time2burn

Дата: Вторник, 07.07.2015, 17:23 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Добрый день, ранее на форуме помогли решить задачу добавления строк по значению в текущей ячейке минус одна строка.
Не хотел снова напрягать, но пытаясь улучшить этот макрос так и не преуспел с какими-либо результатами.

Код макроса на добавление ячеек по значению:
[vba]

Код

Option Explicit
Sub AddRows()
If Val(ActiveCell) > 1 Then ActiveCell.Offset(1).Resize(ActiveCell - 1).EntireRow.Insert
End Sub

[/vba]

Интересует теперь что б вставка происходила не пустых ячеек, а целой строки выделенной ячейки
Понимаю, что код копирования строки и вставки ее ниже:
[vba]

Код

Sub AddCopyRow()
      ActiveCell.EntireRow.Select
      Selection.Copy
      Selection.Insert Shift:=xlDown

[/vba]

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

Сообщение отредактировал Time2burn - Вторник, 07.07.2015, 17:24

Ответить

Manyasha

Дата: Вторник, 07.07.2015, 17:37 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Time2burn, так подойдет?[vba]

Код

Sub AddRows()
     If Val(ActiveCell) > 1 Then
         ActiveCell.Offset(1).Resize(ActiveCell - 1).EntireRow.Insert
         Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + ActiveCell - 1).Value = Rows(ActiveCell.Row).Value
     End If
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Time2burn

Дата: Вторник, 07.07.2015, 18:08 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Да, именно то, что нужно!!!! Спасибо! Плюсую стоя)

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сopy+Paste строк по значению выделенной ячейки (Макросы/Sub)

Страница 1 из 1
1