Question

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

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

Answer 1

假设myColumnRng是包含值列表的列中的单元格范围，您可以在Variant数组中获取其前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

Answer 2

随机选择x值，或者在列表中选择前x个值？

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

2 个答案: