excel vba 如何得到筛选后可见单元格的总的行数是多少请高手指点啊！

根据zrqihg的提示，编制了下面的函数，总行数是数组的元素个数-2（因为0我没使用，1是标题行）

函数返回的是一个数组，从元素2开始是各行的行号。

Sub 函数调用()

    Dim 行号 As Variant

    行号 = GetRowNum("A")

    '所得行号是一个数组，其中行号(0)未使用，如查筛选的第一行是标题的话，行号(1)是标题所在行，所以你的结果

是从行号(2)开始的。

End Sub

Function GetRowNum(Col As String) As Variant

    Dim i As Long

    Dim rng As Range

    Dim rng2 As Range

    Dim RowS()

    i = 1

    '将筛指定列的可见数据赋给rng，12是可见，2是常量，23是16+4+1+2

    Set rng = Range(Col & ":" & Col)SpecialCells(12)SpecialCells(2, 23)

    ReDim RowS(0 To rngCount)

    For Each rng2 In rng

        RowS(i) = rng2Row

        i = i + 1

    Next

    GetRowNum = RowS

End Function

excel获取指定工作表的行数、列数的具体 *** 作方法如下：

1首先，打开Excel软件

2打开源数据文件，假如需要根据证券代码显示出行业名称。现在，在I1单元格输入”证券代码“，在J1单元格输入”Nnindnme"。

3如图，选中J2单元格，单击工具栏中的"插入函数“

4d出”插入函数“对话框，选择插入IF函数

5在d出的”函数参数“对话框中，设置Logical_test参数为”I2=“”，将Value_if_true设置为“”，在Value_if_false参数框中输入“VLOOKUP(I2,A2:B2846,2)，然后点击确定

比如，表1是几百行数据，表2中是需要查找的行数， 并把整行复制到表2中，怎么 *** 作

在表2要查找的是表1中的第3、7、12、32、45、76、81、101、123……行，并把这些行数里整行数据复制表1里，

举个例子，1-14行中，有一些行被隐藏了，A列中都有数据，A15中输入

=SUBTOTAL(103,A1:A14)

就能算出其中不被隐藏的个数。

以上就是关于excel vba 如何得到筛选后可见单元格的总的行数是多少请高手指点啊！全部的内容，包括:excel vba 如何得到筛选后可见单元格的总的行数是多少请高手指点啊！、vba excel怎么获取指定工作表的行数、列数、EXCEL查总行数该怎么做等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！