Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Разделение ячейки с текстом и кодами
 
Добрый день всем. Прошу помощи))). Есть огромная таблица с разными наименованиями в текстовом формате (наименование и код), к сожалению код в названии всегда стоит в разных местах и разным числом символов. У кого есть возможность просмотрите пожалуйста несколько примеров во вложенном файле, заранее спасибо.)))разделить название и код.xlsb (9.13 КБ)                                                                                        
 
=СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР(A2;МИН(ПОИСК({1;2;3;4;5;6;7;8;9;0};A2&1234567890));50);" ";ПОВТОР(" ";50));50))
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A2;D2;))
 
Большое спасибо, кое-что вытягивает)) - уже меньше набирать вручную))
 
Отделить надо группу символов содержащую циферки?
 
Цитата
кое-что вытягивает
Что-то не так?
 
Макросом
Код
Sub uuu()
    Dim a(), b() As String
    Dim i&
    Dim el
    a = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To UBound(a), 1 To 2)
    For i = 1 To UBound(a)
        For Each el In Split(a(i, 1), " ")
            If el Like "*[0-9]*" Then
                b(i, 2) = el
            Else
                b(i, 1) = Join(Array(b(i, 1), el))
            End If
        Next
    Next
    Cells(2, 4).Resize(UBound(b), UBound(b, 2)) = b
End Sub
Изменено: kalbasiatka - 17 Апр 2015 16:42:33 (минус одна строка)
 
Попробуйте, вроде работает (только проверяйте на копии ;) ). Заменяет в выделенном диапазоне при помощи макроса
 
МВТ, ошибку выдаёт
 
kalbasiatka, а диапазон выделили? Я его к Selection привязывал.
P.S. но Ваш вариант с разделением при помощи массива мне нравится :)
Изменено: МВТ - 17 Апр 2015 16:47:18
 
и с выделением тоже )
хотя, может только у меня
 
kalbasiatka, у меня срабатывает. Но Ваш вариант действительно лучше
Страницы: 1
Читают тему (гостей: 1)