VBA: как задать массив с листа в Excel неизвестного размера

[Ixituni]

Вообщем задание такое:
Задан столбец чисел на листе, к-во елементов неизвестно.
Необходимо считать эти данные в одномерный массив, и посчитать количество елементов.
Как задать массив из столбца неизвестного размера с листа?

[DiemonStar]

для произвольного количества элементов в столбце A

Sub ff()
  Dim A()
  Set R = Range([A1], Range("A" & Rows.Count).End(xlUp))
  A = R.Value
  MsgBox UBound(A)
End Sub

[Ixituni]

а если массив задается через InputBox?

[Ixituni]

Как проделать то же, но и для произвольного столбца выбранного по активной ячейке?

[Ixituni]

Как проделать то же, но и для произвольного столбца выбранного по активной ячейке?

[DiemonStar]

Сообщение от Ixituni

а если массив задается через InputBox?

Разделитель = ","
A = Split(InputBox("Введите массив через разделители ("&Разделитель&"):", ""), Разделитель)

[DiemonStar]

Сообщение от Ixituni

Как проделать то же, но и для произвольного столбца выбранного по активной ячейке?

Sub ff()
  Dim A()
  A = Range(Cells(1,ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column).End(xlUp)).Value
  MsgBox UBound(A)
End Sub

[Ixituni]

Большое спасибо