Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » dsg
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Перенос текста из первого столбца в другие столбцы
 
#
05.01.2020 07:29:20
vikttur, да, название из первого столбца в оставшиеся столбцы с характеристиками.
 
Перейти    
Перенос текста из первого столбца в другие столбцы
 
#
04.01.2020 13:14:21
Максим В., ааа, я почему-то до такого элементарного действия не додумался:)
Благодарю Вас!
 
Перейти    
Перенос текста из первого столбца в другие столбцы
 
#
04.01.2020 09:50:09
Всех приветствую и поздравляю с наступившим Новым годом!!!:)

Ребят, помогите пож-та с таком вопросом: нужно перенести текст из первого столбца в другие столбцы.
Вот имеется такого рода файл (картинки отчего-то иероглифами отображаются, поэтому даю ссылку):
https://yadi.sk/i/rCfYKl1d5XKXaQ
из него хотелось бы получить такой:
https://yadi.sk/i/DI9qSca_tmWykw
Количество строк в файле планируется порядка 10-15 тыс., а количество колонок может доходить до 1000.
Изменено: dsg - 04.01.2020 18:50:14
 
Перейти    
Поиск одинаковых слов в строке
 
#
04.12.2019 07:47:42
БМВ, ocet p, тут самое главное, чтобы данные вышли в отдельную колонку, так сказать обратить внимание человека, что в этом названии есть дублирующиеся слова - оператор это видит и уже самостоятельно проверяет и корректирует название по-правильному, без дублей.

msi2102, оказывается уже было готовое решение, спасибо за ссылку!

БМВ, ocet p и msi2102, благодарю Вас за оперативную и качественную помощь! :D  
 
Перейти    
Поиск одинаковых слов в строке
 
#
03.12.2019 21:07:01
БМВ, понял, файл прикрепляю.
 
Перейти    
Поиск одинаковых слов в строке
 
#
03.12.2019 19:18:55
Всех приветствую!

Ребята, хелп ми плиииизззз:)

Есть файл с одинаковыми словами в названии товара в одной ячейке, необходимо вычленить эти повторяющиеся слова (это могут быть как слова, так и числа) в соседнюю ячейку через точку запятой. Потом оператор проходится по этим позициям и принимает решение, какие именно слова и из какой части необходимо удалить, чтобы получить более менее нормальное название товара без повторений слов.
Как это можно реализовать?
 
Перейти    
Перенос наименования столбца в ячейки
 
#
29.10.2019 18:39:14
Jack Famous, покорнейше Вас благодарю!  :)  
 
Перейти    
Перенос наименования столбца в ячейки
 
#
29.10.2019 18:03:47
Jack Famous, заметил, что на некоторых файлах выходит ошибка, скрин ниже. В чем может быть дело?



 
Изменено: dsg - 29.10.2019 18:04:09
 
Перейти    
Перенос наименования столбца в ячейки
 
#
18.10.2019 10:15:36
Jack Famous, имею ввиду каждый раз буду с благодарностью вспоминать Вас  ;)  
 
Перейти    
Перенос наименования столбца в ячейки
 
#
17.10.2019 18:42:42
Kuzmich, спасибо Вам за подсказку! :idea:
Jack Famous, теперь каждый раз при использовании макроса буду вспоминать Вас! :)

Благодарю за оперативную помощь :excl:  
Изменено: dsg - 17.10.2019 18:43:29
 
Перейти    
Перенос наименования столбца в ячейки
 
#
17.10.2019 17:54:11
Jack Famous, суппер!))))
Работет! Спасибо!

Только вот еще момент - надо знак ";" ставить в конце строки, т.е. например,
Бренд: Exenza;
И будет то что надо:)
Изменено: dsg - 17.10.2019 18:07:37
 
Перейти    
Перенос наименования столбца в ячейки
 
#
16.10.2019 17:15:47
Ребята, столбцы для копирования названий я определяю вручную - выделяю диапазон. Но если нужно можно определить, например, с колонки С и до конца имеющихся столбцов (их может быть и 5 и 15 и 30, вплоть до 100-120).
Пример файла прикрепляю.
 
