Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Olia_student
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
#
24.05.2023 13:37:06
Ігор Гончаренко, Jack Famous, Alien Sphinx, webley, RAN,БМВ
Благодарю Вас! Все работает.
Огромное Вам спасибо!
Изменено: Olia_student - 24.05.2023 13:54:15
 
Перейти    
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
#
24.05.2023 12:02:25
Цитата
написал:
Ну в данном случае достаточно заменить запятую на пробел и тогда последнее слова станет последним после пробела :-)

В следующий раз всеж в Excel файл положите хоть что-нибудь, а то пример сильно скуден ;-)
БМВ Добрый день.
Я понимаю, что можно все делать руками.
Это пример из малой части выгрузки.
Ищу решение более автоматизированее - чем руками.
Вот прилагаю маленький пример (хотя по принципу однотипно), что может быть выгрузках.
Пока нужно только вычленять последние слово в конце строки

Я только познаю макросы и все что может облегчить труд работы в Excel. Поэтому пока.....
Такие вот ..... вопросы!

Благодарна за понимание и помощь, или направление где поискать!
 
Изменено: Olia_student - 24.05.2023 12:24:46
 
Перейти    
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
#
24.05.2023 11:31:39
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5      Function   LastWord(s)        Dim   a        a = Split(s): a = Split(a(UBound(a)),   ","  )        LastWord = a(UBound(a))    End   Function  
 
Ещё вопросик :sceptic:
А если слитно цифры и слово идут, нужно только слово.
Пример:Магазин Красно р. Центральная,№26Соломкино - Соломкино
Изменено: Olia_student - 24.05.2023 11:32:22
 
Перейти    
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
#
24.05.2023 11:19:03
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5      Function   LastWord(s)        Dim   a        a = Split(s): a = Split(a(UBound(a)),   ","  )        LastWord = a(UBound(a))    End   Function  
 
БЛАГОДАРЮ 10000 раз!!!!!! Огромное спасибо!
Изменено: Olia_student - 24.05.2023 11:19:27
 
Перейти    
Выбор только последнего слова (без учитывания пробелов, запятых; цифр; знаков), Последние слово
 
#
24.05.2023 11:01:06
Добрый день!
Знаю много раз поднималась тема нахождение и выбор только последнего слова. (Не могу найти, именно что мне поможет, если направите благодарю!)
Задача: Найти только последние слово (не только после пробела. а именно последние слово)
Пример прилагаю.
 
Перейти    
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
#
27.04.2023 08:51:44
Цитата
написал:
Olia_student, эхе-хе... ну вот чего бы сразу не написать, что конкретно нужно?
Проверяйте.
БЛАГОДАРЮ! БЛАГОДАРЮ! БЛАГОДАРЮ!
 
Перейти    
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
#
26.04.2023 16:21:46
Цитата
написал:
PQ в подмогу
Тут просто другой человек будет собирать, (не знающий excel), поэтому нужна автоматизация.  
 
Перейти    
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
#
26.04.2023 16:19:56
Цитата
написал:
Проверяйте. Обновление происходит автоматически, при активации листа свод. Макрос написан для данных из примера (меня слегка смутило, что итоги нужны только для двух первых позиций, но хозяин - барин).
Огонь  :) , а можно на все ячейки в сводной от ТТ руб до ТТ сторонних уникальных! Не совсем в макросах  :cry:  
Изменено: Olia_student - 26.04.2023 16:20:22
 
Перейти    
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
#
26.04.2023 11:51:54
Цитата
написал:
Добрый день. Решение через макросы устроит?
Да, устроит. Понимаю, что только макросом можно решить эту задачу.  
 
Перейти    
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
#
26.04.2023 11:50:59
Цитата
написал:
Можно попробовать через консолидацию. Новый лист, конечно, автоматом не подтянется, это только макрос. Но, достаточно исправить дату и добавить новый диапазон - быстрее чем формулы писать. поставил 500 строк в диапазон, надеюсь выгрузки не больше.
О, интересно! Благодарю за наводку! Буду использовать!
Только человек который будет выгружать эти данные в excel не очень. Поэтому нужна именно автоматизация данных в свод!
А так решение для сбора для меня кайфное, спасибо большое.
Изменено: Olia_student - 26.04.2023 11:54:00
 
Перейти    
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
#
26.04.2023 09:40:07
Цитата
написал:
пишите данные на 1 лист (формуле СУММ все равно сколько строк данных вы заполните на листе)
фильтруйте по первой колонке, смотрите итоги над таблицей
Добрый день, благодарю за ответ.
Но нужно суммирование и свод только по итого, и если добавляется новый лист автоматом суммировалось.
т.е привязка итого к заголовкам, и отдельно в свод.
Руками можно собрать данные, а возможно сделать автоматически?
 
Перейти    
Автоматическая сборка данных, Автоматическая сборка данных по листам в сводную
 
