回答編集履歴
2
コード修正
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
Dim myBook As Workbook
|
|
26
26
|
|
|
27
|
-
Set myBook =
|
|
27
|
+
Set myBook = ThisWorkbook 'コードの記述してあるブック ActiveWorkbook
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
|
1
コード修正
test
CHANGED
|
@@ -54,14 +54,8 @@
|
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
|
57
|
-
myBook.Sheets(
|
|
57
|
+
myBook.Sheets("元シート").Copy _
|
|
58
58
|
|
|
59
|
-
Before:=newBook.Sheets(1)
|
|
59
|
+
Before:=newBook.Sheets(1)
|
|
60
|
-
|
|
61
|
-
|
|
62
|
-
|
|
63
|
-
|
|
64
|
-
|
|
65
|
-
|
|
66
60
|
|
|
67
61
|
```
|