質問編集履歴
1
テストコードを修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -14,13 +14,9 @@
|
|
14
14
|
|
15
15
|
Sub test1()
|
16
16
|
|
17
|
-
|
18
|
-
|
19
17
|
ThisWorkbook.Worksheets("Sheet1").Range("A1").Copy
|
20
18
|
|
21
|
-
Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("A1").Paste Paste:=xlPasteValues
|
19
|
+
Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues
|
22
|
-
|
23
|
-
|
24
20
|
|
25
21
|
End Sub
|
26
22
|
|
@@ -28,11 +24,9 @@
|
|
28
24
|
|
29
25
|
Sub test2()
|
30
26
|
|
31
|
-
|
32
|
-
|
33
27
|
ThisWorkbook.Worksheets("Sheet1").Range("A1:A3").Copy
|
34
28
|
|
35
|
-
Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("A1:A3").Paste
|
29
|
+
Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("A1:A3").PasteSpecial Paste:=xlPasteValues
|
36
30
|
|
37
31
|
End Sub
|
38
32
|
|