excel - 在机器生成的聊天记录中仅提取 excel 中的特定文本

Question

我有一个机器生成的聊天数据导出到 excel 如下
用户:我需要帮助来取消我的订单
代理:当然，我可以在这方面为您提供帮助
用户:凉爽的
用户:另外，我需要您的支持才能订购其他商品
用户:我不知道该怎么做
代理:当然，我会帮助您解决所有问题
我正在尝试仅将上述对话中的用户文本从每个单元格中提取到 excel 中的单独单元格中
我尽我所知尝试了所有已知的方法来获得它。不幸的是，无法这样做。请帮助我实现这一目标。
样本输出:
我只想将用户键入的消息从上述对话中提取到不同的单元格，如下所示
用户:我需要帮助取消我的订单
用户:酷
用户:另外，我需要您的支持才能订购其他元素
用户:我不知道该怎么做

Answer 1

如果 VBA UDF 是一个选项，那么我们可以使用正则表达式，例如 ...

Option Explicit

Function ExtractUserChat(ChatString As String) As String

Dim regex As Object, mc As Object, result As String, i As Long

Set regex = CreateObject("VBScript.regexp")
regex.ignorecase = False
regex.Global = True

regex.Pattern = "User: "
ChatString = regex.Replace(ChatString, "{<<USER>>: ")
'Or if you want each submatch on next line then
'ChatString = regex.Replace(ChatString, "{" & Chr(10) & "USER>>: ")

regex.Pattern = "Agent: "
ChatString = regex.Replace(ChatString, "}Agent: ") & "}"

regex.Pattern = "\{[^}]+\}"
Set mc = regex.Execute(ChatString)
result = ""

For i = 0 To mc.Count - 1
    result = result & mc(i)
Next i
result = Replace(Replace(result, "{", ""), "}", "")

ExtractUserChat = result

End Function