任意のセルを選択(飛び地あり)→数式の入っているセル全て値貼り付けしたくて作成しました
動くのですが100万を超えるデータで動かすと1分以上かかってしまいます
2次元配列?を使えば高速化できますか
配列は使ったことがなく説明を読んでも難しく混乱していしまいました
よろしくお願いします

Dim Sc As Range

Application.Calculation = xlManual
 
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
 
For Each Sc In Selection
    Sc.Value = Sc.Value
Next Sc