質問編集履歴

2

説明の追記

2021/01/08 01:30

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -17,6 +17,16 @@
17
17
  実行時エラー424 オブジェクトが必要です
18
18
 
19
19
  とのエラーが出た。
20
+
21
+
22
+
23
+ ―追記-
24
+
25
+ エラー個所についてはfor num1の部分で現在は
26
+
27
+ 現在は変数Zにnum1の構文を入れているので
28
+
29
+ 変数Zの部分でエラーが出ている状態です。
20
30
 
21
31
 
22
32
 

1

誤字修正

2021/01/08 01:29

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -74,7 +74,7 @@
74
74
 
75
75
  .Range("R" & num2) = Worksheets(jj).Range("C" & k)
76
76
 
77
- .Range("P" & num2) = A + Day(Sheets("jj").Range("G" & k).Value)
77
+ .Range("P" & num2) = A + Day(Sheets(jj).Range("G" & k).Value)
78
78
 
79
79
  .Range("Z" & num1) = Worksheets(jj).Range("I" & k)
80
80