質問編集履歴
1
書き忘れの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
cnt = lastRow
|
|
26
26
|
|
|
27
|
-
For cnt = lastRow To 2 Step -1
|
|
27
|
+
For cnt = lastRow To 2 Step -1 '1行目はタイトルなので無視
|
|
28
28
|
|
|
29
29
|
If IsDate(ThisWorkbook.Worksheets("あいうえお").Range("O" & cnt).Value) = True Then
|
|
30
30
|
|