Excel vba从单元格内容中选择

Sub SelectDataFromCell()
    Dim cellValue As String
    Dim selectedData As String
    
    ' 获取单元格内容
    cellValue = Range("A1").Value
    
    ' 根据条件选择数据
    If cellValue = "条件1" Then
        selectedData = "选择的数据1"
    ElseIf cellValue = "条件2" Then
        selectedData = "选择的数据2"
    Else
        selectedData = "默认选择的数据"
    End If
    
    ' 将选择的数据输出到另一个单元格
    Range("B1").Value = selectedData
End Sub