VBA　処理速度アップの仕方

実現したいこと

エクセルマクロVBAについてです。
AA列に入っている数字（１００００）
の時、AB列に「A」を入力するという」簡単なプログラムですが、
15000行以上とかなりのLoop処理をすることしかできず
処理がとても遅くなってしまいます。

できるだけ早い処理でできるよう改善したいです。

前提

ここに質問の内容を詳しく書いてください。
（例）
TypeScriptで●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

VBA
1Sub 自動A入力()
2'
3' 自動A入力 Macro
4' 自動A入力
5'
6
7Dim i As Long
8i = 2
9
10Do While i < 15000
11
12    If Cells(i, 27) = 10000 Then
13    
14        Cells(i, 28) = "A"
15        
16    Else
17    
18        Cells(i, 28) = ""
19        
20    End If
21    i = i + 1
22    Loop
23    
24End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

maisumakun

2023/02/07 07:38

VBAでやらずに、「シートに数式を書いておく」手段のほうが良さそうにも思えるのですが、その方法は使えないのでしょうか？

Zigsow

2023/02/07 07:39

その後のややこしい処理があるため、数式が使えないのでVBAでやろうとしています。

Zuishin

2023/02/07 07:45

この処理を高々 15000 程度でそんなに遅くなりますかね。遅いのだとしたら、二次元配列で作って一括で貼り付ければ瞬時に終わると思います。

tatsu99

2023/02/07 08:03

私の環境で実行すると1～２秒で終わりました。１～２秒は遅いでしょうか。あなたの環境ではおよそ何秒かかっているのでしょうか。

Zigsow

2023/02/07 08:05

他の行、列にもデータが入っているので、容量が大きくなっており、処理速度も遅くなっています。

Zuishin

2023/02/07 08:11 編集

他の行や列の容量は関係ないでしょう。とりあえずその二列を二次元配列に入れ、処理してから戻してみましょう。 Range を二次元配列に代入し、またそれを Range に代入することでそれができます。

回答1件

ベストアンサー

セルを配列に入れて、配列の中で処理し、それを元のセルに戻す方法です。
セルの更新を一気に行うので、その分速くなります。

VBA
1Public Sub 配列転送()
2    Dim arr As Variant
3    Dim i As Long
4    Dim t1 As Double
5    Dim t2 As Double
6    t1 = Timer
7    arr = Range("AA2:AB14999").Value
8    For i = 1 To UBound(arr, 1)
9        If arr(i, 1) = 10000 Then
10            arr(i, 2) = "A"
11        Else
12            arr(i, 2) = ""
13        End If
14    Next
15    Range("AA2:AB14999").Value = arr
16    t2 = Timer
17    MsgBox (t2 - t1 & "秒")
18End Sub
19