以下のコードを使用して、シート内のすべての数式に対して何かを行います。条件を追加して、一致するセルに対して同じことを行うことはできますか?
数式 AND (列 K OR は行 55 にあります)?
For Each ran In srcWbk.Sheets("BSC").Cells.SpecialCells(xlCellTypeFormulas)
trgtWbk.Sheets("BSC").Range(ran.Address).Formula = srcWbk.Sheets("BSC").Range(ran.Address).Formula
Next ran