Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАК СДЕЛАТЬ авто вставку строк / 6 сообщений из 6, страница 1 из 1
01.01.2007, 10:52:14
    #34234403
ANMIKA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КАК СДЕЛАТЬ авто вставку строк
Привет все и с Новым Годом !

Есть 2 файла 1 и 2. В файле А1 стоят данные в строках А1 А2 А3. Мне необходимо скопировать эти данные и вставить в файл 2, но что бы данные стояли в А1 А3 А5, то есть межжду ними вставлялись автоматически строки и сохранить это как шаблон.

Помогите please
спасибо
...
Рейтинг: 0 / 0
01.01.2007, 13:45:59
    #34234441
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КАК СДЕЛАТЬ авто вставку строк
просто формулой чем не подходит?
...
Рейтинг: 0 / 0
01.01.2007, 19:06:56
    #34234540
ANMIKA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КАК СДЕЛАТЬ авто вставку строк
Просто формулой будут на один раз, а необходимо сохранить именно как шаблон.
Спасибо
...
Рейтинг: 0 / 0
01.01.2007, 19:20:31
    #34234542
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КАК СДЕЛАТЬ авто вставку строк
тогда поподробнее напишите в какой момент должно быть копирование, и как задействуется в задаче шаблон
...
Рейтинг: 0 / 0
07.01.2007, 15:34:58
    #34240260
ANMIKA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КАК СДЕЛАТЬ авто вставку строк
Вопрос такой
Получаем файл Exce, в нём стоит приблизительно 500 строк. Необходимо скопировать данные из этого файла и вставить в другой файл, но при этом между каждой строкой необходимо вставить пустую строку.
Вот и всё.
Может это и просто, но я не могу.
Так что помогите
...
Рейтинг: 0 / 0
07.01.2007, 23:02:59
    #34240527
Michael5
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КАК СДЕЛАТЬ авто вставку строк
Предлагаю такой вариант:

выделяем вторую строку, и шагаем вниз, повторяя вставку строки, пока не кончится текст:

Start = 2
While Cells(Start, 1) <> ""
Rows(Start).Select
Selection.Insert Shift:=xlDown
Start = Start + 2
Wend
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАК СДЕЛАТЬ авто вставку строк / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]