VBA学习第五课

Sub shishi()

Dim rng As Range

For Each rng In Range("b2:b20")
    If rng.Offset(0, -1) = "男" Then
    rng = "先生"
    Else: rng = "女士"
    End If
Next



End Sub
Sub shishi()

Dim rng As Range

For Each rng