2015-04-08 4 views
0

Моя проблема заключается в том, что у меня есть файл excel, где иногда «=» находится в начале ячейки, что делает его формулой для excel. Как я могу найти эти ячейки и удалить «=»?Удалить = из формулы vba

Заранее благодарен!

+0

Значит, вам не нужна формула на листе? –

ответ

0

Это должно работать плавно и удалять все ваши «=» в листе и оставить формулу видимой:

For Each cell In ActiveSheet.UsedRange 
    If Left(cell.Formula, 1) <> "=" Then 

    Else 
     cell.Formula = "'" & Right(cell.Formula, Len(cell.Formula) - 1) 
    End If 
Next cell 
+0

Используйте 'Mid (cell.Formula, 2)' вместо 'Right (.., Len() - 1)'. Функция середины возвращает оставшуюся строку, когда параметр длины опущен. – ja72

1

Вы можете попробовать что-то вроде этого:

For Each c in Sheet1.Range("A1:C5").Cells 
    If Left(c.Formula,1) = "=" Then c.Formula = "'" & c.Formula 
Next 

Примечание: выше код изменяет формулу в текст;)

A1 => '=Bla bla bla 
Смежные вопросы