>  > 【車種専用設計】タホ サバーバン フロアライナーセット ウェザーテック/WeatherTech  グレー 3PC '07y~'14y【アメ車パーツ】

【車種専用設計】タホ サバーバン フロアライナーセット ウェザーテック/WeatherTech  グレー 3PC '07y~'14y【アメ車パーツ】

数万行を超えるデータを処理していく場合は、そのデータを一旦配列に入れて、配列の中で処理してからシート上に戻す…というテクニックが極めて有効です。

 

■データを一旦配列に入れるとは

 

例えば DUNLOP ダンロップ エナセーブ プレミアム ENASAVE PREMIUM サマータイヤ 185/65R15 MANARAY FINALMIND ファイナルマインド GR-NEX ホイールセット 4本 15インチ 15 X 6 +45 5穴 114.3、シートのA列とB列に数字が2行目から50万行目まで入っているとします。リスティング広告のログデータなどではこのような大きなデータはざらにあります。2行目から順に、A列とB列の数字を掛け算した値をC列に入れる場合 オリジナル フロアマット エコノミー TOYOTA トヨタ カローラ フィルダー (ワゴン) (2WD/AT) 年式 H24/5~H27/3 [カローラ 16] 車種別 カーマット 床 車、通常であれば次のようなプロシージャになりますね。

 

Sub sample()

    Application.ScreenUpdating = False

    Dim i As Long

    For i = 2 To 50000

        Cells(i, 3) = Cells(i, 1) * Cells(i, 2)

    Next

End Sub

 

この処理の所要時間は、状況によって変わりますが8秒ほどかかります。

 

これを次のように 555 GOLD (ゴーゴーゴー ゴールド) ラックエンド ニッサン ブルーバード RNU12 (4WD) 1987/9~1991用、シート上のデータを一旦配列に入れて、その中で処理してシートに戻すことでその所要時間は1秒足らずに短縮されます。

 

Sub sample()

    Application.ScreenUpdating = False

    Dim i As Long

    Dim Table As Variant

    Table = Range("A1:C50000")

    For i = 2 To 50000

        Table(i, 3) = Table(i, 1) * Table(i, 2)

    Next

    Range("A1:C50000") = Table

End Sub

 

このプロシージャを理解する最大のポイントは5行目、

 

Table = Range("A1:C50000")

 

 この処理です。

一つ前の行でTableという変数をでVariant型、つまり何でも入る型で宣言しています。

この変数にRange("A1:C50000")というセル範囲を入れると 【新品】【 スタッドレス タイヤ】【小・中型トラック用タイヤ】【チューブレスタイプ】195/65R16 106/104L ダンロップ SP055、変数Tableはタテ5万行、ヨコ3列という配列になるのです。

目には見えませんからイメージしずらいですが ディクセル ブレーキローター PD(プレーンディスク) フロント左右セット ムーヴ L175S 3818015 取付セット DIXCEL ディスクローター ブレーキディスク【店頭受取対応商品】、シート上で見えてるセル 、データの状態そのままをイメージします。

 そして、配列の中の各部屋(シート上で言うセルに該当)はそれぞれ、Table(1,2)などのように指定することができます。つまり[Table = Range("A1:C50000")]という処理をした場合、

【車種専用設計】タホ サバーバン フロアライナーセット ウェザーテック/WeatherTech  グレー 3PC '07y~'14y【アメ車パーツ】,[#tong##]

 タホ サバーバン フロアライナーセット ウェザーテック/WeatherTech  グレー 3PC '07y~'14y本国アメリカでの知名度が絶大なウエザーテック社製品です!!中国メーカー等のラバーマットの様にサイズ別の汎用ではなく、立体的な形状で車種別専用設計な為、フィット感抜群です。マット周囲は高くしたリップ部が特徴で汚れても簡単に洗えます。またデザインも良くルックス面も抜群です。雨や雪や砂から、またはお子様に汚されたくない方などは特にオススメです!!かなりの車種適合がございます。是非、ご遠慮なくお問い合わせください。※色は、車種によりブラック、ベージュ、グレーから選択可能です!★適合車種★タホ サバーバン '07y~'14y※フロントバケット、2NDベンチシート※タホのハイブリッド車はNG※当社在庫商品は数に限りがございます。商品を切らさないようご用意をしておりますが、オンラインショップに反映する前に在庫切れになる場合もございますので事前にご了承ください。 万が一在庫が欠品した際はお取り寄せになりますが、・国内に在庫がある場合・・・約3~4日・本国取寄せで在庫がある場合・・・約1~3週間※本国取り寄せ商品の場合、お支払いはクレジットカードかお振込みでのお支払いになります。代金引換サービスはご利用できませんのでご注意ください。・納期未定商品・・・ご注文をお受けできません。又、お取り寄せ商品の場合、表示価格は参考価格となり、価格と納期はその都度確認致しましてご回答させていただきます。更に国内、本国どちらも在庫が欠品している場合や、商品が生産中止になっている可能性もございます。大変申し訳ございませんが、合わせてご了承いただけますようお願い申し上げます。

、A2セルに該当する配列内の部屋はTable(2,1)となります。

 配列の中でForNext構文を使って配列一列目の値と配列2列目の値を掛け算した値を配列3列目に入れているのが次の部分です。

 

  For i = 2 To 50000

        Table(i, 3) = Table(i, 1) * Table(i, 2)

    Next

 

 そして配列の中で2行目から50000行目まで処理が終わったら、この配列の値をまるごとシートに戻します。それが

 

 Range("A1:C50000") = Table

 

 という処理です。

 

 これが ピレリ Cinturato P1 チンチュラート P1 (数量限定特価) サマータイヤ 205/60R16 阿部商会 MAK JACKIY ホイールセット 4本 16インチ 16 X 6.5(MINI) +46 5穴 120、大量のデータ処理で重くて時間がかかる時は、一旦配列に入れてその中で処理して、

【車種専用設計】タホ サバーバン フロアライナーセット ウェザーテック/WeatherTech  グレー 3PC '07y~'14y【アメ車パーツ】

、またシートに戻すと早くなるという方法の基本です。

{yahoojp}jpprem01-zenjp40-wl-zd-88519