office-ai整合excel

插件安装

office-ai 可以将ai功能整合到office中，提效摸鱼~

如果是 Microsoft Office 直接安装即可使用；如果是 wps，因为WPS默认不支持VB编辑器（Visual Basic for Application），所以需要先手动安装插件

https://office-ai.cn/static/introductions/officeai/introduction.html

项目实测

实测从零基础到做完经理安排的任务大概花费 2 小时左右，时间主要浪费在使用语句训练模型，使其理解我们的需求，并完成excel整理。

以下是我实测完成任务的操作：

1、我首先在源文档的基础上做了一个示例，然后扔给ai这段prompt（这几列已经按照格式改好，测试下ai可不可以自己观察到规则，并且复用规则）：

复制代码

3.您所在的乡镇卫生院与医共体资源共享中心目前的联通情况如何？[多选题]   
A.已实现医学影像实时联通，数据可共享调阅 B.已实现心电诊断实时联通，报告可远程传输 C.已实现检验结果互认共享，避免重复检查 D.已实现远程会诊联通，可与上级医院专家对接

这几列下面的都按照我的示例格式去修改

ai回答：

复制代码

我将按照您提供的格式修改"乡镇卫生院与医共体资源共享中心联通情况"的多选题选项。以下是修改后的示例格式：
联通情况选项
A.已实现医学影像实时联通，数据可共享调阅
B.已实现心电诊断实时联通，报告可远程传输
C.已实现检验结果互认共享，避免重复检查
D.已实现远程会诊联通，可与上级医院专家对接
需要我为您执行以下操作吗？
       检查当前表格中该多选题的所有选项
       将不符合格式的选项统一修改为标准格式
       确保多选题选项用逗号分隔
请确认是否需要我执行这些修改操作。

2、然后ai把ABCD放到了同一列的不同行，显然他理解错了，所以继续prompt：

复制代码

你上面的修改不对，ABCD在同一行，但是在不同列

ai回答：

复制代码

我理解你的需求了。你需要将"联通情况选项"的A、B、C、D四个选项分别放在不同的列中（而不是在同一行的同一列中），并确保数据格式与示例一致。
我将编写VBA代码来调整数据格式：
```
     Sub FormatConnectivityOptions()
     Dim ws As Worksheet
     Dim lastRow As Long
     Dim i As Long
     Dim options As Variant
     Dim optionArray As Variant
     Dim j As Integer

     ' 设置当前工作表
     Set ws = ActiveSheet
     lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

     ' 从第2行开始处理数据
     For i = 2 To lastRow
         ' 检查I列到L列是否有数据
         If ws.Cells(i, "I").Value <> "" Then
             ' 将选项拆分为数组
             options = Split(ws.Cells(i, "I").Value, ",")

             ' 清除原有数据
             For j = 9 To 12  ' I到L列
                 ws.Cells(i, j).Value = ""
             Next j

             ' 将选项放入对应的列
             For j = LBound(options) To UBound(options)
                 If j <= 3 Then  ' 最多处理4个选项(A-D)
                     ws.Cells(i, 9 + j).Value = Trim(options(j))
                 End If
             Next j
         End If

         DoEvents
     Next i

     MsgBox "联通情况选项格式调整完成"
 End Sub
```
这段代码会：
1.        遍历每一行数据
2.        检查I列是否有数据
3.        将I列的数据按逗号分隔成多个选项
4.        将分隔后的选项分别放入I、J、K、L列
5.        清除原有合并的数据
执行此代码后，联通情况选项将会按照你要求的格式分布在不同的列中。
需要我执行这段代码吗？或者你需要对代码做任何修改？

3、ai学习到了大写字母划分规则，分别放入同行不同列的单元格中，然后我们继续提问：

复制代码

按照规则，这四列的开头都是大写字母，而且允许有空格存在，所以将这些内容重新排序，按照ABCD的顺序插入，如果没有每个字母对应的答案，则不需要填入

ai回答道：

复制代码

我理解你的需求是要对"联通情况选项"的四个选项（I、J、K、L列）进行重新排序，确保按照A、B、C、D的顺序排列，如果没有某个选项则留空。以下是实现这个需求的VBA代码：
```
Sub ReorderConnectivityOptions()
     Dim ws As Worksheet
     Dim lastRow As Long
     Dim i As Long
     Dim optionsDict As Object
     Dim key As Variant
     Dim cellValue As String
     Dim optionArray() As String
     Dim j As Integer

     Set ws = ActiveSheet
     lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row

     ' 创建字典存储选项和对应列的关系
     Set optionsDict = CreateObject("Scripting.Dictionary")
     optionsDict.Add "A", "I"
     optionsDict.Add "B", "J"
     optionsDict.Add "C", "K"
     optionsDict.Add "D", "L"

     ' 从第2行开始处理数据
     For i = 2 To lastRow
         ' 先收集所有选项
         Dim foundOptions As Object
         Set foundOptions = CreateObject("Scripting.Dictionary")

         ' 检查I到L列是否有数据
         For j = 9 To 12
             cellValue = ws.Cells(i, j).Value
             If cellValue <> "" Then
                 ' 提取选项字母(A/B/C/D)
                 Dim optionLetter As String
                 optionLetter = Left(cellValue, 1)
                 foundOptions.Add optionLetter, cellValue
             End If
         Next j

         ' 清除原有数据
         ws.Range("I" & i & ":L" & i).ClearContents

         ' 按照A、B、C、D顺序重新填充
         For Each key In optionsDict.Keys
             If foundOptions.Exists(key) Then
                 ws.Cells(i, optionsDict(key)).Value = foundOptions(key)
             End If
         Next key

         DoEvents
     Next i

     MsgBox "联通情况选项已按A、B、C、D顺序重新排序"
 End Sub
```
这段代码会：
1.        遍历每一行数据
2.        收集I、J、K、L列中存在的所有选项
3.        清除原有数据
4.        按照A、B、C、D的顺序重新填充选项
5.        如果某个选项不存在则留空
执行此代码后，联通情况选项将会按照A、B、C、D的顺序排列在I、J、K、L列中。
需要我执行这段代码吗？或者你对代码还有任何修改建议？

至此，某一道题目下面的所有答案已按照正确的规则重新排版。