Копирование и вставка значений

[tae1980]

Задача: на листе большое количество формул, необходимо убрать формулы, оставив их "значение".
Пока решаю задачу через копирование так:

        Cells.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False

Есть иной способ?

[Евгений ГВС]

А почему этот не подхолдит?

[tae1980]

Сообщение от Евгений ГВС

А почему этот не подхолдит?

Кажется громоздким. Уже после написания вопроса проявились несколько слабых мест и код стал больше

        'Превращаем все формулы в текст. Копируем содержание всего листа и вставляем значение.
        Cells.Copy
        Application.DisplayAlerts = False          'Отключем запрос на подтверждение удаления.
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.DisplayAlerts = True
        Application.CutCopyMode = False            'Сбросили выделение.
       
        Range("A1").Select                         'Для удобства.

[SAS888]

Тогда может так:

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

[EducatedFool]

Чтобы заменить формулы значениями только для определённых ячеек, используйте код:

    Set Диапазон = [a3:g34]
    Диапазон.Value = Диапазон.Value

[tae1980]

Сообщение от SAS888

Тогда может так:

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

Спасибо, именно то что нужно!

[tae1980]

Сообщение от EducatedFool

Чтобы заменить формулы значениями только для определённых ячеек, используйте код:

    Set Диапазон = [a3:g34]
    Диапазон.Value = Диапазон.Value

А применительно к теме: http://programmersforum.ru/showthread.php?t=52074, можно присвоить пустые значения? У меня VBA злостно матюкается.

[SAS888]

Удалить только данные (оставив форматирование) из столбца "A", начиная со строки 2 до конца, можно так:

Range([A2], Cells(Rows.Count, "A").End(xlUp)).ClearContents