excel表导入AD20生成对应管教

你可以使用Excel VBA来导入Excel表格并生成对应的管教。以下是一个示例代码，可以根据你的需求进行相应的修改：

Sub Generate管教()
    Dim ws As Worksheet
    Dim AD20Range As Range
    Dim cell As Range
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 设置AD20的范围，根据实际情况修改
    Set AD20Range = ws.Range("AD20")
    
    ' 循环遍历AD20范围内的每个单元格
    For Each cell In AD20Range
        ' 根据单元格的值生成对应的管教
        Select Case cell.Value
            Case "A"
                cell.Offset(0, 1).Value = "管教A"
            Case "B"
                cell.Offset(0, 1).Value = "管教B"
            Case "C"
                cell.Offset(0, 1).Value = "管教C"
            ' 添加更多的条件和对应的管教
            ' Case "D"
            '     cell.Offset(0, 1).Value = "管教D"
            ' Case "E"
            '     cell.Offset(0, 1).Value = "管教E"
            ' ...
            Case Else
                cell.Offset(0, 1).Value = "未知管教"
        End Select
    Next cell
End Sub

将上述代码复制粘贴到Excel VBA编辑器中（按下ALT+F11打开），然后保存并运行`Generate管教()`宏。该代码将会遍历AD20范围内的每个单元格，根据其值生成对应的管教，并在当前单元格的右侧输出管教信息。

请注意，你需要根据实际情况调整AD20范围和管教的对应关系。还可以根据需要添加更多的条件和对应的管教。