В ячейках оставить большее значение
Aimod
Дата: Пятница, 08.06.2018, 11:14 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Здравствуйте, уважаемые помогающие! Пожалуйста, подскажите, как оставить в ячейках для ГВС бОльшее из значений в верхней строчке столбца В, а для ЦО бОльшее из значений в нижней строчке столбца В, учитывая, что некоторые ячейки столбца В содержат всего одну строчку, и в них тоже нужно оставить бОльшее из значений...?
Здравствуйте, уважаемые помогающие! Пожалуйста, подскажите, как оставить в ячейках для ГВС бОльшее из значений в верхней строчке столбца В, а для ЦО бОльшее из значений в нижней строчке столбца В, учитывая, что некоторые ячейки столбца В содержат всего одну строчку, и в них тоже нужно оставить бОльшее из значений...? Aimod
К сообщению приложен файл:
6-.xlsx
(26.4 Kb)
Ответить
Сообщение Здравствуйте, уважаемые помогающие! Пожалуйста, подскажите, как оставить в ячейках для ГВС бОльшее из значений в верхней строчке столбца В, а для ЦО бОльшее из значений в нижней строчке столбца В, учитывая, что некоторые ячейки столбца В содержат всего одну строчку, и в них тоже нужно оставить бОльшее из значений...? Автор - Aimod Дата добавления - 08.06.2018 в 11:14
alexa1965
Дата: Пятница, 08.06.2018, 11:50 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 435
Репутация:
65
±
Замечаний:
0% ±
2003> 2019 >2016
А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий?
А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий? alexa1965
Главное не быть балабастиком
Ответить
Сообщение А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий? Автор - alexa1965 Дата добавления - 08.06.2018 в 11:50
sboy
Дата: Пятница, 08.06.2018, 11:56 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Добрый день. Вариант на Power Query
Добрый день. Вариант на Power Query sboy
Яндекс: 410016850021169
Ответить
Сообщение Добрый день. Вариант на Power Query Автор - sboy Дата добавления - 08.06.2018 в 11:56
Aimod
Дата: Пятница, 08.06.2018, 12:06 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий?
Я не знаю, наверное математически.. Макрос бы я точно сохранилsboy , Спасибо! PS: Почему я не могу плюсануть репутацию помогающим? Сайт говорит, что форма заполнена неправильно, а как правильно заполнить? PPS: О-о, спс! " Ураа, заработало!" (с)
А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий?
Я не знаю, наверное математически.. Макрос бы я точно сохранилsboy , Спасибо! PS: Почему я не могу плюсануть репутацию помогающим? Сайт говорит, что форма заполнена неправильно, а как правильно заполнить? PPS: О-о, спс! " Ураа, заработало!" (с)Aimod
Сообщение отредактировал Aimod - Пятница, 08.06.2018, 13:19
Ответить
Сообщение А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий?
Я не знаю, наверное математически.. Макрос бы я точно сохранилsboy , Спасибо! PS: Почему я не могу плюсануть репутацию помогающим? Сайт говорит, что форма заполнена неправильно, а как правильно заполнить? PPS: О-о, спс! " Ураа, заработало!" (с)Автор - Aimod Дата добавления - 08.06.2018 в 12:06
abtextime
Дата: Пятница, 08.06.2018, 12:53 |
Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010
=ЕСЛИ(A1 ="ГВС";MaxS(ЛЕВБ(B1 ;НАЙТИ(СИМВОЛ(10);B1 )-1));ЕСЛИ(ПОДСТАВИТЬ(B1 ;СИМВОЛ(10);"")=B1 ;MaxS(B1 );MaxS(ПРАВБ(B1 ;ДЛСТР(B1 )-НАЙТИ(СИМВОЛ(10);B1 )))))
UDF
Public Function MaxS(S As String ) As Long
Tail = Trim (S)
If Right (Tail, 1 ) = Chr (10 ) Then Tail = Left (Tail, Len (Tail) - 1 )
Tail = Tail & "/"
Do While Tail <> ""
NextNum = CLng (Left (Tail, InStr (Tail, "/" ) - 1 ))
Tail = Replace (Tail, CStr (NextNum) & "/" , "" )
MaxS = Application.WorksheetFunction.Max(NextNum, MaxS)
Loop
End Function
=ЕСЛИ(A1 ="ГВС";MaxS(ЛЕВБ(B1 ;НАЙТИ(СИМВОЛ(10);B1 )-1));ЕСЛИ(ПОДСТАВИТЬ(B1 ;СИМВОЛ(10);"")=B1 ;MaxS(B1 );MaxS(ПРАВБ(B1 ;ДЛСТР(B1 )-НАЙТИ(СИМВОЛ(10);B1 )))))
UDF
Public Function MaxS(S As String ) As Long
Tail = Trim (S)
If Right (Tail, 1 ) = Chr (10 ) Then Tail = Left (Tail, Len (Tail) - 1 )
Tail = Tail & "/"
Do While Tail <> ""
NextNum = CLng (Left (Tail, InStr (Tail, "/" ) - 1 ))
Tail = Replace (Tail, CStr (NextNum) & "/" , "" )
MaxS = Application.WorksheetFunction.Max(NextNum, MaxS)
Loop
End Function
abtextime
К сообщению приложен файл:
6-.xlsm
(34.8 Kb)
Ответить
Сообщение
=ЕСЛИ(A1 ="ГВС";MaxS(ЛЕВБ(B1 ;НАЙТИ(СИМВОЛ(10);B1 )-1));ЕСЛИ(ПОДСТАВИТЬ(B1 ;СИМВОЛ(10);"")=B1 ;MaxS(B1 );MaxS(ПРАВБ(B1 ;ДЛСТР(B1 )-НАЙТИ(СИМВОЛ(10);B1 )))))
UDF [vba]
Public Function MaxS(S As String ) As Long Tail = Тrim(S ) If Right(Tail ; 1) = Chr(10) Then Tail = Left(Tail ; Len(Tail ) - 1) Tail = Tail & "/" Do While Tail <> "" NextNum = CLng(Left(Tail ; InStr(Tail ; "/") - 1)) Tail = Replace(Tail ; CStr(NextNum ) & "/"; "") MaxS = Application.WorksheetFunction.Max(NextNum ; MaxS ) LoopEnd Function
[/vba]Автор - abtextime Дата добавления - 08.06.2018 в 12:53
Aimod
Дата: Пятница, 08.06.2018, 13:17 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
abtextime , спасибо!
Ответить
Сообщение abtextime , спасибо!Автор - Aimod Дата добавления - 08.06.2018 в 13:17
_Boroda_
Дата: Пятница, 08.06.2018, 22:17 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16895
Репутация:
6613
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Просто формулой массива (вводится одновременным нажатием Контрл Шифт Ентер)
=МАКС(ЕСЛИОШИБКА(--(ПСТР(ПОДСТАВИТЬ("/"&ЕСЛИОШИБКА(ЗАМЕНИТЬ(B1 ;ПОИСК(СИМВОЛ(10);B1 )^(A1 ="ГВС");ЕСЛИ(A1 ="ЦО";ПОИСК(СИМВОЛ(10);B1 );99););B1 );"/";ПОВТОР(" ";99));99*СТРОКА($1:$8 );99));))
Просто формулой массива (вводится одновременным нажатием Контрл Шифт Ентер)
=МАКС(ЕСЛИОШИБКА(--(ПСТР(ПОДСТАВИТЬ("/"&ЕСЛИОШИБКА(ЗАМЕНИТЬ(B1 ;ПОИСК(СИМВОЛ(10);B1 )^(A1 ="ГВС");ЕСЛИ(A1 ="ЦО";ПОИСК(СИМВОЛ(10);B1 );99););B1 );"/";ПОВТОР(" ";99));99*СТРОКА($1:$8 );99));))
_Boroda_
К сообщению приложен файл:
6-1.xlsx
(71.9 Kb)
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Просто формулой массива (вводится одновременным нажатием Контрл Шифт Ентер)
=МАКС(ЕСЛИОШИБКА(--(ПСТР(ПОДСТАВИТЬ("/"&ЕСЛИОШИБКА(ЗАМЕНИТЬ(B1 ;ПОИСК(СИМВОЛ(10);B1 )^(A1 ="ГВС");ЕСЛИ(A1 ="ЦО";ПОИСК(СИМВОЛ(10);B1 );99););B1 );"/";ПОВТОР(" ";99));99*СТРОКА($1:$8 );99));))
Автор - _Boroda_ Дата добавления - 08.06.2018 в 22:17