Размножение строк или ячеек

@lyuda_senina · Регистрация: 21.09.2013

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

Здравствуйте!
Моя проблема вот в чем - есть огромная таблица текстовых данных, нужно каждую строку размножить на 100 строк. Вручную делать это очень долго.
Подскажите, пожалуйста, как размножить каждую строку или ячейку на 100 со сдвигом вниз.

@Александр Смит · 21.09.2013, 17:17

Скопируйте Вашу таблицу на "Лист1" и запустите макрос нажатием кнопки.

P.S. Если у Вас больше 10 000 строк - будут проблемы, т.к. Excel не может работать более чем с 1 000 000 строк.

shanemac51 · 21.09.2013, 19:53

а зачем --в чем суть действа
---------
трудно советовать не понимая идеи

@gregid · 13.07.2015, 11:31

Александр Смит, а если надо не 100 а 5 строк или 4? Как редактировать Ваш макрос?

@Vlad999 · 13.07.2015, 11:40

Visual Basic

n = 98

отвечает за к-во строчек.

@gregid · 13.07.2015, 15:08

Vlad999, извините за неграмотность, но где этот код править. Там в архиве лист экселя с кнопкой 100

@Vlad999 · 13.07.2015, 15:19

ПКМ по кнопке - Назначить макрос.
в открывшемся окне выбираете Copy100 и жмете править. Откроется окно с кодом.
или жмете Alt+F11 и в открывшемся окне слева ищите книгу с вашим названием и в модуле будет код.
можно n=98 заменить на

Visual Basic

1	n=Inputbox("Введите количество вставляемых строчек")

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

@Казанский · 13.07.2015, 16:59

gregid, если это не разовая задача, разместите макрос в Личной книге макросов. Если выделение содержит более 1 строки, макрос будет работать с выделением, иначе - со всем листом (принцип такой же, как при поиске-замене).

Visual Basic

Sub CopyN()
Dim n As Long, i As Long, calc, r As Range
  i = Selection.Rows.Count
  n = Val(InputBox("На сколько размножить " & IIf(i > 1, "ВЫДЕЛЕННЫЙ ДИАПАЗОН", _
     "СОДЕРЖИМОЕ ЛИСТА") & "?" & vbLf & "(пусто - отменить)")) - 1
  If n < 1 Then Exit Sub
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    calc = .Calculation: .Calculation = xlCalculationManual
  End With
  Set r = IIf(i > 1, Selection, ActiveSheet.UsedRange)
  For i = r.Row + r.Rows.Count - 1 To r.Row Step -1
    Rows(i).Copy
    Rows(i + 1).Resize(n).Insert Shift:=xlDown
  Next
 
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = calc
  End With
 
End Sub

@lyuda_senina 0 / 0 / 0 Регистрация: 21.09.2013 Сообщений: 2
		1
	Размножение строк или ячеек 21.09.2013, 16:16. Показов 11177. Ответов 7 Метки нет (Все метки) Здравствуйте! Моя проблема вот в чем - есть огромная таблица текстовых данных, нужно каждую строку размножить на 100 строк. Вручную делать это очень долго. Подскажите, пожалуйста, как размножить каждую строку или ячейку на 100 со сдвигом вниз. 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,139 Записей в блоге: 4
	21.09.2013, 19:53	3
	а зачем --в чем суть действа --------- трудно советовать не понимая идеи 0

@gregid 0 / 0 / 0 Регистрация: 13.07.2015 Сообщений: 4
	13.07.2015, 11:31	4
	Александр Смит, а если надо не 100 а 5 строк или 4? Как редактировать Ваш макрос? 0

@gregid 0 / 0 / 0 Регистрация: 13.07.2015 Сообщений: 4
	13.07.2015, 15:08	6
	Vlad999, извините за неграмотность, но где этот код править. Там в архиве лист экселя с кнопкой 100 0

	13.07.2015, 16:59