#
26.04.2023 08:49:48
Добрый день!

Подскажите пожалуйста можно решить данную задачу?
Есть выгрузки по листам, нужно автоматически собирать в свод, только итого.
Плюс если добавляется новая страница так же автоматически суммируется в свод.


P.S. Заранее благодарю за подсказки и помощь.
Изменено: Olia_student - 26.04.2023 09:36:04
 
Перейти    
Поиск и вывод данных результатов по неточному соответствию с подстановкой значения из другой ячейки
 
#
16.05.2022 12:52:09
Цитата
написал:
Olia_student , здравствуйте!
Можно, например так:

Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33      Sub   Compare()    Dim   arr_, arr_compare, item, temp, lstRow   As   Long    Dim   i, j, find_Val   As   Integer  , what, dcount    With   ActiveSheet          lstRow = .Cells(Rows.Count, 1).  End  (xlUp).Row          arr_ = .Range(.Cells(2, 1), .Cells(lstRow, 1))          lstRow = .Cells(Rows.Count, 5).  End  (xlUp).Row          arr_compare = .Range(.Cells(2, 4), .Cells(lstRow, 5))          For   Each   i   In   arr_              temp = Split(i,   ","  )              For   j = LBound(arr_compare, 1)   To   UBound(arr_compare, 1)                  item = Split(arr_compare(j, 1),   " "  )                  For   Each   what   In   item                      find_Val = search_item_in_1d_array(temp, what)                      dcount = dcount + find_Val                  Next   what                  If   dcount > 4   Then                      .Cells(j + 1, 1).Interior.Color = vbYellow                      .Cells(j + 1, 2) = arr_compare(j, 2)                      .Cells(j + 1, 4).Interior.Color = vbYellow                  End   If                  dcount = 0              Next   j          Next   i    End   With    End   Sub    Function   search_item_in_1d_array(arr, what)   As   Integer    Dim   i, item          For   Each   i   In   arr              If   InStr(LCase(i), LCase(what))   Then   search_item_in_1d_array = 1:   Exit   Function          Next   i    search_item_in_1d_array = 0    End   Function  
  Но нужно еще проверить точноть  . Тестируйте!
Благодарю.
 
Перейти    
Поиск и вывод данных результатов по неточному соответствию с подстановкой значения из другой ячейки
 
#
10.05.2022 17:10:24
Добрый день!

Подскажите какими функциями можно воспользоваться?
Требуется найти  значения в ячейках A в просматриваемом массиве D2:D5 и в случае совпадения подставить значение ячейки из столбца E.
и
в просматриваемом массиве A2:A5 поиск и просмотр массива D2:D5 на совпадения и вывод значения равно.

P.S Если есть решение скиньте плиз ссылочку.
P.S2 Спасибо заранее.
 
Перейти    
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
#
27.04.2022 14:34:56
Цитата
написал:
_Boroda_, А если номер с нолями впереди "Агроторг ООО Безенчук пгт, Советская ул, 26 №09654 п"
Ещё вариант
Код
    [URL=#]?[/URL]       1      =ПСТР(ПРАВСИМВ(A1;ДЛСТР(A1)-ПОИСК(  "№"  ;A1));ПОИСКПОЗ(1;--ЕЧИСЛО(--ПСТР( ПРАВСИМВ(A1;ДЛСТР(A1)-ПОИСК(  "№"  ;A1));СТРОКА($1:$100);1));0);СУММ(--ЕЧИСЛО(--ПСТР( ПРАВСИМВ(A1;ДЛСТР(A1)-ПОИСК(  "№"  ;A1));СТРОКА($1:$100);1))))  
 
Хм интересно. Беру на заметку. Благодарю.
 
Перейти    
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
#
27.04.2022 12:29:28
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12      =ПСТР(A1;НАЙТИ(  "№"  ;A1);МАКС(    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;0;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;0;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;1;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;1;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;2;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;2;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;3;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;3;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;4;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;4;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;5;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;5;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;6;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;6;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;7;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;7;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;8;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;8;"  "))));0);    ЕСЛИОШИБКА(ПОИСК(  "\";ПОДСТАВИТЬ(A1;9;"  \  ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;9;"  "))));0);    )-НАЙТИ(  "№"  ;A1)+1)  
 
ОГРОМНОЕ СПАСИБО!
 
Перейти    
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
#
27.04.2022 12:14:03
Цитата
написал:
Чего бы сразу об этом не писать?  И в моем файле - формула.
Огромное спасибо. Формула Огонь)))
Вы супер.
Изменено: Olia_student - 27.04.2022 12:28:34
 
Перейти    
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
#
27.04.2022 11:57:28
Цитата
написал:
Добрый.
Можно пользовательской функцией
    Скрытый текст        
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7      Function   ExtrNum(T   As   Range)          Dim   objRE   As   Object          If   T.Cells.Count > 1   Then   Exit   Function          Set   objRE = CreateObject(  "VBScript.RegExp"  )          objRE.Pattern =   "¹\d+"          ExtrNum = objRE.Execute(T).Item(0)    End   Function  
 
