回答編集履歴
2
answer
CHANGED
|
@@ -27,6 +27,7 @@
|
|
|
27
27
|
Workbooks(TM).Close
|
|
28
28
|
End If
|
|
29
29
|
TM = Dir()
|
|
30
|
+
TMname = Left(TM, 4)
|
|
30
31
|
Loop
|
|
31
32
|
|
|
32
33
|
End Sub
|
1
answer
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
・質問文のコードだと、Whileを繰り返すたびにFor文で同じ位置に書きこんでしまっているので
|
|
2
|
-
Whileの外にカウンター（i）を作って、転記先ファイルに書き込むたび、iを１ずつ増やしていけばいいと思います。（そもそもlastrow
|
|
2
|
+
Whileの外にカウンター（i）を作って、転記先ファイルに書き込むたび、iを１ずつ増やしていけばいいと思います。（そもそもlastrowに対して値が計算されていません）
|
|
3
3
|
・Closeの使い方を修正。
|
|
4
4
|
```
|
|
5
5
|
Sub 別ブックとのセル値転記()
|