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

回答編集履歴

2

誤りの修正

2021/03/10 04:29

投稿

退会済みユーザー
answer CHANGED
@@ -19,4 +19,18 @@
19
19
  Next i
20
20
  End Sub
21
21
 
22
+ ```
23
+ 修正した後に気づきましたがこの形だとiのループとdatasRowの挙動が一致しているので単純に下記でよさそうです。
24
+
25
+ ```
26
+ '不要
27
+ 'Dim datesRow
28
+ 'datesRow = 2
29
+ '2to5で2始まりになる
30
+ For i = 2 To 5
31
+ If Cells(i, 3).Value <> "" Then
32
+ Cells(i, 3).Value = dates
33
+ End If
34
+ 'Next iでiの数値は1加算される
35
+ Next i
22
36
  ```

1

誤りの修正

2021/03/10 04:29

投稿

退会済みユーザー
answer CHANGED
@@ -13,8 +13,9 @@
13
13
  '変数iはループ変数なのでCellsで使用しない
14
14
  If Cells(datesRow, 3).Value <> "" Then
15
15
  Cells(datesRow, 3).Value = dates
16
+ End If
17
+ 'もし空欄でない場合でも数値を増やしていかないとデータが入っていた場合下に進まない
16
18
  datesRow = datesRow + 1
17
- End If
18
19
  Next i
19
20
  End Sub
20
21