回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -18,5 +18,20 @@
|
|
|
18
18
|
Next i
|
|
19
19
|
|
|
20
20
|
End Sub
|
|
21
|
+
```
|
|
21
22
|
|
|
23
|
+
---
|
|
24
|
+
**別案**
|
|
25
|
+
変数は一つ、ループも１階層で。
|
|
26
|
+
|
|
27
|
+
```vba
|
|
28
|
+
Sub Test2()
|
|
29
|
+
Dim r As Long
|
|
30
|
+
|
|
31
|
+
For r = 0 To 7 * 20 * 20 - 1
|
|
32
|
+
Range("E" & r + 1).Value = Chr(r \ (20 * 20) + 65) & "-" & _
|
|
33
|
+
(r \ 20) Mod 20 + 1 & "-" & r Mod 20 + 1
|
|
34
|
+
Next r
|
|
35
|
+
|
|
36
|
+
End Sub
|
|
22
37
|
```
|