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

回答編集履歴

1

コード修正

2020/01/03 05:32

投稿

hatena19
hatena19

スコア34367

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