Показать полную графическую версию : [решено] Макрос на удаление левого символа +
Alexander_88
29-09-2015, 18:16
Здравствуйте, подскажите пожалуйста макрос который будет удалять самый левый символ + во всех ячейках, в которых он есть. т.е. символ + должен быть именно самым первым (слева) символом в ячейке.. если стоит например 5,6+6,84 то тут он не самый левый и ничего удалять не нужно.
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
Да его добавляет другой макрос)
Спасибо работает :)
Да его добавляет другой макрос) »
Я про то ж. Проще будет попробовать скорректировать тот макрос, нежели пробегать по всем (!) ячейкам использованных диапазонов всех рабочих листов в книге.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.