PDA

Показать полную графическую версию : [решено] Макрос на удаление левого символа +


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

Iska
29-09-2015, 19:27
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
Да его добавляет другой макрос)
Спасибо работает :)

Iska
29-09-2015, 20:26
Да его добавляет другой макрос) »
Я про то ж. Проще будет попробовать скорректировать тот макрос, нежели пробегать по всем (!) ячейкам использованных диапазонов всех рабочих листов в книге.




© OSzone.net 2001-2012