Excel range.Rows 属性的真正作用是什么？

Question

好的，我正在完成一个旧版 Excel-VBA 应用程序的附加项目，我再次遇到了神秘的 range.Rows (?) 和 worksheet.Rows 属性的难题。

有谁知道这些属性的真正作用以及它们应该为我提供什么？ （注意：所有这些可能也适用于相应的*.Columns 属性）。

我真正喜欢能够使用它的是返回一系列行，如下所示：

   SET rng = wks.Rows(iStartRow, iEndRow)

但我从来没有能够让它做到这一点，即使 Intellisense 显示了两个参数。相反，我必须使用其他两种或三种（非常笨拙的）技术中的一种。

帮助非常无用（对于 Office VBA 通常如此），并且无论我添加多少其他术语，谷歌搜索“行”都不是很有用。

我能够使用它的唯一用途是 1) 返回单行作为范围 (rng.Rows(i)) 和 2) 返回范围内的行数 (rng.Rows.Count)。是这样吗？真的没有其他好处了吗？

澄清：我知道它返回一个范围，并且还有其他方法可以获取一系列行。我要问的是我们从.Rows() 得到什么我们还没有从.Cells() 和.Range() 得到什么？我知道的两件事是 1）返回单行范围的更简单方法和 2）计算范围中行数的方法。

还有别的吗？

Answer 1

Range.Rows 和 Range.Columns 返回基本相同的 Range，除了新 Range 有一个标志表示它表示行或列。这对于某些 Excel 属性（例如 Range.Count 和 Range.Hidden）以及某些方法（例如 Range.AutoFit()）是必需的：

• Range.Rows.Count 返回 Range 中的行数。
• Range.Columns.Count 返回 Range 中的列数。
• Range.Rows.AutoFit() 自动调整 Range 中的行。
• Range.Columns.AutoFit() 自动调整 Range 中的列。

您可能会发现Range.EntireRow 和Range.EntireColumn 很有用，尽管它们仍然不是您想要的。它们返回 EntireRow 的所有可能列和 EntireColumn 表示范围的所有可能行。

我知道这一点是因为SpreadsheetGear for .NET 带有与 Excel 的 API 非常相似的 .NET API。 SpreadsheetGear API 为 IRange 索引器提供了几个强类型重载，包括您可能希望 Excel 具有的重载：

• IRange this[int row1, int column1, int row2, int column2];

免责声明：我拥有 SpreadsheetGear LLC

Answer 2

Range.Rows、Range.Columns 和 Range.Cells 是 Excel.Range 对象，根据 VBA Type() 函数：

?TypeName(Selection.rows) 范围 然而，这还不是全部：这些返回的对象是继承 Excel::Range 的每个属性和方法的扩展类型 - 但是 .Columns 和 .Rows 有一个特殊的 For... 每个迭代器和一个特殊的 .Count 属性't 相当与父 Range 对象的迭代器和计数相同。

所以 .Cells 被迭代并计为单个单元格范围的集合，就像父范围的默认迭代器一样。

但是 .Columns 被迭代并计为垂直子范围的集合，每个子范围都是单列宽；

...并且 .Rows 被迭代并计为水平子范围的集合，每个子范围都高一行。

理解这一点的最简单方法是单步执行此代码并查看选择的内容：

公共子测试（）
将子范围调暗为范围 将 ParentRange 调暗为范围
设置 ParentRange = ActiveSheet.Range("B2:E5")

对于 ParentRange.Cells 中的每个子范围 子范围.选择 下一个
对于 ParentRange.Rows 中的每个子范围 子范围.选择 下一个
对于 ParentRange.Columns 中的每个子范围 子范围.选择 下一个
对于 ParentRange 中的每个子范围 子范围.选择 下一个
结束子 享受。并在其中尝试几个合并的单元格，看看 odd 合并范围如何。

Answer 3

您的两个示例是我唯一使用过Rows 和Columns 属性的东西，但理论上你可以用它们做任何可以用Range 对象完成的事情。

这些属性的返回类型本身就是Range，因此您可以执行以下操作：

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

这将选择myRange 中的第三行（Sheet1 中的单元格 B4:H4）。

更新：要做你想做的事，你可以使用：

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

更新 #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))

Answer 4

由于 .Rows 结果被标记为由行组成，您可以“For Each”它单独处理每一行，如下所示：

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 对范围内的列执行“For Each”。）

Answer 5

我不确定，但我认为第二个参数是红鲱鱼。

.Rows 和 .Columns 都采用两个可选参数：RowIndex 和 ColumnIndex。尝试使用 ColumnIndex，例如Rows(ColumnIndex:=2)，为 .Rows 和 .Columns 生成错误。

我觉得它在某种意义上继承自 Cells(RowIndex,ColumnIndex) 属性，但只有第一个参数是合适的。

Answer 6

我发现自己在 Copy 方法中使用 range.Rows 来获得效果。它将行的高度从原点复制到目的地，这是我想要的行为。

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

如果我使用 rngLastRecord.Copy 而不是 rngLastRecord.Rows.Copy，行高将是复制之前的任何高度。

Answer 7

这可能有点杂乱无章，但以下代码可以完成您似乎想要做的事情：

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

Answer 8

还有一种方法，以这个为例

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

您只需将变量iStartRow、iEndRow 转换为字符串。

Answer 9

我发现这是可行的：

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