質問編集履歴
4
kousin
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
###現在実装中です しばらくお待ちください
|
|
1
|
+
###追記::現在実装中です しばらくお待ちください
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
3
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,3 +1,7 @@
|
|
|
1
|
+
###現在実装中です しばらくお待ちください
|
|
2
|
+
|
|
3
|
+
|
|
4
|
+
|
|
1
5
|
Aのファイル(ThisWorkbook)のデータと複数のファイルのデータを全て照合するコードを書きたいと思っています。
|
|
2
6
|
|
|
3
7
|
配列Sheet(1~179)に比較する複数のファイルのパスが入っています。
|
2
kousinn
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -134,7 +134,9 @@
|
|
|
134
134
|
|
|
135
135
|
Dim Sheet_path(200) 'ファイルのパスだけ配列に格納
|
|
136
136
|
|
|
137
|
-
|
|
137
|
+
Dim b As Long
|
|
138
|
+
|
|
139
|
+
Dim a As Long
|
|
138
140
|
|
|
139
141
|
Sub hikaku()
|
|
140
142
|
|
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -160,7 +160,7 @@
|
|
|
160
160
|
|
|
161
161
|
|
|
162
162
|
|
|
163
|
-
this_line =
|
|
163
|
+
this_line = this.Cells(Rows.Count, 7).End(xlUp).Row 'G列のデータの最終行を取得
|
|
164
164
|
|
|
165
165
|
|
|
166
166
|
|
|
@@ -170,7 +170,7 @@
|
|
|
170
170
|
|
|
171
171
|
|
|
172
172
|
|
|
173
|
-
target =
|
|
173
|
+
target = this.Cells(b, 7).Value '(AファイルG列のデータを取得)
|
|
174
174
|
|
|
175
175
|
|
|
176
176
|
|