Question

请问在excel vba中用筛选条件筛选出数据后，如何实现取前十行符合条件的数据剪切后删除

Answer 1

最好是用原始数据图+结果数据图，加以说明。你这样说存在模糊概念，别人很难知道你想干啥

追问

有五十列五十行数据，已第三列等于0为条件进行筛选，其中然后在筛选后的数据中，选取前十行进行选择复制。

这里想将筛选结果中的前N行进行剪切怎么实现

追答

具体不太清楚你要干什么，给你提两点建议
①Application.InputBox("请输入提取项数", Type:=8)
参数Type:=8就已经限制了只能输入数值。
②既然只是获取前n项列的数据，何不直接遍历判断再操作？理论上效率也高很多。
先用inputbox函数获取项数，在用循环判断再操作。
如

dim a as byte，b as long，c as byte a=Application.InputBox("请输入提取项数", Type:=8)
for b =1 to [A65536].end(xlup).row
if a=0 then exit sub
if cells(b,9).value=0 then
'操作，行号(b)满足条件时。
a=a-1 '倒计数
end if
next b

只需要a和b两个变量就行了

追问

请问怎么才能实现对筛选出来可见的结果进行选择，复制和删除

追答

自己录制个宏就清楚了。我的意思还是不建议筛选操作，你筛选了它怎么去识别你所谓的多少可视行？
你的思路还局限在筛选上。不筛选依然能够操作，甚至效率上会有很大提升。只要结果是你想要的

这就好比，现在有一万个房间。你需要找出前10个房间里有人的(查找)，且把里面的人拉到某个位置(操作)。
你说是把它们全部找一遍，再决定把前十个有人的房间里的人清理到某个位置呢，还是直接去找前十个有人的房间结束战斗呢？

追问

a只是用来做循环的次数是吧

追答

很明显，a只是倒计数，当a=0时，结束过程。每复合一次条件时a自动-1

追问

明白了，谢谢你，以后有问题还可以咨询您吗？

追答

我只是偶尔上来看看