如何才能正确获取到筛选后的记录数

微冻之后

1. Sub test()
   
2. Dim rnd, rnds As Integer
   
3. Dim x As Range
   
4. With Worksheets("数据总表")
   
5. .Range("a1").AutoFilter _
   
6.         Field:=2, Criteria1:="14333331060004"
   
7. rnds = .AutoFilter.Range.Rows.Count - 1
   
8. Set x = .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
   
9. For i = 1 To x.Areas.Count
   
10.    rnd = rnd + x.Areas(i).Rows.Count
    
11.          
    
12. Next
    
13. MsgBox ("rnd" & rnd & "  rnds " & rnds)
    
14. End With
    
15. End Sub

复制代码

如图为何显示出有16条数据。遇到这样的问题，应该如何获取正确的筛选行数！？

jsxjd

上传文档……

微冻之后

jsxjd 发表于 2013-9-18 16:28
上传文档……

求助 v1.rar (21.03 KB, 下载次数: 40)

2013-9-18 16:45 上传

点击文件名下载附件

在sub test()里有具体代码，我找到了一个种方法。
又有一个新问题，请您帮忙解决下。
如何获取筛选出来的数据的前5条，将其移动到指定目标后，再将第5条以后的数据，移动到一个地方。

1. Set wsht = Worksheets("数据总表")

复制代码

jsxjd

1.     MsgBox Application.WorksheetFunction.Subtotal(103, Sheets("数据总表").[A:A])
   

复制代码

微冻之后

jsxjd 发表于 2013-9-18 17:09

谢谢 请在看看这个问题，我给你准备鲜花去~~ 求助 v1 - 副本.rar (13.68 KB, 下载次数: 17)

2013-9-18 17:38 上传

点击文件名下载附件

如何获取筛选出数据的若干行，并进行复制

jsxjd

要复制哪几行？到哪里？

微冻之后

jsxjd 发表于 2013-9-19 09:50
要复制哪几行？到哪里？

复制前五行，复制到其他Sheet下，如果还有第六行。。 再把第六、七、、行复制到其他地方

jsxjd

微冻之后 发表于 2013-9-19 11:04
复制前五行，复制到其他Sheet下，如果还有第六行。。 再把第六、七、、行复制到其他地方

1. Sub copy15()
   
2.     Set r = Sheets("数据总表").Range("B1:B" & [B65536].End(xlUp).Row)
   
3.     n1 = 1: n2 = 5
   
4.     i = 0
   
5.     For Each c In r
   
6.         k = Application.WorksheetFunction.Subtotal(103, c)
   
7.         If k = 1 Then
   
8.             i = i + 1
   
9.             If (i >= n1) And (i <= n2) Then
   
10.                 Rows(c.Row).Copy Sheet1.Rows(i)
    
11.             End If
    
12.         End If
    
13.     Next
    
14. End Sub
    

复制代码

hlly888

微冻之后 发表于 2013-9-18 17:39
谢谢 请在看看这个问题，我给你准备鲜花去~~如何获取筛选出数据的若干行，并进行复制

求助 v1 - 副本.rar (16.41 KB, 下载次数: 50)

2013-9-19 18:16 上传

点击文件名下载附件

微冻之后

jsxjd 发表于 2013-9-19 11:44

谢谢。指点~