質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.02%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

VBA 処理速度アップの仕方

Zigsow
Zigsow

総合スコア21

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

1回答

0グッド

1クリップ

377閲覧

投稿2023/02/07 07:33

実現したいこと

エクセルマクロVBAについてです。
AA列に入っている数字(10000)
の時、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~2秒で終わりました。 1~2秒は遅いでしょうか。 あなたの環境ではおよそ何秒かかっているのでしょうか。
Zigsow

2023/02/07 08:05

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

2023/02/07 08:11 編集

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

回答1

3

ベストアンサー

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

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

投稿2023/02/07 08:23

tatsu99

総合スコア4983

ockeghem, TanakaHiroaki, Zigsow👍を押しています

下記のような回答は推奨されていません。

  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

Zigsow

2023/02/07 08:30

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

2023/02/07 08:39

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

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.02%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。