office-ai整合excel

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 WorksheetDim lastRow As LongDim i As LongDim options As VariantDim optionArray As VariantDim j As Integer' 设置当前工作表Set ws = ActiveSheetlastRow = 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 IfNext jEnd IfDoEventsNext iMsgBox "联通情况选项格式调整完成"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 WorksheetDim lastRow As LongDim i As LongDim optionsDict As ObjectDim key As VariantDim cellValue As StringDim optionArray() As StringDim j As IntegerSet ws = ActiveSheetlastRow = 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 ObjectSet foundOptions = CreateObject("Scripting.Dictionary")' 检查I到L列是否有数据For j = 9 To 12cellValue = ws.Cells(i, j).ValueIf cellValue <> "" Then' 提取选项字母(A/B/C/D)Dim optionLetter As StringoptionLetter = Left(cellValue, 1)foundOptions.Add optionLetter, cellValueEnd IfNext j' 清除原有数据ws.Range("I" & i & ":L" & i).ClearContents' 按照A、B、C、D顺序重新填充For Each key In optionsDict.KeysIf foundOptions.Exists(key) Thenws.Cells(i, optionsDict(key)).Value = foundOptions(key)End IfNext keyDoEventsNext iMsgBox "联通情况选项已按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列中。
需要我执行这段代码吗？或者你对代码还有任何修改建议？

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