[решено] Макрос на удаление левого символа +

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - [решено] Макрос на удаление левого символа + (http://forum.oszone.net/showthread.php?t=306036)

Alexander_88

29-09-2015 18:16 2559050

Макрос на удаление левого символа +

Здравствуйте, подскажите пожалуйста макрос который будет удалять самый левый символ + во всех ячейках, в которых он есть. т.е. символ + должен быть именно самым первым (слева) символом в ячейке.. если стоит например 5,6+6,84 то тут он не самый левый и ничего удалять не нужно.

Iska	29-09-2015 19:27 2559090

Alexander_88, проще его не добавлять :).

Попробуйте так:

Скрытый текст

Код:

Sub Sample()

    Dim objWorksheet As Worksheet

    Dim objRange As Range

    

    For Each objWorksheet In ThisWorkbook.Worksheets

        For Each objRange In objWorksheet.UsedRange

            If Left(objRange.Value, 1) = "+" Then

                objRange.Value = Mid(objRange.Value, 2)

            End If

        Next

    Next

End Sub

Alexander_88

29-09-2015 19:54 2559104

Да его добавляет другой макрос)
Спасибо работает :)

Iska	29-09-2015 20:26 2559116

Цитата:

Цитата Alexander_88

Да его добавляет другой макрос) »

Я про то ж. Проще будет попробовать скорректировать тот макрос, нежели пробегать по всем (!) ячейкам использованных диапазонов всех рабочих листов в книге.

Время: 07:55.