回答編集履歴
3
w
answer
CHANGED
|
@@ -38,7 +38,7 @@
|
|
|
38
38
|
###追記 コード修正
|
|
39
39
|
|
|
40
40
|
```VBA
|
|
41
|
-
thisworkbook.Sheets("
|
|
41
|
+
thisworkbook.Sheets("Sheet3").Select
|
|
42
42
|
|
|
43
43
|
With Cells(Rows.Count, "B").End(xlUp)
|
|
44
44
|
MaxRow = .Row + .MergeArea.Rows.Count - 1
|
2
追記
answer
CHANGED
|
@@ -33,4 +33,27 @@
|
|
|
33
33
|
|
|
34
34
|
|
|
35
35
|
ちなみにテラテイルでの画像のアップボタンは下記のアイコンです。
|
|
36
|
-
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
###追記 コード修正
|
|
39
|
+
|
|
40
|
+
```VBA
|
|
41
|
+
thisworkbook.Sheets("sheet1").Select
|
|
42
|
+
|
|
43
|
+
With Cells(Rows.Count, "B").End(xlUp)
|
|
44
|
+
MaxRow = .Row + .MergeArea.Rows.Count - 1
|
|
45
|
+
End With
|
|
46
|
+
|
|
47
|
+
Range("B" + CStr(MaxRow - 2) + ":Q" + CStr(MaxRow)).Select '// 初期データの3行を選択
|
|
48
|
+
Selection.AutoFill Destination:=Range("B" + CStr(MaxRow - 2) + ":Q" + CStr(MaxRow + 3)), Type:=xlFillDefault '// とりあえず、表全体をコピー
|
|
49
|
+
|
|
50
|
+
Range("B5:B7").Select '// 初期データの3行を選択（日付データのB列）
|
|
51
|
+
Selection.AutoFill Destination:=Range("B5:B" + CStr(MaxRow + 3)), Type:=xlFillMonths '// 日付は月毎の設定で上書き
|
|
52
|
+
|
|
53
|
+
Range("P5:P7").Select '// 初期データの3行を選択（数式データのP列）
|
|
54
|
+
Selection.AutoFill Destination:=Range("P5:P" + CStr(MaxRow + 3)), Type:=xlFillCopy '// 数式は数式の設定で上書き（なくてもいい）
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
Range("B" + CStr(MaxRow + 1) + ":Q" + CStr(MaxRow + 3)).Select '// 追加した3行を選択状態で終了（特に意味はない）
|
|
58
|
+
|
|
59
|
+
```
|
1
追記
answer
CHANGED
|
@@ -26,4 +26,11 @@
|
|
|
26
26
|
xlFillDefault でB列～Q列までデフォルト設定のオートフィルで、数式も正しくコピーされるので、xlFillCopy はなくてもいいと思います。
|
|
27
27
|
月データはデフォルト設定でコピーできないので、xlFillMonths で上書きしてます。
|
|
28
28
|
|
|
29
|
-
以上
|
|
29
|
+
以上
|
|
30
|
+
|
|
31
|
+
###追記
|
|
32
|
+
シート名の確認
|
|
33
|
+
|
|
34
|
+
|
|
35
|
+
ちなみにテラテイルでの画像のアップボタンは下記のアイコンです。
|
|
36
|
+
|