Перенос текста из первого столбца в другие столбцы
Пользователь
Сообщений: Регистрация: 22.05.2018
04.01.2020 09:50:09
Всех приветствую и поздравляю с наступившим Новым годом!!!
Ребят, помогите пож-та с таком вопросом: нужно перенести текст из первого столбца в другие столбцы. Вот имеется такого рода файл (картинки отчего-то иероглифами отображаются, поэтому даю ссылку):
из него хотелось бы получить такой: Количество строк в файле планируется порядка 10-15 тыс., а количество колонок может доходить до 1000.
Изменено: - 04.01.2020 18:50:14
Поиск одинаковых слов в строке
Пользователь
Сообщений: Регистрация: 22.05.2018
03.12.2019 19:18:55
Всех приветствую!
Ребята, хелп ми плиииизззз:)
Есть файл с одинаковыми словами в названии товара в одной ячейке, необходимо вычленить эти повторяющиеся слова (это могут быть как слова, так и числа) в соседнюю ячейку через точку запятой. Потом оператор проходится по этим позициям и принимает решение, какие именно слова и из какой части необходимо удалить, чтобы получить более менее нормальное название товара без повторений слов. Как это можно реализовать?
Перенос наименования столбца в ячейки
Пользователь
Сообщений: Регистрация: 22.05.2018
16.10.2019 14:40:55
Всем доброго дня!
Ребят, подскажите пож-та, как можно автоматизировать перенос наименований столбцов в ячейки? Суть в том, что есть файл с характеристиками товара для загрузки в базу данных - Фото 1.
Скрытый текст
Нужно автоматом спустить наименование столбца в ячейки в таком формате: Наименование столбца: значение ячейки; Наглядно результат можно увидеть на скрине - Фото 2.
Скрытый текст
Необходимо также учесть, что применять перенос наименования столбца нужно к выделенному диапазону/столбцам. Количество столбцов может быть до 150 штук.
Как это можно организовать? Благодарю за ответы.
Удалить мусор их HTML-тегов, но оставить нужное
Пользователь
Сообщений: Регистрация: 22.05.2018
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>
Мне давали ссылку на Однако с программированием у меня туго, теорию там прочитал, но прописать в этом макросе эти исключения не могу:(
Пример одной позиции в файле прикрепляю. Таких позиций у меня порядка 10 тыс штук.
