回答編集履歴
1
コード修正
answer
CHANGED
@@ -1,10 +1,12 @@
|
|
1
1
|
ブックAを開かずにということなら、外部参照を使うと高速にできます。
|
2
2
|
|
3
|
+
|
3
4
|
```
|
5
|
+
'c:\test\ブックA.xlsx の sheet1 の E12:M1000の範囲の値をアクティブブックのB2以降に転記
|
4
6
|
Sub test()
|
5
7
|
Dim f As String
|
6
8
|
f = "'c:\test[ブックA.xlsx]sheet1'!E12"
|
7
|
-
With Range("B2").Resize(1000, 9)
|
9
|
+
With Range("B2").Resize(1000 - 11, 9)
|
8
10
|
.Formula = "=" & f
|
9
11
|
.Value = .Value
|
10
12
|
End With
|