确定范围内的行数[关闭]

StackOverflow https://stackoverflow.com/questions/114493

  •  02-07-2019
  •  | 
  •  

题

我知道列表开头的范围名称 - 1列宽和x行深。

如何计算<=>？

列中的数据多于此列表。但是，此列表是连续的 - 在其上方或下方或旁边的任何单元格中都没有任何内容。

有帮助吗？

解决方案 

Function ListRowCount(ByVal FirstCellName as String) as Long
    With thisworkbook.Names(FirstCellName).RefersToRange
        If isempty(.Offset(1,0).value) Then 
            ListRowCount = 1
        Else
            ListRowCount = .End(xlDown).row - .row + 1
        End If
    End With
End Function

但如果你确定列表中没有任何内容，那么只需thisworkbook.Names(FirstCellName).RefersToRange.CurrentRegion.rows.count

其他提示

Sheet1.Range("myrange").Rows.Count

为什么不使用Excel公式来确定行？例如，如果您要查找列A中包含数据的单元格数量，请使用以下命令：

= COUNTIFS（A：<！>; <！>; <！>; <！> A，QUOT LT GT QUOT）

您可以替换<！> lt; <！> gt;使用任何值来获取有多少行具有该值。

= COUNTIFS（A：<！>; <！> A，QUOT 2008 QUOT）

这也可以用于连续查找填充的单元格。

您也可以使用：

Range( RangeName ).end(xlDown).row

从命名范围开始查找包含数据的最后一行。

我相信你可能想要@GSerg给出的答案。还有一个名为rows的工作表函数，它将为您提供行数。

因此，如果您有一个名为Data且有7行的命名数据范围，则=ROWS(Data)将在该单元格中显示7。

唯一的最后一行完美地运作了@GSerg。

另一个功能是我一直在努力的，但除非绝对必要，否则我不想使用UDF。

我一直在尝试使用excel和vba的组合并让它发挥作用 - 但与你的答案相比它很笨重。

strArea = Sheets("Oper St Report CC").Range("cc_rev").CurrentRegion.Address
cc_rev_rows = "=ROWS(" & strArea & ")"
Range("cc_rev_count").Formula = cc_rev_rows
许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top