回答編集履歴
3
コメントに対する補足説明
answer
CHANGED
|
@@ -28,4 +28,12 @@
|
|
|
28
28
|
|
|
29
29
|
他にもコードに冗長な部分が見られますが、~~とりあえず上記の修正でたぶん動くでしょう（？）~~
|
|
30
30
|
`Range("A").Value` でエラーになりますね。`Range("A" & CStr(i)).Value` の間違いかな？
|
|
31
|
-
ただ、これだと1行だけしか転記されないが、それでいいのかな？
|
|
31
|
+
ただ、これだと1行だけしか転記されないが、それでいいのかな？
|
|
32
|
+
|
|
33
|
+
---
|
|
34
|
+
kiro_1002 さんのコメント
|
|
35
|
+
> 各ファイルによって入力されている量が異なるため、行範囲がバラバラなのでそれに適応できるととても助かります。
|
|
36
|
+
|
|
37
|
+
下記の方法で最終行が取得できるので、それをもとに範囲指定すればいいでしょう。
|
|
38
|
+
|
|
39
|
+
[最終行の取得（End,Rows.Count）｜VBA入門](https://excel-ubara.com/excelvba1/EXCELVBA318.html)
|
2
修正
answer
CHANGED
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
ステップ実行すればすぐ見つかる間違いでしょう。
|
|
14
14
|
[Excel VBA：ステップ実行でプログラムの動きをチェックする｜Plus 1 Excel](http://plus1excel.web.fc2.com/learning/l301/t405.html)
|
|
15
15
|
|
|
16
|
-
また、該当シートが見つかった最後までループする必要はないので、
|
|
16
|
+
また、該当シートが見つかったら最後までループする必要はないので、
|
|
17
17
|
Exit For でループを抜けましょう。
|
|
18
18
|
|
|
19
19
|
```
|
|
@@ -27,4 +27,5 @@
|
|
|
27
27
|
```
|
|
28
28
|
|
|
29
29
|
他にもコードに冗長な部分が見られますが、~~とりあえず上記の修正でたぶん動くでしょう（？）~~
|
|
30
|
-
`Range("A").Value` で
|
|
30
|
+
`Range("A").Value` でエラーになりますね。`Range("A" & CStr(i)).Value` の間違いかな？
|
|
31
|
+
ただ、これだと1行だけしか転記されないが、それでいいのかな？
|
1
修正
answer
CHANGED
|
@@ -26,4 +26,5 @@
|
|
|
26
26
|
Next ws
|
|
27
27
|
```
|
|
28
28
|
|
|
29
|
-
他にもコードに冗長な部分が見られますが、とりあえず上記の修正でたぶん動くでしょう（？）
|
|
29
|
+
他にもコードに冗長な部分が見られますが、~~とりあえず上記の修正でたぶん動くでしょう（？）~~
|
|
30
|
+
`Range("A").Value` でもエラーになりますね。`Range("A" & CStr(i)).Value` の間違いかな？
|