什么是包含隐藏行和隐藏列

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 - >计数方法，它在到达隐藏行时停止计数。

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

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

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

可悲的是.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个可见的行。我们不知道哪些是可见的。我们也不知道这些可见行中是否包含数据或为空。

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

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

Answer 3

您可以使用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