Перейти    
Перенос наименования столбца в ячейки
 
#
16.10.2019 15:00:33
IKor, да, этот вариант пробовал. Но это нужно делать периодически на  для 100 -120 столбцов занятие становится неувлекательным:(
Хотелось бы автоматизировать этот процесс.
 
Перейти    
Перенос наименования столбца в ячейки
 
#
16.10.2019 14:40:55
Всем доброго дня!

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

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

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

Как это можно организовать?
Благодарю за ответы.
 
Перейти    
Удалить мусор их HTML-тегов, но оставить нужное
 
#
23.05.2018 21:09:51
Сделано!  :)  
 
Перейти    
Удалить мусор их HTML-тегов, но оставить нужное
 
#
23.05.2018 18:59:05
Ура! Получается!!!:)

tolstak, Вы гений! Спасибо Вам большое!!!
 
Перейти    
Удалить мусор их HTML-тегов, но оставить нужное
 
#
23.05.2018 10:46:50
Благодарю тех, кто откликнулся.

Ігор Гончаренко, спасибо Вам. Но я наверное не совсем правильно выразился:( При очистке тегов от мусора нужно заменять теги td  с "мусором" на td "без мусора" с сохранением rowspan и colspan(при наличии).

т.е. сейчас при применении функции для данной строки:
Код
<p>
<table border=1>
<tr>
<td rowspan=2 style=width:115.55pt,border:solid windowtext 1.0pt, mso-border-alt:solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt width=154 valign=top>
<p>Система органного класса</p>
</td>
<td colspan=3 style=width:346.7pt,border:solid windowtext 1.0pt, border-left:none,mso-border-left-alt:solid windowtext .5pt,mso-border-alt: solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt width=462 valign=top rowspan=3>
<p>Частота побочных реакций </p>
</td>
</tr>
<tr style=mso-yfti-irow:1><td style=width:115.55pt,border-top:none,border-left: none,border-bottom:solid windowtext 1.0pt,border-right:solid windowtext 1.0pt, mso-border-top-alt:solid windowtext .5pt,mso-border-left-alt:solid windowtext .5pt, mso-border-alt:solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt width=154 valign=top>
<p>Часто</p>
<p>(1/100 и <,1/10)</p>
</td>
<td style=width:115.55pt,border-top:none,border-left: none,border-bottom:solid windowtext 1.0pt,border-right:solid windowtext 1.0pt, mso-border-top-alt:solid windowtext .5pt,mso-border-left-alt:solid windowtext .5pt, mso-border-alt:solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt width=154 valign=top>
<p>Нечасто</p>
<p>(1/1000 и <,1/100)</p>
....

получается

Код
<td rowspan=2> <td colspan=3 rowspan=3>
Хотя должно получиться так:
Код
<p>
<table>
<tr>
<td rowspan=2>
<p>Система органного класса</p>
</td>
<td colspan=3>
<p>Частота побочных реакций </p>
</td>
</tr>
<tr>
<td>
<p>Часто</p>
<p>(1/100 и <,1/10)</p>
</td>
<td>
<p>Нечасто</p>
<p>(1/1000 и <,1/100)</p>
.....

Андрей VG, Вам тоже большое спасибо за приведенный код, буду разбираться.
 
Перейти    
Удалить мусор их HTML-тегов, но оставить нужное
 
#
22.05.2018 14:17:20
Может есть вариант реализовать это при помощи замен?

Ctrl+H
и после заменить <td *colspan=2*> на  <td colspan=2> и так для каждого rowspan и colspan?
Значения у меня могут меняться от 2 до 13 (у обоих).

Так пробовал, но отчего-то принудительно удаляет все, что находится до тега <td ... colspan=...>

Где же ошибка?
 
Перейти    
Удалить мусор их HTML-тегов, но оставить нужное
 
#
22.05.2018 11:04:03
Нашел частичное решение тут:
https://ru.stackoverflow.com/questions/315050/%D0%9E%D1%87%D0%B8%D1%81%D1%82%D0%B8%D1­%82%D1%8C-%D1%8...

Необходимо правильно прописать выражение:
$pattern = '/<([a-z][a-z0-9]*)++(?:( rowspan="\d+")|(?:[^>]?(?=( rowspan="\d+")?))++)[^>]*?(\/?)>/i';

Но не получается вклинить его в сам макрос.
 
Перейти    
Удалить мусор их HTML-тегов, но оставить нужное
 
#
22.05.2018 10:08:23
Есть макрос, который удаляет все атрибуты в тегах:
Код
Sub ЧисткаHTML()    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.Columns(31).Cells
        cell = HTML_DeleteAttributes(cell)
    Next cell
End Sub
 
Function HTML_DeleteAttributes(ByVal txt$)
    On Error Resume Next
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(<[A-Za-z1-6]+)[^<>]*(>)"
        txt$ = .Replace(txt$, "$1$2")
        .Pattern = ">\s*<"
        txt$ = .Replace(txt$, "><")
    End With
    HTML_DeleteAttributes = txt$
End Function

Однако в моем случае необходимо оставлять значения rowspan и colspan у тега <td>.

Например:
из этого тега <td style=width:115.55pt,border:solid windowtext 1.0pt, mso-border-alt:solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt rowspan=2 width=154 valign=top> после удаления всего лишнего "мусора" должно получиться значение  <td rowspan=2>.

Варианты могут быть такие:
1. в теге td присутствует только rowspan
2. в теге td присутствует только colspan
3. в теге td присутствует  и rowspan и colspan.
Они располагаются внутри тега хаотично, в разных местах - могут быть вначале, середине или конце.  

Например:
<td colspan=3 style=width:115.55pt,border:solid windowtext 1.0pt, mso-border-alt:solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt rowspan=2 width=154 valign=top>.
В этом случае на выходе должно получиться так: <td colspan=3 rowspan=2>

Мне давали ссылку на https://www.planetaexcel.ru/techniques/7/4844/
Однако с программированием у меня туго, теорию там прочитал, но прописать в этом макросе эти исключения не могу:(

Пример одной позиции в файле прикрепляю.
Таких позиций у меня порядка 10 тыс штук.

Буду рад за помощь.
 
Перейти    
Удаление/замена html тегов в ячейках
 
#
22.05.2018 09:40:02
Андрей VG, я понял.  
 
Перейти    
Удаление/замена html тегов в ячейках
 
#
22.05.2018 09:36:22
Забыл прикрепить файл. Пример одной позиции,  в которой надо почистить лишний "мусор" в тегах прикрепляю.
 
Перейти    
Удаление/замена html тегов в ячейках
 
#
22.05.2018 09:06:28
Андрей VG, я думаю что в макросе, который опубликовал выше Игорь, нужно просто добавить исключения, а может прописать еще  одну строку с этими исключениями. И будет понятно по ходу чтения данной темы, как делать исключения для определенных значений при удалении.
Не хотел множить темы, но если уж не ответят - тогда создам новую :)
 
Перейти    
Удаление/замена html тегов в ячейках
 
#
22.05.2018 08:01:48
А как и что в этом макросе прописать, чтоб внутри тегов оставались неудаленными colspan  и rowspan и их значения?

Например:
из этого тега <td style=width:115.55pt,border:solid windowtext 1.0pt, mso-border-alt:solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt rowspan=2 width=154 valign=top> должно остаться <td rowspan=2>.

Причем может быть и такая ситуация, что присутствует и colspan:

<td colspan=3 style=width:115.55pt,border:solid windowtext 1.0pt, mso-border-alt:solid windowtext .5pt,padding:0cm 5.4pt 0cm 5.4pt rowspan=2 width=154 valign=top>.
А на выходе должно получиться так:
<td colspan=3 rowspan=2>

Причем необходимо учесть, что значения могут быть разными - от 2 до 12 (как rowspan, так colspan).
 
Перейти    
Страницы: 1
Наверх