vba 배열원소 random 할당

Sub randomStr()
    Dim s As String
    Dim c
    Dim arr() As String
    Dim a()
    Dim i As Long
    
    If Range("A2") <> "" Then
        Range("A2", Cells(Rows.count, "A").End(xlUp)).ClearContents
    End If
    
    s = "A,B,C"
    
    arr = Split(s, ",")

'    For Each c In arr
'        Debug.Print c
'    Next c
    For i = 0 To 10
        ReDim Preserve a(0 To i)
        a(i) = arr(Int(Rnd * 3))
    Next i
    
    Range("A2").Resize(UBound(a), 1) = Application.Transpose(a)
End Sub

엑셀배열순번매기기.xls

0.04MB