我有一个列中提到的值列表。我想使用vba从该列表中选取x个值

Sub SelectValuesFromList()
    Dim valueList() As Variant
    Dim selectedValues() As Variant
    Dim x As Integer
    Dim i As Integer
    Dim j As Integer
    
    ' 假设你的值列表存储在一个名为valueList的数组中
    valueList = Array("值1", "值2", "值3", "值4", "值5", "值6", "值7", "值8", "值9", "值10")
    
    ' 假设你想选取3个值
    x = 3
    
    ' 初始化选中值的数组
    ReDim selectedValues(1 To x)
    
    ' 从值列表中随机选取x个值
    For i = 1 To x
        ' 生成一个随机数作为索引
        j = Int((UBound(valueList) - LBound(valueList) + 1) * Rnd + LBound(valueList))
        
        ' 将选中的值存储到选中值的数组中
        selectedValues(i) = valueList(j)
        
        ' 从值列表中移除已选中的值，避免重复选择
        For k = j To UBound(valueList) - 1
            valueList(k) = valueList(k + 1)
        Next k
        
        ' 调整值列表的大小
        ReDim Preserve valueList(LBound(valueList) To UBound(valueList) - 1)
    Next i
    
    ' 输出选中的值
    For i = 1 To x
        Debug.Print selectedValues(i)
    Next i
End Sub