Что действительно делает свойство range.Rows в Excel?

Range.Rows, Range.Columns и Range.Cells - это объекты Excel.Range, в соответствии с функциями VBA Type():

? TypeName (Selection.rows)
Ассортимент

Однако это не вся история: те возвращенные объекты являются расширенными типами, которые наследуют каждое свойство и метод из Excel:: Range - но .Columns и .Rows имеют специальное значение для... Каждый итератор и специальное свойство .Count, которое aren 't совершенно так же, как итератор родительского объекта Range и count.

Итак. Cells повторяется и учитывается как набор диапазонов с одной ячейкой, как и итератор по умолчанию родительского диапазона.

Но. Колонки повторяются и подсчитываются как набор вертикальных поддиапазонов, каждый из которых имеет ширину в один столбец;

... И .Rows повторяется и подсчитывается как набор горизонтальных поддиапазонов, каждый из которых имеет высоту в одну строку.

Самый простой способ понять это - пройти этот код и посмотреть, что выбрали:

Открытый Sub Test() 


Для каждого поддиапазона в ParentRange.Rows   SubRange.Select
Следующий 

Для каждого поддиапазона в ParentRange.Columns   SubRange.Select
Следующий 

Для каждого поддиапазона в ParentRange   SubRange.Select
Следующий 

End Sub

Наслаждаться. И попробуйте с помощью пары объединенных ячеек, чтобы увидеть, как могут быть нечетные объединенные диапазоны.

Ваши два примера - это единственные вещи, которые я когда-либо использовал для свойств Rows и Columns, но в теории вы могли бы сделать с ними что-нибудь, что можно сделать с помощью объекта Range.

Возвращаемый тип этих свойств сам является Range, поэтому вы можете делать такие вещи, как:

Dim myRange as Range
Set myRange = Sheet1.Range(Cells(2,2),Cells(8,8))
myRange.Rows(3).Select

который выберет третью строку в myRange (ячейки B4: H4 в Sheet1).

update: Чтобы сделать то, что вы хотите сделать, вы можете использовать:

Dim interestingRows as Range
Set interestingRows = Sheet1.Range(startRow & ":" & endRow)

update # 2: Или, чтобы получить подмножество строк из другого диапазона:

Dim someRange As Range
Dim interestingRows As Range

Set myRange = Sheet1.Range(Cells(2, 2), Cells(8, 8))

startRow = 3
endRow = 6

Set interestingRows = Range(myRange.Rows(startRow), myRange.Rows(endRow))

Поскольку результат .Rows помечен как состоящий из строк, вы можете "Для каждого" его обрабатывать каждую строку отдельно, например:

Function Attendance(rng As Range) As Long
Attendance = 0
For Each rRow In rng.Rows
    If WorksheetFunction.Sum(rRow) > 0 Then
        Attendance = Attendance + 1
    End If
Next
End Function

Я использую это для проверки посещаемости в любой из нескольких категорий (разные столбцы) для списка людей (разные строки).

(И, конечно же, вы можете использовать .Columns для выполнения "Для каждого" по столбцам в диапазоне.)

Я обнаружил, что использую range.Rows для его эффектов в методе Copy. Он копирует высоту строк из начала координат в пункт назначения, что является поведением, которое я хочу.

rngLastRecord.Rows.Copy Destination:=Sheets("Availability").Range("a" & insertRow)

Если бы я использовал rngLastRecord.Copy вместо rngLastRecord.Rows.Copy, высота строк была бы тем, что было там до копии.

Я не уверен, но я думаю, что вторым параметром является красная селедка.

Оба .Rows и .Columns берут два необязательных параметра: RowIndex и ColumnIndex. Попробуйте использовать ColumnIndex, например. Rows(ColumnIndex:=2) генерирует ошибку для обоих .Rows и .Columns.

Мое ощущение, что оно унаследовано в некотором смысле от свойства Cells(RowIndex,ColumnIndex), но подходит только первый параметр.

Я нашел, что это работает:

Rows(CStr(iVar1) & ":" & CStr(iVar2)).Select

Возможно, это битка, но следующий код делает то, что вы, похоже, хотите сделать:

Set rng = wks.Range(wks.Rows(iStartRow), wks.Rows(iEndRow)).Rows

Есть другой способ: возьмите это как пример

Dim sr As String    
sr = "6:10"
Rows(sr).Select

Все, что вам нужно сделать, это преобразовать переменные iStartRow, iEndRow в строку.