回答編集履歴
1
列ZZの数値変換誤り訂正
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
For i = 2 To 5000
|
|
22
22
|
|
|
23
|
-
For j = 2 To 26 * 26 'B to ZZ
|
|
23
|
+
For j = 2 To (1 + 26) * 26 'B to ZZ
|
|
24
24
|
|
|
25
25
|
ws.Cells(i, j).Value = ws1.Cells(i, j).Value * ws2.Cells(i, j).Value
|
|
26
26
|
|