回答編集履歴
1
.Value のつけ忘れ修正
test
CHANGED
@@ -18,7 +18,7 @@
|
|
18
18
|
|
19
19
|
'以下、ブック間で値の代入
|
20
20
|
|
21
|
-
Rows(j) = Workbooks("A").Worksheets(i).Rows(66)
|
21
|
+
Rows(j).Value = Workbooks("A").Worksheets(i).Rows(66).Value
|
22
22
|
|
23
23
|
j = j + 1
|
24
24
|
|