回答編集履歴
1
誤字脱字修正
answer
CHANGED
@@ -11,10 +11,11 @@
|
|
11
11
|
With wb.Sheets(1)
|
12
12
|
Set rngFrom = .Range("C1:E5")
|
13
13
|
Set rngTo = .Range("C2:L15")
|
14
|
-
|
15
|
-
|
14
|
+
end with
|
16
|
-
rngTo.PasteSpecial Paste:=xlPasteFormats
|
17
15
|
|
16
|
+
rngFrom.Copy
|
17
|
+
rngTo.PasteSpecial Paste:=xlPasteFormats
|
18
|
+
|
18
19
|
wb.close true
|
19
20
|
|
20
21
|
Debug.Print "end", Timer - t & " 秒"
|