Как определить количество строк и колонок диапазона?

[wap]

Как в VBA определить число строк и число колонок в выделенном диапазоне ячеек?
Заодно, подскажите пожалуйста, как в массив данные из этих ячеек загнать, а то вдруг еще проблемы появятся, придется топик заводить

[Genyaa]

Selection.Rows.Count - строк
Selection.Columns.Count - столбцов...

Про считывание в массив из ячеек можно прочесть здесь:

http://bbs.vbstreets.ru/viewtopic.php?t=33513

[dormouse]

Dim x As Byte, y As Byte
Dim i As Byte, j As Byte, a As Byte, b As Byte
Dim ar() As Integer
y = Selection.Rows.Count
x = Selection.Columns.Count
ReDim ar(x - 1, y - 1) As Integer
For i = Selection.Row To Selection.Row + y - 1
For j = Selection.Column To Selection.Column + x - 1
ar(a, b) = ActiveSheet.Cells(i, j).Value
a = a + 1
Next j
a = 0
b = b + 1
Next i
Stop

[KL]

Код: Выделить всё

Dim x As Byte, y As Byte
Dim i As Byte, j As Byte, a As Byte, b As Byte
Dim ar() As Integer
y = Selection.Rows.Count
x = Selection.Columns.Count
ReDim ar(x - 1, y - 1) As Integer
For i = Selection.Row To Selection.Row + y - 1
    For j = Selection.Column To Selection.Column + x - 1
        ar(a, b) = ActiveSheet.Cells(i, j).Value
        a = a + 1
    Next j
    a = 0
    b = b + 1
Next i
Stop

Ага, или так:

Код: Выделить всё

Dim ar As Variant
ar=Selection.Value

[dormouse]