Как заменить все lookup на значения?

[cerberochek]

Добрый день Уважаемые!

У меня возник к Вам вопрос:
есть у меня книга с тремя листами, на каждом листе идут вперемешку формулы lookup-ов и сумм. Собственно вопрос в том, как с помощью макроса пройти по всей книге и все lookup заменить на значения, не трогая при этом формулы сумм.

К сожалению не могу выложить свой пример, тк политика безопасности не позволяет загружать файл в инет.

Спасибо за Ваше время!

[Hugo121]

Option Explicit

Sub tt()
Dim sh As Worksheet, cc As Range

For Each sh In Worksheets
For Each cc In sh.UsedRange.Cells
If InStr(cc.Formula, "LOOKUP") > 0 Then cc.Value = cc.Value 'MsgBox cc.Address
Next
Next

End Sub

Но так заменятся на значения ВСЕ формулы, содержащие LOOKUP. Если содержащие внутри нужно оставить - анализируйте первые символы формулы.
Можно проверить работу:

If Left(cc.Formula, 9) = "=VLOOKUP(" Then MsgBox cc.Address

[cerberochek]

Спасибо за Ваш ответ. Я вот только хочу понять, то есть получается что макрос смотрит в каждую ячейку листа? И еще один вопрос: что значит Option Explicit?

[Hugo121]

Да, в каждую, только не всего листа, а заполненной области... Недоработка, можно пройтись только по ячейкам с формулами, но я сейчас наизусть не помню, какие там SpecialCells...
Option Explicit заставляет объявить все переменные, тем самым оберегает от ошибок типа а<>a.

Нашёл:

On Error Resume Next
For Each sh In Worksheets
For Each cc In sh.UsedRange.SpecialCells(xlCellTypeFormulas)

On Error Resume Next потому, что если таких ячеек нет - будет ошибка.

[cerberochek]

Аааа, теперь я понял) Все работает, Большое Спасибо!