teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

誤字脱字修正

2020/06/23 01:11

投稿

mattuwan
mattuwan

スコア2167

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
- rngFrom.Copy
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 & " 秒"