VBAで質問があります。 別添画像を見ていただきたいのですが、 黄色セルの数値を切り上げして配列に入れる → 青色セルへ転記 という処理をしています。

画像

Visual Basic | Excel56閲覧

ベストアンサー

1

1人がナイス!しています

ThanksImg質問者からのお礼コメント

素晴らしいです。 速度がめちゃくちゃ早くなりました。 ありがとうございます。 完璧です。

お礼日時:7/4 22:11

その他の回答(1件)

1

実際のデータは・・・ サンプルが小さすぎて計測の仕様が無いです。実際のデータ書いて欲しかったですね。 配列を使うときは決して一つのセルから読み込まない、一つのセルに書き込まない、というのを心に決めるべきです。しょうがないときもありますが、今回は一つ一つ書き込まなくてもできます。 今回は80回セルから読み込んで80回書き込んでますね。これで少し時間がかかっているのかも、でも20行のデータが30なら600×2=1200回ですね。大したことは無いと思うが とりあえず、 Sub test2() Dim D1, D2, V1(1 To 10, 1 To 1), V2(1 To 10, 1 To 1) Dim i As Long, j As Long, k As Long k = 14 For j = 3 To 12 Step 3 D1 = Cells(1, j).Resize(10) D2 = Cells(20, j).Resize(10) For i = 1 To 10 V1(i, 1) = Application.RoundUp(D1(i, 1), 0) V2(i, 1) = Application.RoundUp(D2(i, 1), 0) Next Cells(1, k).Resize(10) = V1 Cells(20, k).Resize(10) = V2 k = k + 1 Next End Sub

1人がナイス!しています