Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Привести значения ячеек к одному шаблону, Нужно удалить нули.
 
#1
13.02.2017 11:47:11
Привет всем.
Очень нужна ваша помощь коллеги. Суть вот в чем: есть значения в столбцах, нужно их привести к одному виду "****/339", но при этом все первые нули нужно удалить. То есть после обработки, значение 00304J преобразится в 304J/339. Я пока только изучаю эксель и макросы. Пример приложил.
Заранее большое спасибо!
 
 
 
#2
13.02.2017 11:51:41
массивная
Код
=ПСТР(A2;МИН(ЕСЛИОШИБКА(ПОИСК({1;2;3;4;5;6;7;8;9};A2);"Ъ"));99)
Лень двигатель прогресса, доказано!!!
 
 
 
#3
13.02.2017 12:00:51
Спасибо.
Только странно как то работает: во многих случаях удаляет не нули, а в некоторых пишет ошибку.  
 
 
 
#4
13.02.2017 12:01:03
макросная
Код
Sub nn()
    mass = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Pattern = "^0*"
    For i = 1 To UBound(mass)
        mass(i, 1) = objRegExp.Replace(mass(i, 1), "")
    Next
    Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row) = mass
End Sub
 
 
 
#5
13.02.2017 12:01:52
Цитата
Сергей написал:
массивная
обращайте внимание на то что вам пишут
Изменено: Сергей - 13.02.2017 12:02:13 (очепятки)
Лень двигатель прогресса, доказано!!!
 
 
 
#6
13.02.2017 12:04:52
Супер. Все заработало. Спасибо большое.  
 
 
 
Страницы: 1
Читают тему
Наверх