[已解决]如何按序列好筛选行？

ruhong18

如何按A列序列好筛选行？ 比如逢1,11,21,31，。。。2,14,26,38,50.。。5,15,25,35,45,55。。。。。10.20.30.40.50.60.。。。

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-18 21:57

ruhong18 发表于 2021-11-18 17:14
就是5,15,25,35,45,55,65,75、。。。。。8,18,28,38,48,58,68,78，。。。类似这样的该怎么筛选？还有版本 ...

1. 2003 适用
2. 新增 O1 起始值

跳转到最佳答案楼层

cutecpu

Sub demo()
   cnt = [roundup(count(a:a)/k1,)]: ReDim a(cnt)
   For i = 0 To cnt - 1: a(i) = i * [k1] + 1 & "": Next
   Sheet25.[a1].AutoFilter Field:=1, Criteria1:=a, Operator:=xlFilterValues
End Sub

祝順心，南無阿彌陀佛！

ruhong18

cutecpu 发表于 2021-11-18 15:56
Sub demo()
   cnt = [roundup(count(a:a)/k1,)]: ReDim a(cnt)
   For i = 0 To cnt - 1: a(i) = i * [k ...

Sheet25.[a1].AutoFilter Field:=1, Criteria1:=a, Operator:=xlFilterValues  
您好，老师：Sheet25.[a1].AutoFilter Field:=1, Criteria1:=a, Operator:=xlFilterValues运行出错？

cutecpu

ruhong18 发表于 2021-11-18 16:04
Sheet25.[a1].AutoFilter Field:=1, Criteria1:=a, Operator:=xlFilterValues  
您好，老师：Sheet25.[a ...

ruhong18

cutecpu 发表于 2021-11-18 16:09

噢，老师，那应该是版本的问题，我用的是03版的，应该07版以上的就可以，另外想请教一下老师，逢5，逢8，逢9，这些应该怎么筛选？

ruhong18

ruhong18 发表于 2021-11-18 16:29
噢，老师，那应该是版本的问题，我用的是03版的，应该07版以上的就可以，另外想请教一下老师，逢5，逢8， ...

就是5,15,25,35,45,55,65,75、。。。。。8,18,28,38,48,58,68,78，。。。类似这样的该怎么筛选？还有版本的问题有其他方式可以改吗？真的辛苦您了~

林木水

Sub 筛选()
Dim arr, i, sr, sr1
arr = Range("a2:a220")
Range("A2:A220").EntireRow.Hidden = True
For i = 1 To UBound(arr, 1)
    If Len(sr) > 255 Then
        sr = sr1
        Range(Left(sr, Len(sr) - 1)).EntireRow.Hidden = False
        sr = ""
        i = i - Range("k1").Value - 1
    Else
         sr1 = sr
         sr = sr & "A" & i + 1 & ","
         i = i + Range("k1").Value - 1
    End If
Next i
    Range(Left(sr, Len(sr) - 1)).EntireRow.Hidden = False
End Sub
Sub 取消隐藏()
Range("A:A").EntireRow.Hidden = False
End Sub

思路：
1.先把序号存入arr数组，对数组进行筛选所需要的值，用sr存档
2.再根据筛选的值与行号的关系是+1，使用EntireRow属性批量选取所需行，设置Hidden属性为false，其他行设置ture，就显示所需行，隐藏不需
3.特别注意的地方是，Range方法里面只能存255以内的字符，以及for循环自动+1，需要提前-1，才能从上一个i再次判断

林木水

cutecpu 发表于 2021-11-18 15:56
Sub demo()
   cnt = [roundup(count(a:a)/k1,)]: ReDim a(cnt)
   For i = 0 To cnt - 1: a(i) = i * [k ...

你这个怎么做到不用声明直接用的Cnt跟i哦

ruhong18

林木水 发表于 2021-11-18 17:43
Sub 筛选()
Dim arr, i, sr, sr1
arr = Range("a2:a220")

您好，这方法可以，但是如果超255行的话，应怎么修改呢？我需要筛选超255的。。。。

林木水

ruhong18 发表于 2021-11-18 17:53
您好，这方法可以，但是如果超255行的话，应怎么修改呢？我需要筛选超255的。。。。

不用修改呀，我这个代码就已经考虑了，如果Range里面字符，也就是sr长度超过255，比如这个时候i=250，会先处理一次。sr接着从251行开始又进行筛选，依次类推