Макрос поиска максимального цифрового значения из диапазона данных с комбинированными значениями

ilnur Пользователь Сообщений: 21 Регистрация: 01.01.1970	#1 03.10.2019 19:06:54 Добрый день! Подскажите пожалуйста, как без формул получить отдельное максимальное цифровое значение из подобного диапазона данных: SQ001 SQ007 SQ023 SQ017 SQ123

Пользователь

Сообщений: 1065 Регистрация: 01.01.1970

Anchoret

03.10.2019 19:36:45

Код
Sub aaaa() Dim aa, a&, b# aa = Array("SQ001", "SQ007", "SQ023", "SQ017", "SQ123") For a = 0 To UBound(aa) If CDbl(Mid$(aa(a), 3)) > b Then b = CDbl(Mid$(aa(a), 3)) Next Debug.Print b End Sub

ilnur Пользователь Сообщений: 21 Регистрация: 01.01.1970	#3 03.10.2019 21:10:15 Anchoret,спасибо!!!