Разнести текст по разным строкам и нескольким столбцам с несколькими критериями

@hid4msc · Регистрация: 05.06.2023

Author24 — интернет-сервис помощи студентам

Добрый день.

Имеется один столбец со сплошным текстом.
Необходимо разнести текст на разные строки и столбцы автоматически.

Есть закономерности по которым можно разделить
1) две запятые (затем число которое нужно отнести в соседний столбец)
2) пробел после числа (всё что дальше это следующая строка)

Пример из файла (во вложении)
текст:
Цветная сетевая видеокамера с функцией день-ночь,,56 Мегапиксельный варифокальный объектив с АР Д, 1,3", f=2,2-6MM,,56 Термокожух, полезные внутренние размеры 90x70x260 мм,,36 ПО Сервера управления Сцрга- УМ,,1 Модуль ГИС Планы Ciipra-GIS-Bas,,1 ПО Администратор Cupra- VM-ADM,,1 ПО Мониторинг (до 5 серверов) Сирга-Моп-б,,1 Шасси коммутатора Catalyst Cchassis+Fan Tray+Sup2T +Sup2T;,,1 Модуль Cat 6k 80G Sys Daughter Board DFC4E WS-F6K-DFC4-E* (модуль расширения),,2

Необходимо чтобы получилось:
строка 1, столбец A1 наименование: "Цветная сетевая видеокамера с функцией день-ночь"
строка 1, столбец A2 количество: "56"
строка 2, столбец B1 наименование: "Мегапиксельный варифокальный объектив с АР Д, 1,3", f=2,2-6MM"
строка 2, столбец B2 количество: "56"
строка 3, столбец С1 наименование: "Термокожух, полезные внутренние размеры 90x70x260 мм"
строка 3, столбец С2 количество: "36"
и т.д.

Подскажите куда копать, может кто поможет даже..

@Narimanych · 05.06.2023, 15:05

hid4msc, hid4msc,

Для прикрепленного файла запустите :

Visual Basic

Sub MMM()
arr = Split([a2].Value, ",,")
With CreateObject("VBScript.RegExp")
.Global = "True"
.Pattern = "\d+ "
    For i = LBound(arr) To UBound(arr) - 1
            If .Test(arr(i)) Then
                Cells(i + 5, 1).Value = Trim(.Replace(arr(i), ""))
                 Cells(i + 5, 2).Value = .Execute(arr(i)).Item(0)
            Else
                Cells(i + 5, 1).Value = Trim(arr(i))
            End If
    Next
End With
 
End Sub

	05.06.2023, 15:05