Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как разбить значения в таблицы по условию, если в ячейке данные содержат цифры и буквы
 
#1
08.12.2021 11:03:33
Здравствуйте.
Возможно я неправильно опишу свою задачу. При наборе данных в ячейку таблицы всегда текст идет цифра после буква (пример 7л2с1б). После чего в другой таблице нужно их разделить по букве в этом значении, то-есть , вторая таблица в шапке содержит уже набранные буквы (Л  С  Б), задача цифры вписать под нужной буквой, пример(под буквой Л цифра 7, под С цифра 2 и под Б цифра 1).
очень большая таблица и в ручную перебирать вторую таблицу много времени занимает. Можно ли это как то автоматизировать.
Спасибо.  
 
 
 
#2
08.12.2021 11:53:39
Код
=ЕСЛИОШИБКА(ПСТР($A3;НАЙТИ(G$2;ЕСЛИ(G$2="с";ПОДСТАВИТЬ($A3;"кст";"к т");ЕСЛИ(G$2="е";ПОДСТАВИТЬ($A3;"ер";" р");$A3)))-1;1);"")
 
 
 
#3
08.12.2021 12:01:25
МатросНаЗебре, Спасибо вам. с подставить я не пробовал. Учится еще и учится.
 
 
 
#4
08.12.2021 12:07:16
Еще вариант.
Код
=IFERROR(-LOOKUP(1;-MID($A3;(FIND(M$2;IF(M$2="е";SUBSTITUTE($A3;"ер";" р");$A3))-{1\2\3});{1\2\3}));"")
 
 
 
#5
08.12.2021 12:15:05
memo. Спасибо и вам.
 
 
 
#6
08.12.2021 13:15:13
Примечание.
Пересечение кодировок ("е" и "ер"), приходится заменять кодировку в формуле.

Если кодировки унифицировать, достаточно
=ЕСЛИОШИБКА(--ПСТР($A3;ПОИСК(G$2;$A3)-1;1);)
 
 
 
#7
08.12.2021 13:27:15
Код
=ЕСЛИОШИБКА(ЕСЛИ(--ПСТР(A3;ПОИСК($G$2;A3)-1;1)>0;ПСТР(A3;ПОИСК($G$2;A3)-1;1);"");"")
 
 
 
#8
08.12.2021 14:22:15
Цитата
написал: =ЕСЛИОШИБКА(--ПСТР($A3;ПОИСК(G$2;$A3)-1;1)
Я конечно не силен в формулах Excel, но эта формула даже лучше работает. Все дело в том что из этой части таблицы берется полученный результат, после умножается и делится на другие числа, но так же присутствуют и нулевое  (клетка пустая), и  когда клетка пустая там прописывается (отображается) ошибка #знач., а столбец этот суммирует в конце все данные. так эта ошибка #знач. все ломает. в тех формула я добавил в конце "0" что бы в ячейке если нет ничего то 0, в принципе работает как нужно. А для этой и 0 не понадобился.
Спасибо vikttur.
Буду благодарен, подскажите пожалуйста где можно почитать как это работает поподробнее, если есть такое.
Еще раз всем Спасибо.
 
 
 
#9
08.12.2021 16:03:21
ПОИСК(G$2;$A3) - ищем положение кодировки
ПОИСК()-1 - нам же не нужна кодировка, нужно значение, которое стоит перед кодировкой (сдвигаемся влево на 1 символ)
ПСТР($A3;найденное_положение_символа;1) - извлекаем из значения один символ
--ПСТР() - преобразуем текст (цифру извлекли из текста - она пока считается текстом)
ЕСЛИОШИБКА(ай_не_получилось;0) - на случай, если что-то не так с полученным символом, отображаем ноль.
 
 
 
#10
10.12.2021 12:02:57
Спасибо vikttur. Хорошо когда дословно разъясняют (если это требуется).  
 
 
 
#11
10.12.2021 12:36:25
Цитата
Алексей Устиновский написал:
думаю что файл примером не нужен. подойдет любой вариан
Тогда так:
Код
Sub qqq()
Dim i As Long, Stroka As String, Arr, x As Long
    Stroka = "2000-2010"
    Arr = Split(Stroka, "-")
    ReDim arrout(1 To Arr(1) - Arr(0) + 1, 1 To 1)
    For i = Arr(0) To Arr(1)
        x = x + 1
        arrout(x, 1) = i
    Next
    Range("B2").Resize(x, 1).Value = arrout
End Sub
 
 
 
#12
22.12.2021 12:12:38
Цитата
написал:
Примечание.Пересечение кодировок ("е" и "ер"), приходится заменять кодировку в формуле. Если кодировки унифицировать, достаточно=ЕСЛИОШИБКА(--ПСТР($A3;ПОИСК(G$2;$A3)-1;1)
Здравствуйте. поработав с данной формулой напал на один вариант где формула не распределила значения. Во всех вариантах она работает как надо. но тока не с такими данными - пример ( 10л, 10с, 10кст) таких данных в таблицах мало, но они встречаются.
 
 
 
#13
22.12.2021 12:58:03
Вы даже процитировали решение:
Цитата
кодировки унифицировать
 
 
 
#14
22.12.2021 16:44:14
Я извиняюсь, но не совсем понял вашего ответа.
(6л4с) = с такими наборами значений все работает.
но есть и такой = (10л). вот с ними не выходит.
Если в примере (6л4с) должно получится в разных ячейках  (6  4), то в примере (10л) должно получится в одной ячейки (10).
 
 
 
#15
22.12.2021 16:57:32
Показали бы в файле, а то пока вспомнишь... :)
Да, формула определяет символ (один символ!) перед кодировкой и проверяет, он - цифра или нечто другое.

Решение в лоб, костыль:
=ЕСЛИ(ЕЧИСЛО(--ЛЕВБ(ПСТР(0&$A8;ПОИСК(G$2;0&$A8)-2;2)));
      --ПСТР(0&$A8;ПОИСК(G$2;0&$A8)-2;2);
      ЕСЛИОШИБКА(--ПСТР(0&$A8;ПОИСК(G$2;0&$A8)-1;1);))
 
 
 
#16
22.12.2021 17:28:20
vikttur. Спасибо, проверял работает.
 
 
 
Страницы: 1
Наверх