回答編集履歴
3
コメントに対する補足説明
test
CHANGED
|
@@ -59,3 +59,19 @@
|
|
|
59
59
|
`Range("A").Value` でエラーになりますね。`Range("A" & CStr(i)).Value` の間違いかな？
|
|
60
60
|
|
|
61
61
|
ただ、これだと1行だけしか転記されないが、それでいいのかな？
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
---
|
|
66
|
+
|
|
67
|
+
kiro_1002 さんのコメント
|
|
68
|
+
|
|
69
|
+
> 各ファイルによって入力されている量が異なるため、行範囲がバラバラなのでそれに適応できるととても助かります。
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
下記の方法で最終行が取得できるので、それをもとに範囲指定すればいいでしょう。
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
[最終行の取得（End,Rows.Count）｜VBA入門](https://excel-ubara.com/excelvba1/EXCELVBA318.html)
|
2
修正
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
|
|
31
|
-
また、該当シートが見つかった最後までループする必要はないので、
|
|
31
|
+
また、該当シートが見つかったら最後までループする必要はないので、
|
|
32
32
|
|
|
33
33
|
Exit For でループを抜けましょう。
|
|
34
34
|
|
|
@@ -56,4 +56,6 @@
|
|
|
56
56
|
|
|
57
57
|
他にもコードに冗長な部分が見られますが、~~とりあえず上記の修正でたぶん動くでしょう（？）~~
|
|
58
58
|
|
|
59
|
-
`Range("A").Value` で
|
|
59
|
+
`Range("A").Value` でエラーになりますね。`Range("A" & CStr(i)).Value` の間違いかな？
|
|
60
|
+
|
|
61
|
+
ただ、これだと1行だけしか転記されないが、それでいいのかな？
|
1
修正
test
CHANGED
|
@@ -54,4 +54,6 @@
|
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
|
57
|
-
他にもコードに冗長な部分が見られますが、とりあえず上記の修正でたぶん動くでしょう（？）
|
|
57
|
+
他にもコードに冗長な部分が見られますが、~~とりあえず上記の修正でたぶん動くでしょう（？）~~
|
|
58
|
+
|
|
59
|
+
`Range("A").Value` でもエラーになりますね。`Range("A" & CStr(i)).Value` の間違いかな？
|