在Excel中处理对象组时，创建一个循环来替换多个嵌套的if语句

Sub ReplaceNestedIf()
    Dim i As Integer
    Dim objGroup As Range
    
    ' 设置对象组的范围
    Set objGroup = Range("A1:A10")
    
    ' 循环遍历对象组
    For i = 1 To objGroup.Rows.Count
        ' 获取当前对象
        Dim obj As Range
        Set obj = objGroup.Cells(i)
        
        ' 判断对象的值并替换
        If obj.Value = "A" Then
            obj.Value = "Apple"
        ElseIf obj.Value = "B" Then
            obj.Value = "Banana"
        ElseIf obj.Value = "C" Then
            obj.Value = "Cherry"
        Else
            obj.Value = "Unknown"
        End If
    Next i
End Sub