VBA searches for A B or C class column, cuts and pastes row and pastes to same workbook

Try

PHP Code: 

Option Explicit
Sub randClass()
Dim lr&, i&, j&, k&, c&, t&, clas, r, cri(), res(1 To 1000, 1 To 4)
Dim dic As Object, cell As Range, key
Set dic = CreateObject("Scripting.dictionary")
lr = Cells(Rows.Count, "A").End(xlUp).Row
clas = Range("A2:D" & lr).Value
Randomize
For Each cell In Range("G2:I2")
    ReDim cri(1 To UBound(clas), 1 To 4)
    k = 0: c = 0
    For i = 1 To UBound(clas)
        If clas(i, 1) = cell.Value Then
            k = k + 1
            For j = 1 To 4
                cri(k, j) = clas(i, j)
            Next
        End If
    Next
    If k > 0 Then
        Do
            r = Int(Rnd * k) + 1
            If Not dic.exists(r) Then
                dic.Add r, ""
                c = c + 1: t = t + 1
                For j = 1 To 4
                    res(t, j) = cri(r, j)
                Next
                Debug.Print r, c
                If c = cell.Offset(1, 0).Value Then Exit Do
            End If
        Loop
    End If
    dic.RemoveAll
Next
Range("K2:N10000").ClearContents
If t > 0 Then Range("K2").Resize(t, 4).Value = res
End Sub 


Another option.

Please Login or Register  to view this content.

Actually, I still don't understand what your new request is. Can you mock up the result area manually and upload the file again?

Ref Post#3.
There are no repetition. Pl verify once.