Пример использования - в файле.
Благодарю. Мне бы формулу.
 
Перейти    
Поиск в таблице и вывод, Поиск и вывод только номера из данных
 
#
27.04.2022 11:38:39
Добрый день.
Подскажите пожалуйста есть таблица с данными, как можно вытащить только номер из данных?
Или отправьте где уже это решение было.
Заранее спасибо.
Изменено: Olia_student - 27.04.2022 11:51:30
 
Перейти    
Сделать выборку по последнем значениям в строках
 
#
07.02.2022 17:13:59
;) это просто пример, а так да-согласна :D  
 
Перейти    
Сделать выборку по последнем значениям в строках
 
#
07.02.2022 14:26:04
Благодарю!
 
Перейти    
Сделать выборку по последнем значениям в строках
 
#
07.02.2022 14:10:55
Добрый день, подскажите пожалуйста,
есть таблица данные/массив, нужно вынести отдельно определенные значения. Сделать выборку по последнем значениям в строках
(Если есть уже где это было, направьте пожалуйста)
Напрмер:
445047,Самарская обл.,г.Оренбург Бульвар Рябиновый,8 МД"Рябиновый" - найти нужно Рябиновый, итд. Таких значение много и они все разные.
 
Перейти    
Сопоставить две таблицы с разными значениями и данными (контрагенты и товары)
 
#
29.07.2021 08:57:58
Добрый день, подскажите пожалуйста, как можно свести в сводную, две таблицы с разными значениями и данными.
Есть 1 таблица куда, из 2 таблицы нужно найти контрагентов (данные разные), и товар (данные разные). В 1 таблице контрагент и товар разбит по столбцам. Во 2 таблице, контрагент и товар идут в одном столбце.
Таблицы с более 100 000 строк.
 
Перейти    
Поиск и сопоставление из двух таблиц, с разными данными и значениями., Сопоставление из двух таблиц, разные данные и значения.
 
#
26.07.2021 11:44:01
Цитата
msi2102 написал:
Olia_student,  Вам     СЮДА    , особенно п.2.3
А п.2.4 точно не нарушили:   2.4.     Не прикладывайте файлы-примеры с персональными данными, конфиденциальной информацией, коммерческой или государственной тайной! Яндекс и Google не спят - проиндексируют ваши данные и привет - они попадут в открытый доступ. И даже удаление темы потом не поможет.   В Вашем файле точно нет персональных данных?
Могу посоветовать Fuzzy Lookup, почитайте про неё  ЗДЕСЬ
Точно. Это просто пример. Таких данных на миллион строк.
 
Перейти    
Поиск и сопоставление из двух таблиц, с разными данными и значениями., Сопоставление из двух таблиц, разные данные и значения.
 
#
26.07.2021 10:39:35
1
Изменено: Olia_student - 26.07.2021 14:57:55
 
Перейти    
Суммирование по цвету ячеек, Счет если цветная ячейка
 
#
24.01.2020 16:36:47
Mershik,Благодарю.
 
Перейти    
Суммирование по цвету ячеек, Счет если цветная ячейка
 
#
24.01.2020 16:14:14
Добрый день!

Подскажите пожалуйста, как можно посчитать (сумму) ячеек, если они цветные?


P.S. Благодарю заранее...
 
Перейти    
Поиск значения, если при условии это значение равно или больше.
 
#
21.10.2019 09:10:16
Mershik, Благодарю. Всё работает.
 
Перейти    
Поиск значения, если при условии это значение равно или больше.
 
#
20.10.2019 19:02:41
Доброго время суток всем!) Помогите пожалуйста, как нужно сделать в данной ситуации)). В "ИТОГИ" нужно вставить значение из листа "ВСЕ" при условии, если Общий т.о. (А2) сравнивает из "ВСЕ"продажи от 0 допустим до 999 9999,00 вставляет если равно т.о. то допустимые потери, % такой то. итд.
Изменено: Olia_student - 20.10.2019 19:03:34
 
Перейти    
Результат в зависимости от значений трех ячеек, Сравнение
 
#
12.09.2019 18:35:29
bigorq, благодарю. Работает))

vikttur, данные могут меняться. Суть в том, чтобы поставить сравневая если F2(конкуренты) и D2 (цена (Б) положительное число то пусто,  если отрицательное между F2(конкуренты) и D2 (цена (Б)) то F2 (конкуренты) минус 1.
И так же если F2(конкуренты) - С2(Цена пр.) больше 10 то пусто, если F2(конкуренты) - С2(Цена пр.) меньше 10 то F2 (конкуренты) минус 1.  
 
Перейти    
Страницы: 1 2 3 След.
Наверх