把100分改成“满分”

如图，把下图的100分改成“满分”

 

 

Option Explicit
Sub o()
    Dim r As Long, c As Long
    Dim rng As Range
    Set rng = Range("A1:H1").Offset(7, 0).Resize(8)
    rng.Select
End Sub

Sub p()
    Dim r As Long, c As Long
    Dim rng As Range
    Set rng = Range("k3").Offset(7, -8).Resize(5, 6)
    rng.Select
End Sub


Sub 满分()
    Dim rng As Range, c As Long
    Set rng = [a7:h15].Find(100)
    rng.Value = "满分"
    Do
        Set rng = Range("a7:h15").FindNext(rng)
        If rng Is Nothing Then
            Exit Do
        Else
            rng.Value = "满分"
        End If
    Loop

End Sub

结果如下图所示