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

回答編集履歴

1

補足

2019/04/01 16:34

投稿

ELBE
ELBE

スコア305

answer CHANGED
@@ -8,4 +8,18 @@
8
8
  Workbooks(copyBook).Activate
9
9
  Sheets(1).Copy _
10
10
  Before:=Workbooks(stTestFile).Sheets(1)
11
+ ```
12
+
13
+ また、現在使用中のデータ範囲のみ(例えば、Range("C2:F30"))を別ブックのRange("A1")から貼り付ける場合は下記でもできます。
14
+ ```VBA
15
+ copyBook = ThisWorkbooks.Name
16
+ stTestFile = "test.xlsx"
17
+
18
+ Workbooks.Open Filename:=stTestFile
19
+
20
+ copyBook.Activate
21
+ copyBook.UsedRange.Copy
22
+
23
+ Workbooks(stTestFile).Activate
24
+ Range("A1").PasteSpecial
11
25
  ```