Çoklu sütundan tek sutüna rastgele seçim

[cenkataseven]

Merhaba,

Ekli excel dosyasında da anlattığım şekilde, birden fazla sütuna yazılmış sayılardan her sütundan farklı adette olmak üzere rastgele sayılar seçip bunların hepisini tek bir sütunda göstermek istiyorum.

Yardımcı olabilir misiniz?

Not: Excel 2010 kullanmaktayım

 

[hamitcan]

Bu şekilde deneyin.

Sub RasgeleSayi()
    Dim arr()
    Sheets("Sheet2").Columns("a:b").Clear
    arr = Array(7, 5, 4, 4, 4, 4)
    For j = 0 To UBound(arr)
        d = d + 1
    For i = 1 To arr(j)
10
        Randomize
        With Sheets("Sheet1")
            a = .Cells(Rnd * (.Cells(.Rows.Count, d).End(xlUp).Row - 1) + 2, d)
            If a = "" Then GoTo 10
            If WorksheetFunction.CountIf(Sheets("Sheet2").Columns(1), a) > 0 Then GoTo 10
        End With
        c = Sheets("Sheet2").[a65536].End(3).Row + 1
        Sheets("Sheet2").Cells(c, 1) = a
        Sheets("Sheet2").Cells(c, 2) = d
    Next
    Next
    MsgBox "Bitti."
End Sub

 

[cenkataseven]

Hamitcan Bey,

Çok teşekkür ederim. Elinize sağlık. Süper.