回答編集履歴

1

追記

2020/06/10 06:07

投稿

mattuwan
mattuwan

スコア2163

test CHANGED
@@ -23,3 +23,51 @@
23
23
 
24
24
 
25
25
  あれ?セル範囲は飛び飛びであってるんでしょうか。。。。?
26
+
27
+
28
+
29
+ ---
30
+
31
+
32
+
33
+ あああ。
34
+
35
+
36
+
37
+ > Range("A1") = I
38
+
39
+
40
+
41
+ を見逃してました。
42
+
43
+
44
+
45
+
46
+
47
+ ```ExcelVBA
48
+
49
+ Sub test()
50
+
51
+ Dim i As Long
52
+
53
+
54
+
55
+ For i = 1 To 100
56
+
57
+ Range("A1").Value = i
58
+
59
+ Range("A5:A6").Offset(, i - 1).Value = _
60
+
61
+ WorksheetFunction.MMult(Range("A2:B3").Cells, Range("D2:D3").Cells)
62
+
63
+ Next
64
+
65
+ End Sub
66
+
67
+ ```
68
+
69
+
70
+
71
+ ループ内で1回1回計算するのなら、
72
+
73
+ 数式を一括で入れた方が処理速度は速いかもです。