回答編集履歴

2

2021/02/28 12:59

投稿

退会済みユーザー
test CHANGED
@@ -56,6 +56,8 @@
56
56
 
57
57
  TM = Dir()
58
58
 
59
+ TMname = Left(TM, 4)
60
+
59
61
  Loop
60
62
 
61
63
 

1

2021/02/28 12:59

投稿

退会済みユーザー
test CHANGED
@@ -1,6 +1,6 @@
1
1
  ・質問文のコードだと、Whileを繰り返すたびにFor文で同じ位置に書きこんでしまっているので
2
2
 
3
- Whileの外にカウンター(i)を作って、転記先ファイルに書き込むたび、iを1ずつ増やしていけばいいと思います。(そもそもlastrowがどこにも定義されていません)
3
+ Whileの外にカウンター(i)を作って、転記先ファイルに書き込むたび、iを1ずつ増やしていけばいいと思います。(そもそもlastrowに対して値計算されていません)
4
4
 
5
5
  ・Closeの使い方を修正。
6
6