Удалить формулу, кроме определенного диапазона

Question

Я нашел скрипт, который удаляет формулы из всех листов в моем файле и оставляет значения и форматирование.Я хотел бы добавить некоторый код, который позволяет мне сохранять некоторую формулу в определенных вкладках + диапазонах (я мог бы хотеть сохранить формулы в нескольких вкладках и диапазонах, поэтому, пожалуйста, встроите это в решение или покажите, как я мог бы добавить другой диапазон).

Sub Saveasvalue()
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

Answer 1

предположим, что вы хотите выйти из диапазона B2: B8

Попробуйте пожалуйста этот макрос

Option Explicit

Sub keep_formula_In_Spesific_range()
 Dim Cel As Range
  For Each Cel In Sheets("sheet1").UsedRange. _
   SpecialCells(xlCellTypeFormulas, 23)
    If Intersect(Cel, Range("B2:B8")) Is Nothing Then
      If Cel.HasFormula Then
       Cel = Cel.Value
      End If
    End If
 Next Cel
End Sub

введите описание изображения здесь