Как автоматически удвоить строки прайса(было 123 нужно 112233) - Microsoft Office Excel

lemberger · 17.09.2008, 09:36

Имеется прайс (скажем 10 или 20 тыс.позиций). Как сделать так что бы каждая строка удвоилась отодвинув следующюю автоматически в целом файле (строки 123 а нужно 112233).
Буду крайне признателен.

Serge_Bliznykov · 17.09.2008, 11:15

проще всего - макросом.

Serge_Bliznykov · 17.09.2008, 11:26

например, вот таким:

Код:

Sub Макрос1()
Dim i&
 i = Cells(Rows.Count, 1).End(xlUp).Row
 While i > 0
  Rows(i).EntireRow.Insert
  Rows(i + 1).EntireRow.Copy Rows(i)
  i = i - 1
 Wend
End Sub

внимание! Сколько раз запустите - столько раз строки продублируются!

17.09.2008, 09:36	#1
lemberger Новичок Джуниор Регистрация: 17.09.2008 Сообщений: 1	Как автоматически удвоить строки прайса(было 123 нужно 112233) Имеется прайс (скажем 10 или 20 тыс.позиций). Как сделать так что бы каждая строка удвоилась отодвинув следующюю автоматически в целом файле (строки 123 а нужно 112233). Буду крайне признателен.

17.09.2008, 11:26	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	например, вот таким: Код: `Sub Макрос1() Dim i& i = Cells(Rows.Count, 1).End(xlUp).Row While i > 0 Rows(i).EntireRow.Insert Rows(i + 1).EntireRow.Copy Rows(i) i = i - 1 Wend End Sub` внимание! Сколько раз запустите - столько раз строки продублируются!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удвоить каждый символ строки, потом перевернуть строку	Didi	Помощь студентам	6	20.05.2008 15:33
Что это было?	дмидми	О форуме и сайтах клуба	2	19.05.2008 00:24
Удвоить каждый из первых пяти цифровых символов и удалить 5 последних латинских букв	gred	Помощь студентам	5	16.05.2008 23:20
Почему не было примьеры?	Simply-Art	О форуме и сайтах клуба	3	10.04.2008 13:24

17.09.2008, 11:15	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	проще всего - макросом.