回答編集履歴
2
誤記修正
test
CHANGED
@@ -14,7 +14,7 @@
|
|
14
14
|
|
15
15
|
str = Replace(str, "{1}", Str(i))
|
16
16
|
|
17
|
-
Sheets(1).Range("M" & i).Formula =
|
17
|
+
Sheets(1).Range("M" & i).Formula = str
|
18
18
|
|
19
19
|
Next
|
20
20
|
|
1
追記
test
CHANGED
@@ -41,3 +41,7 @@
|
|
41
41
|
Next
|
42
42
|
|
43
43
|
```
|
44
|
+
|
45
|
+
|
46
|
+
|
47
|
+
※ 式自体のエラーなどは考慮していません。質問者さんが記載されたものそのまま組み立てています。
|