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

我有一个列中提到的值列表。我想使用vba从该列表中选择x个值。数字x在另一个单元格中提到。你能帮我吗

---

我尝试了各种公式，但没有找到解决方案。

假设

myColumnRng

是包含值列表的列中的单元格范围，则可以在变量数组中获取其前N个元素，如下所示：

 myElements = Application.Transpose(myColumnRng .Resize(nElements).Value)

要进一步了解上下文，请执行以下操作：

Option Explicit

Sub main()
    Dim myColumnRng As Range
    Dim myElements As Variant
    Dim iEl As Long

    Set myColumnRng = Range("A1", Cells(Rows.count, "A").End(xlUp)) '<--| set your range as the column "A" one from row 1 down to last not empty row

    myElements = Application.Transpose(myColumnRng .Resize(nElements).Value)

    For iEl = 1 To UBound(myElements)
        Debug.Print myElements(iEl)
    Next        
End Sub

选项显式
副标题（）
暗柱状物As范围
作为变体的暗髓质
只要
设置myColumnRng=Range（“A1”，单元格（Rows.count，“A”）.End（xlUp））”随机选取x值，或选取列表中的第一个x值？
请更好地解释您的问题并展示您的尝试。即使它不起作用，至少它有助于更好地理解问题。它是随机选取X个值。在某些单元格中，X被称为单元格值。让我再解释一遍。A、 B c d e f g h是八个单元格A1至A7中提到的八个值。在B1中，它被写成x表示eg:2。我想让宏读取B1中的值，然后理解它必须随机选取a1到a7中的任意2个值，并在c列中显示任意值。@DevBg，你通过了吗？它是随机选取X个值。在某些单元格中，X被称为单元格值。让我再解释一遍。A、 B c d e f g h是八个单元格A1至A7中提到的八个值。在B1中，它被写成x表示eg:2。我希望宏读取B1中的值，然后理解它必须随机选择a1到a7中的任意2个值，并在c列中显示anywher。它是随机选择X个值。在某些单元格中，X被称为单元格值。它是随机选取X个值。在某些单元格中，X被称为单元格值。让我再解释一遍。A、 B c d e f g h是八个单元格A1至A7中提到的八个值。在B1中，它被写成x表示eg:2。我想让宏读取B1中的值，然后理解它必须从a1到a7中随机选取任意2个值，并在c列中显示anywher。