1 2 3 4 5 6 7 8 9 10 11 12 | Private Sub GetColumn() Dim iMassiv#(1 To 100, 1 To 5) Dim iColumn%, iRow%, iChooseColumn For iColumn = 1 To 5 For iRow = 1 To 100 iMassiv(iRow, iColumn) = Rnd * 1000 Next Next iChooseColumn = Application.Index(iMassiv, 0, 3)End Sub |