Вставить несмежные формулы - только значения

Question

Имеется ли код VBA, который позволит мне искать все ячейки, содержащие формулы, копировать их и вставлять только их значения?

Я пробовал F5, Специальные, Формулы. В этот момент он позволит мне скопировать все несмежные ячейки, но я получаю сообщение о том, что

, это действие не будет работать при множественном выборе

, когда я попробуйте вставить только их значения.

РЕДАКТИРОВАТЬ: Мой оригинальный вопрос был ужасен ... Я специально пытаюсь искать только формулы Bi zNet. Они будут содержать текст, такой как YTDENDBAL, YTDENDBALBU, MTDEND, MT DNET и др. c. Любые другие общие формулы Excel должны остаться. Когда мне нужно сохранить документ и отправить его по электронной почте кому-то, у кого нет Bi zNet, формулы не работают. Поэтому мне нужно скопировать и вставить только их значения.

Еще раз спасибо.

Answer 1

Что-то вроде этого должно сделать это:

    Dim MyTargetFunctions as Variant
    MyTargetFunctions = Array("YTDENDBAL", "MTDEND", "MTDNET")
    Dim MyCell As range
    For Each MyCell In ActiveSheet.UsedRange
        If MyCell.HasFormula Then
            Dim txt As Variant
            For Each txt In TargetFunctions
                If InStr(1, MyCell.Formula, txt) <> 0 Then
                    MyCell.Formula = MyCell.value
                    Exit For
                End If
            Next txt
        End If
    Next MyCell