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

ruhong18

林木水 发表于 2021-11-18 19:16
不用修改呀，我这个代码就已经考虑了，如果Range里面字符，也就是sr长度超过255，比如这个时候i=250，会 ...

好的，明白，谢谢~

cutecpu

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 起始值

ruhong18

cutecpu 发表于 2021-11-18 21:57
1. 2003 适用
2. 新增 O1 起始值

完美~正解~感谢！

林木水

cutecpu 发表于 2021-11-18 21:57
1. 2003 适用
2. 新增 O1 起始值

为什么你的没有定义就可以直接使用cnt i

大灰狼1976

林木水 发表于 2021-11-19 11:56
为什么你的没有定义就可以直接使用cnt i

可以了解一下vba变量的显式声明和隐式声明。

ruhong18

ruhong18 发表于 2021-11-19 09:45
完美~正解~感谢！

老师，如何撤销您以上的操作？我用了撤销隐藏和撤销筛选都不行，无法恢复原状，请您指点~

林木水

ruhong18 发表于 2021-11-19 13:32
老师，如何撤销您以上的操作？我用了撤销隐藏和撤销筛选都不行，无法恢复原状，请您指点~

rows("2:1000").hidden=false
这个行号范围自己根据需要去设置，=false也就是取消隐藏，=true就是隐藏

ruhong18

林木水 发表于 2021-11-19 16:17
rows("2:1000").hidden=false
这个行号范围自己根据需要去设置，=false也就是取消隐藏，=true就是隐藏

您好，我的意思是cutecpu老师2003附件里面的代码筛选后无法结合用您的“取消隐藏”取消掉，恢复原状？

Sub 取消隐藏()
Range("A:A").EntireRow.Hidden = False
End Sub
即以上代码取消隐藏不起效果！

林木水

ruhong18 发表于 2021-11-19 17:12
您好，我的意思是cutecpu老师2003附件里面的代码筛选后无法结合用您的“取消隐藏”取消掉，恢复原状？

...

理论上来说是没问题的，你要不截个图看看吧。

我怀疑你range("A:A")并不是你所需要的单元格的Range，在前面再加个worksheets("表格名称")，还不行再加个Workbooks("工作簿名字带格式")

ruhong18

林木水 发表于 2021-11-19 18:03
理论上来说是没问题的，你要不截个图看看吧。

我怀疑你range("A:A")并不是你所需要的单元格的Range， ...

帮忙看下附件：取消隐藏