VBA 処理速度アップの仕方

Question

実現したいこと

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

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

前提

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

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

エラーメッセージ

該当のソースコード

Sub 自動A入力()
'
' 自動A入力 Macro
' 自動A入力
'

Dim i As Long
i = 2

Do While i < 15000

    If Cells(i, 27) = 10000 Then
    
        Cells(i, 28) = "A"
        
    Else
    
        Cells(i, 28) = ""
        
    End If
    i = i + 1
    Loop
    
End Sub

試したこと

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

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

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

Comments

[maisumakun]

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

[Zigsow]

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

[Zuishin]

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

[tatsu99]

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

[Zigsow]

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

[Zuishin]

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

Answer 1

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

Public Sub 配列転送()
    Dim arr As Variant
    Dim i As Long
    Dim t1 As Double
    Dim t2 As Double
    t1 = Timer
    arr = Range("AA2:AB14999").Value
    For i = 1 To UBound(arr, 1)
        If arr(i, 1) = 10000 Then
            arr(i, 2) = "A"
        Else
            arr(i, 2) = ""
        End If
    Next
    Range("AA2:AB14999").Value = arr
    t2 = Timer
    MsgBox (t2 - t1 & "秒")
End Sub

Comments

[Zigsow]

誠にありがとうございます。
まさに欲しかったコード、情報でした。感謝申し上げます。

[Zuishin]

なるほど、「代入」が伝わらないとは流石に気づけない。