Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

Как заменить 0 в начале ячейки на d.

Автор Борис Спектор, 14.09.2013, 15:32

« назад - далее »

Борис Спектор

Уважаемые форумчани! :)
Подскажите пожалуйста макрос (т.к. строк и столбиков очень много для формулы) заменяющий "0" в начале любой ячейки на "d."
Спасибо!

Борис Спектор

#1
Спасибо SkyPro за помощь. Вопрос закрыт

Sub ss()
Application.EnableEvents = False
Application.ScreenUpdating = False

Dim rCell As Range, i&
    For Each rCell In ActiveSheet.UsedRange
        If rCell.Value Like "0*" Then
            i = Len(rCell.Value) - 1
            rCell.Formula = "d." & Right(rCell.Value, i)
        End If
    Next
       
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Оформляйте код тэгами.
Обсуждалось здесь: http://www.excelworld.ru/forum/10-6212-1