[[20240408160955]]　『4万件超の数式置換高速化』（Mr.ダンボール）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

『4万件超の数式置換高速化』（Mr.ダンボール）

4万件超の数式置換を行いたいのですが、
Ctrl+Hの置換だとかなりの時間がかかるので、
高速化する方法がご教示お願いします。

＜使用 Excel：Excel2021、使用 OS：Windows10 ＞

1セル書き換えするたびに再計算されるから、再計算さんを止めるだけが
精一杯では

（無料） 2024/04/08(月) 16:41:32

VBAで下記にようにすればどうでしょう。

数式を置換して、バリアント型の配列に格納して、それをセル範囲のValueに一気に代入したらどうでしょう。

 C1:C10 の数式を置換するコード例

 Public Sub test()
    Dim ary() As Variant
    ReDim ary(1 To 10, 1 To 1)
    Dim i As Long
    For i = 1 To 10
        ary(i, 1) = Replace(Cells(i, "C").Formula, "置換対象", "置換値")
    Next

    Range("C1:C10").Value = ary
 End Sub

（hatena） 2024/04/08(月) 18:51:13

コメント返信：

[ 一覧(最新更新順) ]

[[20240408160955]] 『4万件超の数式置換高速化』（Mr.ダンボール） ページの最後に飛ぶ

[[20240408160955]]　『4万件超の数式置換高速化』（Mr.ダンボール）　ページの最後に飛ぶ