思路：右键点击工作表标签 移动或复制工作表 选择工作表中的位置 勾选 建立副本 复制此工作表CTRL+H 查找内容 选择格式 选取红色字体之外的任一字体 替换为 （不填） 全部替换。重复查找替换，直到剩下红字的数据。
这个不能筛选 建议使用VBA
