在Excel中提取题库中的答案，可以通过以下几种方法实现，具体取决于题库的格式和答案的存储方式。以下是一些常见的方法：

方法一：使用“查找和替换”功能

如果答案在题库中是固定的格式，例如“答案：A”，可以通过以下步骤提取答案：

1. 打开Excel文件，选中包含题目的列。

2. 点击“开始”选项卡中的“查找与选择”，选择“查找”（快捷键Ctrl+F）。

3. 在“查找内容”框中输入“答案：”，然后点击“查找全部”。

4. 在查找结果中，逐个复制答案部分的内容，并粘贴到新的列中。

方法二：使用“文本到列”功能

如果答案和其他内容是用特定的分隔符分隔的，例如“题目|答案”，可以通过以下步骤提取答案：

1. 选中包含题目的列。

2. 点击“数据”选项卡中的“文本分列”。

3. 在弹出的对话框中，选择“分隔符号”或“固定宽度”，根据实际情况选择。

4. 如果是分隔符号，勾选相应的分隔符（如“|”），然后点击“下一步”。

5. 在下一步中，选择包含答案的列，并将其数据格式设置为“文本”，最后点击“完成”。

方法三：使用公式

如果答案的格式比较固定，例如答案总是位于“答案：”和下一个换行符之间，可以使用公式来提取答案。以下是一个示例公式：

=MID(A1, FIND("答案：", A1) + 3, FIND(CHAR(10), A1 & CHAR(10), FIND("答案：", A1)) - FIND("答案：", A1) - 3)

• A1 是包含题目的单元格。

• FIND("答案：", A1) 找到“答案：”的位置。

• MID 函数从“答案：”后面开始提取内容，直到下一个换行符。

方法四：使用VBA代码

如果题库的格式比较复杂，或者需要批量处理大量数据，可以使用VBA代码来提取答案。以下是一个简单的VBA代码示例：

Sub ExtractAnswers()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim question As String
    Dim answer As String
    Dim startPos As Long
    Dim endPos As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lastRow
        question = ws.Cells(i, 1).Value ' 假设题目在第1列
        startPos = InStr(question, "答案：") + 3 ' 找到“答案：”的位置
        endPos = InStr(startPos, question, vbCrLf) ' 找到答案后的换行符位置
        If endPos = 0 Then endPos = Len(question) + 1 ' 如果没有换行符，取到字符串末尾
        answer = Mid(question, startPos, endPos - startPos)
        ws.Cells(i, 2).Value = answer ' 将答案写入第2列
    Next i
End Sub

• 将代码粘贴到Excel的VBA编辑器中（按Alt+F11打开）。

• 修改代码中的工作表名称和列号，以匹配你的题库格式。

• 运行代码，即可批量提取答案。

在使用这些方法时，请根据你的题库格式和需求进行调整。如果题库格式比较特殊，可能需要更复杂的处理方式。