Вытащить необходимую информацию

@hannu · Регистрация: 08.04.2015

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

Друзья, столкнулся с небольшой сложностью, думал справлюсь стандартными инструментами "Данные"-"Текст по столбцам", получается но криво. Есть ли возможность прибегнув в VBA выгрузить только размерные ряды изделий XS,L,M,S подскажите пожалуйста. примерное колличесвто строк для обработки 5 000 . В графе товар

@Michael99 · 09.03.2016, 17:28

очень много разных вариантов написания размеров, пробуйте через

Visual Basic
1
=ЕСЛИОШИБКА(ПОИСК("XXL";E2);ЕСЛИОШИБКА(ПОИСК("XL";ячейка для поиска); и т.д.)

после всех вариантов через ПСТР вынимайте значения

@hannu · 09.03.2016, 17:44 **[ТС]**

Я вот через поиск пробовал, не всегда корректно.

Добавлено через 14 минут
Так получается что XL и XXL он воспринимает одинаково

@Michael99 · 09.03.2016, 17:54

Сообщение от hannu

Так получается что XL и XXL он воспринимает одинаково

Поэтому я их и расположил в порядке убывания букв, то есть L у Вас будет в самом конце, так же как и S

@hannu · 09.03.2016, 17:56 **[ТС]**

Так все равно когда мы используем функцию ПСТР. Мы вбиваем XL и он выдает XXL и XL

toiai · 09.03.2016, 18:59

Попробуйте отфильтровать с использованием регулярных выражений:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub pr()
    Dim b(), i&
    kr = Array("XS ", "L ", "M ", "S ")
    a = Range(Range("H6"), Range("H6").End(xlDown)).Value
    ReDim b(1 To UBound(a, 1), 1 To 1)
    With CreateObject("VBScript.RegExp")
        .Global = True
        For Each x In a
            For Each y In kr
                If InStr(1, x, y) <> 0 Then
                    .Pattern = "(\.|\s)" & y
                    With .Execute(x)
                        If .Count Then
                            i = i + 1
                            b(i, 1) = x
                            Exit For
                        End If
                    End With
                End If
            Next
        Next
    End With
    Cells(6, 10).Resize(UBound(b, 1), 1) = b
End Sub

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@hannu 0 / 0 / 0 Регистрация: 08.04.2015 Сообщений: 135
	09.03.2016, 17:44 [ТС]
	Я вот через поиск пробовал, не всегда корректно. Добавлено через 14 минут Так получается что XL и XXL он воспринимает одинаково 0

@hannu 0 / 0 / 0 Регистрация: 08.04.2015 Сообщений: 135
	09.03.2016, 17:56 [ТС]
	Так все равно когда мы используем функцию ПСТР. Мы вбиваем XL и он выдает XXL и XL 0

Вытащить необходимую информацию

Решение