teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

変更

2021/01/08 01:36

投稿

radames1000
radames1000

スコア1925

answer CHANGED
@@ -1,10 +1,10 @@
1
- ぱっと見ですが
1
+ ここを
2
- これだと「jj」というシートがないとエラーになります。
3
2
  ```vba
4
- .Range("P" & num2) = A + Day(Sheets("jj").Range("G" & k).Value)
3
+ Z = .Cells(Row.Count, 2).End(xlUp).Row
4
+ Y = .Cells(Row.Count, 14).End(xlUp).Row
5
5
  ```
6
- ダブルクォーテーションをはずしましょう
6
+ こうしましょう
7
- ※他の部分に合わせてWorkSheetsにしてます
8
7
  ```vba
8
+ Z = .Cells(Rows.Count, 2).End(xlUp).Row
9
- .Range("P" & num2) = A + Day(WorkSheets(jj).Range("G" & k).Value)
9
+ Y = .Cells(Rows.Count, 14).End(xlUp).Row
10
10
  ```