回答編集履歴
1
コード追記
test
CHANGED
@@ -38,6 +38,36 @@
|
|
38
38
|
|
39
39
|
End Sub
|
40
40
|
|
41
|
+
```
|
41
42
|
|
42
43
|
|
44
|
+
|
45
|
+
---
|
46
|
+
|
47
|
+
**別案**
|
48
|
+
|
49
|
+
変数は一つ、ループも1階層で。
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
```vba
|
54
|
+
|
55
|
+
Sub Test2()
|
56
|
+
|
57
|
+
Dim r As Long
|
58
|
+
|
59
|
+
|
60
|
+
|
61
|
+
For r = 0 To 7 * 20 * 20 - 1
|
62
|
+
|
63
|
+
Range("E" & r + 1).Value = Chr(r \ (20 * 20) + 65) & "-" & _
|
64
|
+
|
65
|
+
(r \ 20) Mod 20 + 1 & "-" & r Mod 20 + 1
|
66
|
+
|
67
|
+
Next r
|
68
|
+
|
69
|
+
|
70
|
+
|
71
|
+
End Sub
|
72
|
+
|
43
73
|
```
|