怎么获取筛选出来的数据中第一条数据的对应行的行号

felicityxin

    写了一下程序如下（前面的定义及筛选程序省略未贴），主要是实现在筛选出来的数据中隐藏无效数据行的数据，实现数据的再次筛选。
问题在于，不报错，但是运行结束没有实现第二次的无效数据的隐藏，进行端点监视后发现，fr与nr数据为空。希望实现第二次筛选，或者有无其他方法可以实现该功能，谢谢！

    fr = ActiveSheet.Cells(Rows.Count, 1).End(xlDown).Row  '获取第一次筛选后第一条数据行的行号
    nr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1   '获取第一次筛选后最后一条数据行的下一行行号
     '再对AC2order和AC2sales无效值进行筛选
    For i = fr To nr Step 1                         '从选出来的起始行号开始到选出来的行号结束
      If Cells(i, 53) = "" And Cells(i, 56) = "" Then
        Rows(i).Select
      ElseIf Cells(i, 53) = "0" And Cells(i, 56) = "" Then
        Rows(i).Select
      ElseIf Cells(i, 53) = "" And Cells(i, 56) = "0" Then
        Rows(i).Select
      ElseIf Cells(i, 53) = "0" And Cells(i, 56) = "0" Then
        Rows(i).Select
      End If
      Selection.EntireRow.Hidden = True
    Next i

BenjaminToo

就算你第一次隐藏了一些数据，循环语句中也一样遍历每一行的

felicityxin

BenjaminToo 发表于 2018-7-27 14:29
就算你第一次隐藏了一些数据，循环语句中也一样遍历每一行的

嗯嗯，在for循环里面的话隐藏的会遍历，但是找到第一行行号的话，至少在第一个行号前面的数据就不必遍历了吧，因为数据很多，所以想尽量少遍历一些数据。

lsdongjh

fr = ActiveSheet.Cells(Rows.Count, 1).End(xlDown).Row  这句什么意思？工作表最后一行向下，你想干什么？

‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
    For i = fr To nr Step 1                         '从选出来的起始行号开始到选出来的行号结束
      If Cells(i, 53) = "" And Cells(i, 56) = "" Then
        Rows(i).Select
      ElseIf Cells(i, 53) = "0" And Cells(i, 56) = "" Then
        Rows(i).Select
      ElseIf Cells(i, 53) = "" And Cells(i, 56) = "0" Then
        Rows(i).Select
      ElseIf Cells(i, 53) = "0" And Cells(i, 56) = "0" Then
        Rows(i).Select
      End If
      Selection.EntireRow.Hidden = True
    Next i
’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’是不是 三句话？

    For i = fr To nr Step 1                         '从选出来的起始行号开始到选出来的行号结束
      If val(Cells(i, 53))+val( Cells(i, 56) )=0  Then Rows(i).Hidden = True
    Next i