Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос наименования столбца в ячейки
 
#1
16.10.2019 14:40:55
Всем доброго дня!

Ребят, подскажите пож-та, как можно автоматизировать перенос наименований столбцов в ячейки?
Суть в том, что есть файл с характеристиками товара для загрузки в базу данных - Фото 1.
Скрытый текст

Нужно автоматом спустить наименование столбца в ячейки в таком формате:
Наименование столбца: значение ячейки;
Наглядно результат можно увидеть на скрине - Фото 2.
Скрытый текст

Необходимо также учесть, что применять перенос наименования столбца нужно к выделенному диапазону/столбцам.
Количество столбцов может быть до 150 штук.

Как это можно организовать?
Благодарю за ответы.
 
 
 
#2
16.10.2019 14:46:13
Можно сформировать отдельные вспомогательные столбцы с формулой вида:
Код
=C$1&": "&C2
Растянуть их по всем нужным строкам, а затем скопировать новые ячейки на старое место и вставить_как_значение
 
 
 
#3
16.10.2019 15:00:33
IKor, да, этот вариант пробовал. Но это нужно делать периодически на  для 100 -120 столбцов занятие становится неувлекательным:(
Хотелось бы автоматизировать этот процесс.
 
 
 
#4
16.10.2019 15:05:10
dsg, а как определить для каких столбцов нужно дублировать имя столбца а для каких нет? Думаю, что через PQ эту задачу можно решить. Приложите пример.
 
 
 
#5
16.10.2019 15:51:01
Цитата
dsg: это нужно делать периодически на  для 100 -120 столбцов
что-то мне подсказывает, что при таких объёмах подход неправильный, однако автоматизировать можно.
Как определять столбцы для копирования названия?
Изменено: Jack Famous - 16.10.2019 15:51:13
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#6
16.10.2019 17:15:47
Ребята, столбцы для копирования названий я определяю вручную - выделяю диапазон. Но если нужно можно определить, например, с колонки С и до конца имеющихся столбцов (их может быть и 5 и 15 и 30, вплоть до 100-120).
Пример файла прикрепляю.
 
 
 
#7
17.10.2019 15:22:59
dsg, если ещё нужно…
Процедура
Изменено: Jack Famous - 17.10.2019 15:25:35
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#8
17.10.2019 17:54:11
Jack Famous, суппер!))))
Работет! Спасибо!

Только вот еще момент - надо знак ";" ставить в конце строки, т.е. например,
Бренд: Exenza;
И будет то что надо:)
Изменено: dsg - 17.10.2019 18:07:37
 
 
 
#9
17.10.2019 18:15:45
Код
If Len(arr(r, c)) Then arr(r, c) = txtHead & ": " & arr(r, c) & ";"
 
 
 
#10
17.10.2019 18:42:42
Kuzmich, спасибо Вам за подсказку! :idea:
Jack Famous, теперь каждый раз при использовании макроса буду вспоминать Вас! :)

Благодарю за оперативную помощь :excl:  
Изменено: dsg - 17.10.2019 18:43:29
 
 
 
#11
18.10.2019 10:02:45
Цитата
dsg: буду вспоминать Вас
"не злым тихим словом"  :D пользуйтесь на здоровье  ;)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#12
18.10.2019 10:15:36
Jack Famous, имею ввиду каждый раз буду с благодарностью вспоминать Вас  ;)  
 
 
 
#13
29.10.2019 18:03:47
Jack Famous, заметил, что на некоторых файлах выходит ошибка, скрин ниже. В чем может быть дело?



 
Изменено: dsg - 29.10.2019 18:04:09
 
 
 
#14
29.10.2019 18:18:04
dsg,
Добавил проверку в строку кода №9 + учёл ответ в посту #9
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#15
29.10.2019 18:39:14
Jack Famous, покорнейше Вас благодарю!  :)  
 
 
 
Страницы: 1
Наверх