|
重複検査用コードにミスが有ったので、修正して下さい
With Worksheets("Sheet1").Cells(2, "A")
'Offset量
lngOffset = .Row '★この行変更
'データ行数を取得
'もしKeyが重複する場合
If .Exists(vntKey) Then
vntResult(1, 1) = .Item(vntKey)
vntResult(1, 6) = i + lngOffset
For j = 1 To 4
vntResult(1, j + 1) = vntData(vntResult(1, 1), j)
vntResult(1, j + 6) = vntData(i, j)
Next j
vntResult(1, 1) = vntResult(1, 1) + lngOffset '☆この行追加
With rngResult.Offset(lngRow).Resize(, 10)
.NumberFormatLocal = "@"
.Value = vntResult
End With
lngRow = lngRow + 1
Else
'KeyとDコードをIndexに登録
.Add vntKey, i '★この行変更
End If
Next i
|
|