【已完成】VBA自动筛选并保存到另外一个sheet

s_clwu

想做简单网络质量监控，在sheet1里有ip地址表（地址表会不定期增加减少），每隔1分钟去ping一遍，把ping不通的标记为失败，自动筛选复制到sheet2，复制到第一行或最后一行都无所谓，只要保留失败记录就行了 ，sheet2每10000行备份到D盘另外一个excel文件，名字如“备份20160427”之类。

现在已经有部分模块已经写好，但是写不下去了，求高手帮忙。
不知道有奖求助违不违规，如果不违规，请完成后回复附件和附微信号前几位，并加微信号s_clwu ，本人将发20元红包给第一个完成的大侠，感谢帮助！

grf1973

在Myping中 把 Sheet1.Cells(i, 5) = "失败" 这句话写到所有填充单元格的最后
sheet1里写入

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column <> 5 Then Exit Sub
   
3.     If Target = "失败" Then
   
4.         With Sheet2
   
5.             r = .[a65536].End(3).Row + 1
   
6.             .Cells(r, 1).Resize(1, 8).Value = Cells(Target.Row, 1).Resize(1, 8).Value
   
7.         End With
   
8.     End If
   
9. End Sub
   

复制代码

未经测试，不知行不行。照理能写出那么复杂代码的没理由想不到这么做的。。。。

s_clwu

grf1973 发表于 2016-4-27 15:54
在Myping中 把 Sheet1.Cells(i, 5) = "失败" 这句话写到所有填充单元格的最后
sheet1里写入未经测试，不知 ...

不是我写的，前前任写的.......我啥都不会求高手出成品，感谢！！！

grf1973

。。。。。。。。。。。。

s_clwu

grf1973 发表于 2016-4-27 19:08
。。。。。。。。。。。。

可以扫描了，但是没有把筛选的失败结果复制到sheet2，大侠能有空帮忙继续做一下吗？谢谢！

s_clwu

顶一下

s_clwu

学习论坛其他贴的方法，已基本实现功能