|
こんばんは。
私は、Hirofumi さんのコードを作動した結果をみてやっと
わかりました。
これは、複雑な規則だと仰られているのなら、
例題を4つぐらいは紹介してください。
私は以下のようなコードにしました。
標準モジュールに
'=========================================================
Sub test()
Dim rng As Range
Dim crng As Range
Dim ans As Variant
Dim g0 As Long
ans = Application.Transpose(Range("b1", Cells(Rows.Count, "b").End(xlUp)).Value)
Set rng = Range("a1", Cells(Rows.Count, "a").End(xlUp))
For Each crng In rng
If IsError(Application.Match(crng.Value, ans, 0)) Then
ReDim Preserve ans(1 To UBound(ans) + 1)
ans(UBound(ans)) = crng.Value
End If
Next
For g0 = LBound(ans) To UBound(ans)
Cells(g0, 3).Value = Application.Small(ans, g0)
Next
End Sub
問題のシートをアクティブにして実行してみてください。
|
|