回答編集履歴
1
説明修正、コード修正
test
CHANGED
|
@@ -4,9 +4,9 @@
|
|
|
4
4
|
|
|
5
5
|
そうしないと、ループの回数分（セル一つ毎）にファイル選択ダイアログが開くことになります。
|
|
6
6
|
|
|
7
|
-
何も実行されないなら記述かどこか間違っているのでしょう。
|
|
7
|
+
~~何も実行されないなら記述かどこか間違っているのでしょう。~~
|
|
8
8
|
|
|
9
|
-
|
|
9
|
+
他の方の回答で指摘されてますが、別ブックを開くことで Selection が変わっているのが原因ですね。
|
|
10
10
|
|
|
11
11
|
|
|
12
12
|
|
|
@@ -28,13 +28,13 @@
|
|
|
28
28
|
|
|
29
29
|
Dim i As Long
|
|
30
30
|
|
|
31
|
-
|
|
31
|
+
|
|
32
32
|
|
|
33
33
|
Dim myRange As Range
|
|
34
34
|
|
|
35
35
|
Dim rw As Long
|
|
36
36
|
|
|
37
|
-
|
|
37
|
+
Set myRange = Selection '別ブックを開く前に選択範囲を格納しておく
|
|
38
38
|
|
|
39
39
|
i = 2
|
|
40
40
|
|
|
@@ -48,7 +48,7 @@
|
|
|
48
48
|
|
|
49
49
|
|
|
50
50
|
|
|
51
|
-
With
|
|
51
|
+
With myRange
|
|
52
52
|
|
|
53
53
|
wsDst.Cells(rw, i).Resize(.Rows.Count, .Columns.Count).Value = .Value
|
|
54
54
|
|