Sub 删除包含指定内容的行()
'在工作中经常遇到需要筛选出不包含指定内容的数据行
' 删除包含指定内容的行 宏
'用这个宏可以解决问题

'sheet2内A列保存指定的内容，I1单元格保存指定内容的行数
'J1单元格保存需要操作的数据行数+2
'sheet1中B列用来对比，第一行为空行，第二行为标题行
'从第三行开始操作，操作后第一行一定会被删除
'对比当前单元格和指定内容有相同的就标记此行，最后一起删除。

Dim tm, im, jm, numx, delrng As Range, jmi, i, j, dict As Object
tm = Timer
numx = 0
jmi = 0
Sheets("Sheet2").Select
im = Cells(1, 9).Value
jm = Cells(1, 10).Value
'引用勾选：VBA窗体-工具-引用-勾选“Microsoft Scripting Runtime”
'生成字典
Set dict = CreateObject("scripting.dictionary")
For i = 1 To im
    dict(CStr(Cells(i, 1).Value)) = ""
Next
Sheets("Sheet1").Select
'设置标记区域为第一行
Set delrng = Rows(1)
Dim js
For j = 3 To jm
    '如果当前单元格存在于字典中
    If dict.exists(CStr(Cells(j, 2).Value)) Then
        '将当前行加入标记区域
        Set delrng = Union(delrng, Rows(j))
        numx = numx + 1
        jmi = jmi + 1
    End If
Next
delrng.Delete
With Sheet2
    .Cells(1, 10).Value = jm - jmi
    .Cells(1, 2).Value = "总共删除了" & numx & "行"
    .Cells(2, 3).Value = "用时：" & Format(Timer - tm, "0.00") & "秒"
End With

End Sub

现如今个人数据越来越多，数据量激增，手机电脑的存储器已经不能满足我们的日常需求，这是NAS现在非常流行的主要原因。
但是市面上的成品NAS动辄数千元，实在是价格高昂，那么有没有一种廉价的方法让自己也能用上NAS呢？
答案是肯定的。
相信很多人家里都有闲置的老旧电脑，使用起来非常慢，让人无法忍受，扔了可惜，用起来又什么都干不了。现在就可以把它利用起来自建NAS服务器了，省去了购买的NAS费用，如果硬盘容量不够只需要购买一块大容量的硬盘即可。

方法如下：

1. 把家里淘汰掉的老旧主机或者笔记本搬出来清洁一下。
2. 开机检查一下能否正常运行，看看还有没有需要备份的数据，有就复制出来。
3. 到网址：https://www.openmediavault.org/ 下载最新版的光盘镜像。
   openmediavault is the next generation network attached storage (NAS) solution based on Debian Linux.
4. 下载好之后用Rufus写入到一个1GB以上的空优盘里面。
5. 把准备好的电脑关机，插上刚刚制作好的优盘，开机选择从优盘启动，安装方法比安装Debian Linux系统还要简单，这里就不再赘述了。
6. 安装好之后开启FTP服务，在安装手机上下载一个AndFTP软件就可以把手机上的照片、视频和文件上传到NAS里面保存起来了。
7. 电脑上建议使用filezilla这个FTP客户端软件。

• Typecho如何在网站左侧植入广告，赚点小钱，细水长流，补贴一点主机租赁费用。
• 请知道的大哥在评论区留言指导一下，小网管感激不尽。
• 现在网站应该还没人能看见，等我自己研究一下，找到方法了再来评论吧。