Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18358 / 76732 ←次へ | 前へ→

【63816】Re:別シートからのデータ検索と挿入
発言  SS  - 09/12/17(木) 13:37 -

引用なし
パスワード
   ▼yumi さん:
>▼ぴかる さん
横から失礼します。
  For I = 1 To 3
    For J = 1 To 数万件
      If Cells(1, I).Value = Sheets("データ").Cells(J, 1).Value Then
        Cells(2, I).Value = Sheets("データ").Cells(J, 2).Value
      End If
    Next
  Next
ですとCells(1, I).Value = Sheets("データ").Cells(J, 1).Valueが一致した後も
For Jが数万件分実行されるため時間がかかります。
      If Cells(1, I).Value = Sheets("データ").Cells(J, 1).Value Then
        Cells(2, I).Value = Sheets("データ").Cells(J, 2).Value
        Exit For ’<===追加
      End If
とすると少し早くなると思います。さらに頻度の高い検索対象のデータを
上部に配置すると効果が大きくなります。

あと、画面表示の更新を一時的に停止する、配列に取り込み処理して一括書き出し
などあると思います。

>
>早速の返信ありがとうございます。
>なるほどですー。
>列の件数などは固定ではなくて変動しそうなので
>そこのloopの部分は頑張って見ますね。
>
>1点だけ分かれば教えてください。
>「データ」のシート方なのですが、検索対象のデータが
>数万件ありまして、nextで回すと想像より時間がかかってしまいました。
>その他のやり方もありますでしょうか。
>
>よろしくお願いします。

0 hits

【63809】別シートからのデータ検索と挿入 yumi 09/12/17(木) 11:17 質問
【63810】Re:別シートからのデータ検索と挿入 ぴかる 09/12/17(木) 11:23 発言
【63811】Re:別シートからのデータ検索と挿入 yumi 09/12/17(木) 11:30 発言
【63812】Re:別シートからのデータ検索と挿入 ぴかる 09/12/17(木) 11:55 発言
【63813】Re:別シートからのデータ検索と挿入 yumi 09/12/17(木) 12:11 発言
【63815】Re:別シートからのデータ検索と挿入 ぴかる 09/12/17(木) 13:27 発言
【63816】Re:別シートからのデータ検索と挿入 SS 09/12/17(木) 13:37 発言
【63818】Re:別シートからのデータ検索と挿入 yumi 09/12/17(木) 13:51 お礼
【63819】Re:別シートからのデータ検索と挿入 ぴかる 09/12/17(木) 13:55 発言
【63820】Re:別シートからのデータ検索と挿入 yumi 09/12/17(木) 14:16 お礼
【63821】Re:別シートからのデータ検索と挿入 Yuki 09/12/17(木) 14:33 発言
【63822】Re:別シートからのデータ検索と挿入 Yuki 09/12/17(木) 14:50 発言
【63823】Re:別シートからのデータ検索と挿入 yumi 09/12/17(木) 15:59 お礼

18358 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free