Удалить лишнее из текста по условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удалить лишнее из текста по условию (Макросы/Sub)

Gjlhzl

Дата: Вторник, 14.11.2023, 15:44 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Макросом удаляю из текста лишнее..
[vba]

Код

Sub Удалить-лишнее()
    With ActiveSheet
        For Each cl In Intersect(.Columns(2), .UsedRange)
            str_tmp$ = cl.Value
            cl.Value = Mid(str_tmp, InStr(1, str_tmp, " ") + 1)
        Next
    End With
End Sub

[/vba]
удаляет из текста все до первого пробела....когда текст начинается с "числа-1,2,3 и тд" - 1/ааа/а/3/ Пример .... оставляет "Пример", но попадаются строки где
текст начинается со слова ... удаляет тоже до первого пробела то есть первое слово тоже удаляется....
нужно прикрутить условие к макросу - если значение начинается с текста то не удаляет ничего, если с числа то удаляет все до первого пробела

К сообщению приложен файл: kniga1.xlsb (19.8 Kb)

Ответить

Nic70y

Дата: Вторник, 14.11.2023, 16:24 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8984

Репутация: 2359 ±

Замечаний: 0% ±

Excel 2010

почему "то что нужно"
5 ВД-АК-034,
а не 5 ГРУНТОВКА ВД-АК-034?

вдруг правильно
[vba]

Код

Sub Удалить_лишнее_в_наименованиях_материалов()
    With ActiveSheet
        For Each cl In Intersect(.Columns(2), .UsedRange)
            str_tmp$ = cl.Value
            If IsNumeric(Left(str_tmp$, 1)) Then
                cl.Value = Mid(str_tmp, InStr(1, str_tmp, " ") + 1)
            End If
        Next
    End With
End Sub

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 14.11.2023, 16:29

Ответить

Gjlhzl

Дата: Вторник, 14.11.2023, 16:48 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, да извиняюсь ...спутал в примере
ща проверю...уверен что все нормуль -Спасибо!

Ответить

Удалить лишнее из текста по условию (Макросы/Sub)

Страница 1 из 1
1