在Excel 工作表中，打了红色的要删除，时间要一分种一个点就可以了。B和C也要整点的，数据有上万条，

Question

如题所述

Answer 1

选定区域后点上面菜单栏的编辑（或者按快捷键CTRL+H）一查找一点格式一点左下角的“从单元格选择格式”（如果能确定是什么颜色直接在字体颜色中选也可以）一查找全部一下拉滚动条到最后面1个被选中的目标一按SHIFT+鼠标左键点最后1条一关闭一鼠标右击被选出来的任意区域一在选项卡选删除一整行一确定
这样红色字体被删除并且自动去掉被删除后的空行没被删除的字体向上移

Answer 2

单击“编辑----查找”菜单，在对话框中点“选项”-----“格式”----“字体”----“颜色”：红色-----查找全部，在下边框中点第一个再按住shift键点最后一个，把找到的全部选中，关闭退出后，单击“编辑----删除行”。

Answer 3

编辑——替换——查找内容（选项——格式——字体颜色选红色）——查找全部——替换内容（空）——替换全部
数据——筛选——自动筛选——选空白——删除没数据的行

Answer 4

确定你的数据A 列都是顺序的，或者说相同的都在一起，那就可以试试下面这个。
还有颜色是不是红色，不是就自己改。
Private Function Myfunction()
Dim i As Long
For i = UsedRange.Rows.Count To 1 Step -1
If Range("A" & i).Font.Color = vbRed Or Range("A" & i).Value = Range("A" & i + 1).Value Then Rows(i).Delete
Next
End Function追问

你这个怎么用啊，用起没得反映得啊
高手指点，有没有简单点 的

追答

987122817 QQ，这里不方便截图。
右键你要处理的 表名 如 sheet1，选择 查看代码。把代码复制进去，然后啊光标 是光标不是鼠标，定位到代码内，按下F5即可、、
Private Function Myfunction()
Dim i As Long
For i = UsedRange.Rows.Count To 1 Step -1
If Range("A" & i).Font.Color = vbRed Then Rows(i).Delete '红色 删除
If InStr(Range("B" & i).Value, ".") Then Rows(i).Delete 'B列小数 删除，注意小数点是英文的。
If InStr(Range("C" & i).Value, ".") Then Rows(i).Delete 'C列小数 删除
Next
For i = UsedRange.Rows.Count To 1 Step -1
If Range("A" & i).Value = Range("A" & i + 1).Value Then Rows(i).Delete '去重
Next
End Function

本回答被网友采纳