Есть ли в ячейке формула

[rebroff]

Подскажите, как очистить содержимое диапазона, минуя ячейки
с формулами

[uhm]

"Минуя" - в смысле, не очищая? Напиши вопрос так, чтобы не было двусмысленности, плиз...

[$€rg]

Dim j As Range
For Each j In Range("A1:A2")
If Left(j.Formula, 1) <> "=" Then j.Clear
Next

[KL]

Dim j As Range
For Each j In Range("A1:A2")
If Left(j.Formula, 1) <> "=" Then j.Clear
Next

Все несколько проще и быстрее:

Код: Выделить всё

Sub test()
    On Error Resume Next
    [A1:A10].SpecialCells(xlCellTypeConstants).ClearContents
End Sub

Если конечно ранг не содержит более 8192 несмежных рангов (что маловероятно): http://support.microsoft.com/kb/832293/en-us

[rebroff]

2lapink2000
Пасиба.

[KL]

это же можно делать вручную и также быстро:

- выделяешь весь ранг
- меню Правка-Перейти..., кнопка Выделить, опция Константы, OK
- стирай одним нажатием на клав. DEL