Показать сообщение отдельно
Старый 22.04.2012, 23:03   #2 (permalink)
Shmatt
Member
 
Регистрация: 03.04.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 19
По умолчанию

для решения такой задачи в Экселе создают макрос (программа на бейсике)
в меню Сервис/Макрос/Начать запись создай никчемный макрос например
выдели курсором несколько ячеек и останови запись макроса
затем в меню Сервис/Макрос/Макросы Изменить редактируешь макрос
вернее удаляешь, что там внутри и пишешь следующий текст

Sub Макрос1()

For a = 1 To 10 ' цикл перебирает столбики (1 - это номер столбца с первым значением а 10 - последним)
b = Cells(1, a) ' читаем (здесь 1 - это номер строки с первым значением)
c = Cells(2, a) ' читаем (здесь 2 - это номер строки с вторым значением)

Cells(4 + a, 1) = b ' пишем значения в другие ячейки
Cells(4 + a, 2) = c ' 4 - определяет куда поместим перве значение
Next a


End Sub


Устанавливаешь адреса ячеек с твоими данными и нажимаешь кнопку F5 (Выполнить) или меню Run
Програмка, она же макрос, скопирует данные как ты хотел.
Желаю успеха.
Shmatt вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070