Функция найти и заменить

[Aleksandr H.]

Размитое описание нужды.
0124 164 ABS какой ответ?
если же надо брать до пробела, тогда

Sub GetFirstElement()
    Dim cell As Range
    For Each cell In Selection
        cell.NumberFormat = "@"
        cell.Value = Split(cell)(0)
    Next
End Sub

[Serge_Bliznykov]

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

единственное что известно так это то, что эти места начинаются после цифр

тю, так бы сразу и сказали. Это же проще простого:

Option Explicit

Sub ReplaceASV()
    Dim cell As Range, i&, stroka As String
    
    
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
    For Each cell In Selection

        stroka = cell.Value
        i = 0
        Do While i < Len(stroka)
            If IsNumeric(Mid(stroka, i + 1, 1)) = False Then Exit Do
            i = i + 1
        Loop
        stroka = Mid(stroka, 1, i)
        cell.NumberFormat = "@"
        cell.Value = stroka
    Next
    
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
    
End Sub

на тысячах записей работает, конечно, не очень быстро, но, имхо, минуту/другую и подождать можно

[user2017]

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

тю, так бы сразу и сказали. Это же проще простого:

Option Explicit

Sub ReplaceASV()
    Dim cell As Range, i&, stroka As String
    
    
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
    For Each cell In Selection

        stroka = cell.Value
        i = 0
        Do While i < Len(stroka)
            If IsNumeric(Mid(stroka, i + 1, 1)) = False Then Exit Do
            i = i + 1
        Loop
        stroka = Mid(stroka, 1, i)
        cell.NumberFormat = "@"
        cell.Value = stroka
    Next
    
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
    
End Sub

на тысячах записей работает, конечно, не очень быстро, но, имхо, минуту/другую и подождать можно

Порезало половину моих данных, можно усовершенствовать

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

Sub ReplaceASV() Dim cell As Range For Each cell In Selection cell.NumberFormat = "@" cell.Value = Replace(cell.Value, "ABC-1", "") Next End Sub

этот код, добавив помимо "ABC-1" еще с десяток вариантов?

[Aleksandr H.]

Тупо

cell.Value = Replace(cell.Value, "варик1", "")
cell.Value = Replace(cell.Value, "варик2", "")
cell.Value = Replace(cell.Value, "варик3", "")
.....
cell.Value = Replace(cell.Value, "варикN", "")

Не очень тупо, создать массив вариантов и циклом перебирать их и удалять

[Serge_Bliznykov]

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

Порезало половину моих данных, можно усовершенствовать

можно, конечно, усовершенствовать.
приведите пример (лучше выложите xls сюда, на форум) с данными, которые "порезались".

или используйте вариант с множественной заменой, предложенный Александром.

[user2017]

Всем спасибо, сделал в итоге 15 комбинаций, не стал возиться с массивом, пока что все работает)