如何快速在Excel中找出分数低于80的项？
作者：佚名|分类：EXCEL|浏览：156|发布时间：2025-04-05 16:07:59
如何快速在Excel中找出分数低于80的项？
在Excel中，经常需要对数据进行筛选和分析。其中，找出分数低于80的项是一项常见的操作。以下是一些快速找出分数低于80的项的方法，帮助您提高工作效率。
一、使用筛选功能
1. 打开Excel表格，选中包含分数的列。
2. 点击“数据”选项卡，在“排序和筛选”组中，选择“筛选”。
3. 在分数列的筛选下拉菜单中，点击“数字筛选”，然后选择“小于”。
4. 在弹出的对话框中，输入80，点击“确定”。
5. 此时，Excel会自动筛选出分数低于80的项。
二、使用条件格式
1. 选中包含分数的列。
2. 点击“开始”选项卡，在“样式”组中，选择“条件格式”。
3. 在下拉菜单中，选择“新建规则”。
4. 在弹出的对话框中，选择“使用公式确定要设置格式的单元格”，然后在公式编辑框中输入“=$C2<80”（假设分数在C列），点击“确定”。
5. 此时，Excel会自动将分数低于80的项设置为指定的格式。
三、使用高级筛选
1. 选中包含分数的列。
2. 点击“数据”选项卡，在“排序和筛选”组中，选择“高级”。
3. 在弹出的对话框中，选择“将筛选的结果复制到其他位置”。
4. 在“复制到”框中，选择一个空白区域，用于存放筛选结果。
5. 在“标准区域”框中，选择包含分数的列。
6. 在“复制到”框下方，勾选“只显示筛选的记录”。
7. 在“条件区域”框中，选择一个空白区域，用于存放筛选条件。
8. 在该区域中，输入“分数小于80”，点击“确定”。
9. 此时，Excel会自动筛选出分数低于80的项，并将结果复制到指定的空白区域。
四、使用VBA编写宏
1. 打开Excel，按下“Alt + F11”键，进入VBA编辑器。
2. 在“插入”菜单中，选择“模块”，在打开的代码窗口中输入以下代码：
```
Sub FindScoresBelow80()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim score As Double
Set ws = ThisWorkbook.Sheets("Sheet1") '假设数据在Sheet1
Set rng = ws.Range("C2:C100") '假设分数在C列，数据从第2行开始
For Each cell In rng
score = cell.Value
If score < 80 Then
cell.Interior.Color = RGB(255, 0, 0) '将低于80的分数设置为红色
End If
Next cell
End Sub
```
3. 关闭VBA编辑器，回到Excel界面。
4. 按下“Alt + F8”键，选择“FindScoresBelow80”，点击“运行”。
通过以上方法，您可以在Excel中快速找出分数低于80的项。下面是相关问答环节：
相关问答
1. 问题：如何设置筛选条件为分数大于等于80？
回答：在“数字筛选”下拉菜单中，选择“大于等于”，然后在弹出的对话框中输入80，点击“确定”。
2. 问题：如何将筛选结果导出到新的工作表？
回答：在“高级筛选”对话框中，勾选“将筛选的结果复制到其他位置”，然后在“复制到”框中，选择一个空白区域，点击“确定”。
3. 问题：如何使用VBA批量修改低于80的分数为红色？
回答：在VBA代码中，将以下代码添加到“FindScoresBelow80”子程序中：
```
If score < 80 Then
cell.Interior.Color = RGB(255, 0, 0)
End If
```
4. 问题：如何将筛选结果导出到Excel之外的文件格式？
回答：在“高级筛选”对话框中，勾选“将筛选的结果复制到其他位置”，然后在“复制到”框中，选择一个空白区域。复制筛选结果后，可以使用Excel的“另存为”功能，将文件保存为其他格式，如CSV、TXT等。