回答編集履歴
1
判定漏れ修正
test
CHANGED
|
@@ -226,8 +226,6 @@
|
|
|
226
226
|
|
|
227
227
|
' 「自動比較ツール.xlsm」の[順位付け]シートに2行目からコピーする。
|
|
228
228
|
|
|
229
|
-
' 行終了の判断はNo.セルに値が無かったらとする｡
|
|
230
|
-
|
|
231
229
|
For lngGetRowIndex = 4 To wsCmp.UsedRange.Rows.Count
|
|
232
230
|
|
|
233
231
|
'----- 対象行取得
|
|
@@ -236,6 +234,12 @@
|
|
|
236
234
|
|
|
237
235
|
|
|
238
236
|
|
|
237
|
+
'----- 行終了の判断はNo.セルに値が無かったらとする｡
|
|
238
|
+
|
|
239
|
+
if Isnull(varValue(0)) or len(varValue(0)) = 0 Then Exit For
|
|
240
|
+
|
|
241
|
+
|
|
242
|
+
|
|
239
243
|
'----- タイプ一覧によるコピー判定
|
|
240
244
|
|
|
241
245
|
blnIsCopy = False
|