Excel里如何标记数字已删？如何快速删除标记的数字？
作者：佚名|分类：EXCEL|浏览：58|发布时间：2025-04-11 03:09:01
Excel里如何标记数字已删？如何快速删除标记的数字？
在Excel中，我们经常需要对数据进行处理，有时候可能会删除一些数字，但又需要标记这些数字已被删除。同时，当我们完成标记后，可能还需要快速删除这些标记。以下将详细介绍如何在Excel中标记已删除的数字，以及如何快速删除这些标记。
一、如何标记数字已删？
1. 使用条件格式
（1）选中需要标记的数字所在的单元格区域。
（2）点击“开始”选项卡中的“条件格式”按钮，选择“新建规则”。
（3）在弹出的“新建格式规则”窗口中，选择“使用公式确定要设置格式的单元格”。
（4）在“格式值等于以下公式时”输入框中输入公式：“=COUNTIF($A$1:$A$10,A1)=0”，其中A1为需要标记的数字所在单元格，A10为该数字所在列的最后一个单元格。
（5）点击“格式”按钮，选择合适的格式，如红色字体、删除线等。
（6）点击“确定”按钮，返回“新建格式规则”窗口，再次点击“确定”按钮。
2. 使用自定义数字格式
（1）选中需要标记的数字所在的单元格区域。
（2）点击“开始”选项卡中的“数字”按钮，选择“自定义”。
（3）在“类型”框中输入“[Red]已删除”，其中[Red]表示红色字体。
（4）点击“确定”按钮。
二、如何快速删除标记的数字？
1. 使用查找和替换功能
（1）选中需要删除标记的数字所在的单元格区域。
（2）点击“开始”选项卡中的“查找和选择”按钮，选择“查找”。
（3）在“查找内容”框中输入“[Red]已删除”，点击“查找下一个”按钮。
（4）选中查找到的标记，按“Delete”键删除。
2. 使用VBA宏
（1）按下“Alt + F11”键，打开VBA编辑器。
（2）在“插入”菜单中选择“模块”，在打开的代码窗口中输入以下代码：
```vba
Sub DeleteMarkedNumbers()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") '修改为你的工作表名称
Dim rng As Range
Set rng = ws.UsedRange '修改为你的数据区域
Dim cell As Range
For Each cell In rng
If InStr(cell.Text, "[Red]已删除") > 0 Then
cell.Text = Replace(cell.Text, "[Red]已删除", "")
End If
Next cell
End Sub
```
（3）关闭VBA编辑器，回到Excel界面。
（4）按下“Alt + F8”键，选择“DeleteMarkedNumbers”，点击“运行”。
三、相关问答
1. 问题：如何设置条件格式，使已删除的数字显示为红色字体？
答案：在“新建格式规则”窗口中，选择“使用公式确定要设置格式的单元格”，在“格式值等于以下公式时”输入框中输入公式：“=COUNTIF($A$1:$A$10,A1)=0”，然后点击“格式”按钮，选择合适的格式，如红色字体。
2. 问题：如何使用自定义数字格式标记已删除的数字？
答案：在“数字”选项卡中选择“自定义”，在“类型”框中输入“[Red]已删除”，其中[Red]表示红色字体。
3. 问题：如何快速删除标记的数字？
答案：可以使用查找和替换功能，在“查找内容”框中输入“[Red]已删除”，选中查找到的标记，按“Delete”键删除。或者使用VBA宏，在VBA编辑器中输入相应的代码，然后运行宏。
4. 问题：如何设置VBA宏，使已删除的数字被删除？
答案：在VBA编辑器中输入以下代码：
```vba
Sub DeleteMarkedNumbers()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") '修改为你的工作表名称
Dim rng As Range
Set rng = ws.UsedRange '修改为你的数据区域
Dim cell As Range
For Each cell In rng
If InStr(cell.Text, "[Red]已删除") > 0 Then
cell.Text = Replace(cell.Text, "[Red]已删除", "")
End If
Next cell
End Sub
```
然后关闭VBA编辑器，回到Excel界面，按下“Alt + F8”键，选择“DeleteMarkedNumbers”，点击“运行”。