回答編集履歴
1
コード修正
test
CHANGED
|
@@ -2,7 +2,11 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
+
|
|
6
|
+
|
|
5
7
|
```
|
|
8
|
+
|
|
9
|
+
'c:\test\ブックA.xlsx の sheet1 の E12：M1000の範囲の値をアクティブブックのB2以降に転記
|
|
6
10
|
|
|
7
11
|
Sub test()
|
|
8
12
|
|
|
@@ -10,7 +14,7 @@
|
|
|
10
14
|
|
|
11
15
|
f = "'c:\test[ブックA.xlsx]sheet1'!E12"
|
|
12
16
|
|
|
13
|
-
With Range("B2").Resize(1000, 9)
|
|
17
|
+
With Range("B2").Resize(1000 - 11, 9)
|
|
14
18
|
|
|
15
19
|
.Formula = "=" & f
|
|
16
20
|
|