包含隐藏行和隐藏列的范围中的最后一个可见行是什么

Question

我写在下面

ThisWorkbook.Worksheets("Sheet1").Range("tblInsurance").SpecialCells(xlCellTypeVisible).Rows.Count

指向tblInsurance表的最后一行。

我在方法参数中将ThisWorkbook.Worksheets("Sheet1").Range("tblInsurance") 传递为：

General.CsvExportRange rngRange:=ThisWorkbook.Worksheets("Sheet1").Range("tblInsurance")

和CsvExportRange 方法包含rngRange.Rows.Count 行，用于查找范围的最后一行。

但是当到达隐藏行时，它停止计数并返回隐藏行之前的最后一行的编号。

当我在下面使用时：

ThisWorkbook.Worksheets("Sheet1").Range("tblInsurance").SpecialCells(xlCellTypeVisible).Select

范围完全由范围内可见区域周围的分隔边界选择。

似乎问题出在.SpecialCells(xlCellTypeVisible).Rows.Count->count 方法中，该方法在到达隐藏行时停止计数。

我正在阅读类似的帖子和网络讨论，但它们不包含上述主要问题。 （当范围包含隐藏行时，计算范围行以查找最后一个行号。）

这个问题是一个类似的问题，当我尝试计算包含一些隐藏列的范围列时，例如 - 到达最后一个。

Answer 1

这个问题很有趣。我从来没有想过这个问题。 试试这个：

Sub test()
Dim rngDB As Range, rng As Range
Dim n As Integer, c As Integer, cnt As Integer

Set rngDB = ThisWorkbook.Worksheets("Sheet1").Range("tblInsurance").SpecialCells(xlCellTypeVisible)
c = rngDB.Columns.Count
For Each rng In rngDB
    n = n + 1
Next
cnt = n / c
MsgBox cnt
End Sub

如果你需要知道最后一个单元格的行数，试试这个：

Sub test2()
Dim rngDB As Range, rng As Range
Dim n As Integer
Set rngDB = ThisWorkbook.Worksheets("Sheet1").Range("tblInsurance").SpecialCells(xlCellTypeVisible)
  n = rngDB.SpecialCells(xlCellTypeLastCell).Row
  MsgBox "My last row number is : " & n
End Sub

我当然测试过。

编辑 我理解你的问题。试试这样。

Sub test3()
Dim rngDB As Range, rng As Range
Dim n As Integer, r as Long, c as Integer
Set rngDB = ThisWorkbook.Worksheets("Sheet1").Range("tblInsurance").SpecialCells(xlCellTypeVisible)

    With rngDB
        r = .Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        C = .Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        Set rng = Range("a1", .Cells(r, C))
    End With

  MsgBox "My last row number is : " & r
End Sub

Answer 2

您可以使用 Range.end(xlup).row 找到最后一个可见行；如果 a1:a100 包含数据但 A8:a100 行被隐藏，则此代码将显示第 7 行

Sub lastvis()
MsgBox Range("A1000").End(xlUp).Row
End Sub

或者，如果使用表格，请尝试使用此方法查找最后一个可见行。

Sub lastvis2()
MsgBox Range("tblInsurance").End(xlDown).Row
End Sub

Answer 3

遗憾的是 .Count 并没有为我们提供太多信息。假设我们只有一列 A1-A100，我们运行：

Sub dural()
    Dim r As Range, r2 As Range

    Set r = Range("A1:A100")
    Set r2 = r.SpecialCells(xlCellTypeVisible)

    MsgBox r2.Rows.Count
End Sub

在运行时，宏会为我们提供 4。

您所知道的是表中的某处有 4 行可见。我们不知道哪些是可见的。我们也不知道这些可见行是否包含数据或为空。

我们能做的最好的就是循环遍历表格，从底部开始。

当我们遇到既可见又非空的行时，停止并报告行号。

Answer 4

.SpecialCells(xlCellTypeVisible) 返回一个多区域范围。您可以使用 Range.Areas 属性访问每个区域。 official documentation for Range.Count 给出了这个例子：

Sub DisplayColumnCount() 
    Dim iAreaCount As Integer 
    Dim i As Integer

    Worksheets("Sheet1").Activate 
    iAreaCount = Selection.Areas.Count 
 
    If iAreaCount <= 1 Then 
        MsgBox "The selection contains " & Selection.Columns.Count & " columns." 
    Else 
        For i = 1 To iAreaCount 
            MsgBox "Area " & i & " of the selection contains " & _ 
            Selection.Areas(i).Columns.Count & " columns." 
        Next i 
    End If 
End Sub