Страницы: 1
RSS
Замена символа в ячейках столбца текстом вышестоящей ячейки
 
Здравствуйте Гуры экселя. У меня появилась задачка, думаю не типовая. Исходные данные: есть столбец который после оптического распознования вывел
лишние символы которые необходимо заменить текстом. Поиском и заменой требуется мого времени чтоб привести все в соответствие.
Прошу помощи в написании макроса если конечно эта задачка вообще выполнима.
 
Вячеслав, c доп. столбцом.
Код
=ЕСЛИ(ЛЕВСИМВ(B3;1)=";";ЕСЛИ(B3=";";F2;СЖПРОБЕЛЫ(ПОДСТАВИТЬ(B3;";";"";1)));B3)
Не бойтесь совершенства. Вам его не достичь.
 
Как-то так
Код
Sub Replace_Cimbol()
    Dim Cel As Range, Str$
    Application.ScreenUpdating = False
    For Each Cel In Range("B1", Cells(Rows.Count, 2))
        If Not Cel.Value Like ";*" Then
            Str = Cel.Value
        ElseIf Cel.Value Like ";" Then
            Cel.Value = Str
        ElseIf Cel.Value Like ";*" Then
            Cel.Value = Replace(Cel.Value, ";", "")
            Str = Cel.Value
        End If
    Next
    Application.ScreenUpdating = True
End Sub
 
Ещё вариант.
 
Исчерпывающий ответ. Всем спасибо.
Страницы: 1
Наверх