Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление наименьших числовых значений в ячейке
 
#1
06.04.2020 23:23:24
Доброй ночи)
Нужна помощь с макросом.
В ячейках есть числовые значения такого вида 1000/900 или 70/80/90
Нужен макрос работающий по выделенному диапазону который оставлял бы в ячейке наибольшее значение

1000/900 будет 1000
1800/2000 будет 2000
70/80/90 будет 90
 
 
 
#2
06.04.2020 23:49:20
Код
Sub cellmax()
    For Each cell In Selection
        If Not cell = "" Then
            s = Split(cell, "/")
            m = 0
            For i = 0 To UBound(s)
                n = CInt(s(i))
                If n > m Then m = n
            Next
            cell.Value = m
        End If
    Next
End Sub
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#3
06.04.2020 23:51:53
buchlotnik, Спасибо огромное!
 
 
 
#4
07.04.2020 00:01:13
а я уже собрался в каждой ячейке символы перебирать, а про split ваще забыл! buchlotnik, спасибо!
 
 
 
Страницы: 1
Наверх