关于忽略隐藏行提取数据的问题！

wbjiqpl

'Sheet14.Range("C3").Value = Sheet14.Range("T4").End(xlDown).Offset(10, 0)
是将T4向下的第十行数据提取到C3 .但是如果中间有隐藏行怎么办，想忽略掉隐藏行，只提取可见行向下第十的数据。求大神帮忙看一下。

liulang0808

楼主可以向下遍历，根据是是否可见进行计数，然后提取啊

wbjiqpl

liulang0808 发表于 2018-10-1 17:03
楼主可以向下遍历，根据是是否可见进行计数，然后提取啊

有可能中间会隐藏五千以上的行，遍历就是怕影响速度。

liulang0808

wbjiqpl 发表于 2018-10-1 17:41
有可能中间会隐藏五千以上的行，遍历就是怕影响速度。

楼主上传附件看看吧

wbjiqpl

liulang0808 发表于 2018-10-1 18:26
楼主上传附件看看吧

附件已上传，还请版主出手相助

liulang0808

wbjiqpl 发表于 2018-10-1 19:50
附件已上传，还请版主出手相助

楼主结合附件内容举例说明下，具体要干什么？
附件跟之前的描述有出入 啊

不知道为什么

wbjiqpl 发表于 2018-10-1 19:50
附件已上传，还请版主出手相助

不知道你到底想要什么？
猜你的题意，可以用 specialcells(xlcelltypevisible)

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     Set Rng = Range([d5], Cells(r, 4)).SpecialCells(xlCellTypeVisible)
   
5.     If Rng.Cells.Count >= 10 Then
   
6.         a = 1
   
7.         For Each rn In Rng
   
8.             If a = 10 Then
   
9.                 [c2] = rn.Value
   
10.                 Exit For
    
11.             End If
    
12.             a = a + 1
    
13.         Next rn
    
14.     End If
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

liulang0808

附件内容供参考。。。

wbjiqpl

liulang0808 发表于 2018-10-1 20:24
附件内容供参考。。。

谢谢版主，本以为一句就能解决，没想到这么复杂。你的代码能实现我的需要。其它的都可以提取，为怎么唯独有一个单号无法提取，还 麻烦您再看一下。