在Excel里，怎样替换区域内的数字？

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:21:07
我在Excel里，统计学生成绩时，想把分数为0-59的数字替换成“●”，试了很多方法，都不行，请问哪个高手有什么更好的方法。

一列一列用自动筛选，按条件<60筛选，然后把“●”复制粘贴.

或者用六次替换：
5？替换为"●"
4？替换为"●"
3？替换为"●"
2？替换为"●"
1？替换为"●"
？替换为"●" 此时条件：单元格匹配

在宏里写下下面的代码
Sub DD()

Dim D(10) As Integer
For j = 1 To 10
For i = 1 To 10 'i是行号
If (Range("E" & i) < 60) Then 'E是列号
ActiveCell.Cells(i, j) = "●"
End If
Next i
Next j
End Sub