首先，我想感谢您的所有回答。

我有一个“ end”数组，其中包含行号。

  If OptionButton1 = True Then

    Dim arraydodrukowania() As String
    ReDim arraydodrukowania(1 To o,1 To 2)

    For j = LBound(array1) To UBound(array1)

  If array1(j,9) = 1 And array1(j,8) = ComboBox2.Value Then

 arraydodrukowania(j,1) = array1(j,9)
 arraydodrukowania(j,2) = array1(j,2)


Else
End If

我要做的是选择由数组值定义的所有行

我知道应该避免选择方法，但是在这种情况下不能忽略它。

因此，换句话说，我需要一个代码，该代码将遍历数组，并将数组中的值定义的行号添加到选择中。 结果将是（例如）行号。选择2、5、1456、2354。

这里的问题是，需要选择的行数不同。

所以

For j = LBound(array1) To UBound(array1)
    array1(j,1).<ADD TO SELECTION>

next j

有什么想法吗？