回答編集履歴
1
追記
answer
CHANGED
|
@@ -4,4 +4,8 @@
|
|
|
4
4
|
intLastRow = .Cells(Rows.Count, 6).End(xlUp).Row
|
|
5
5
|
.Range(strInsertCol & strInsertRow & ":" & strInsertCol & intLastRow) = "=IF(YEAR(H8)& ""/"" &MONTH(H8)=""1900/1"","""",YEAR(H8)& ""/"" &MONTH(H8))"
|
|
6
6
|
End With
|
|
7
|
-
```
|
|
7
|
+
```
|
|
8
|
+
---
|
|
9
|
+
<追記>
|
|
10
|
+
CallしたときにAutoFillがエラーになるのは、たぶん対象のシートがActiveになってないからだと思います。
|
|
11
|
+
処理の先頭でActivateかSelectをすれば解消すると思います。
|