VBA / excel在单元格中的符号之间提取多个字符串

Question

我有一个包含多个单元格的电子表格，其中包含一堆文本。在文本中，@ 符号之间有几个单词/句子。每个单元格中有多个这样的字符串。

例如：

Lorem ipsum dolor sit amet，@consectetur adipiscing elit@。 Curabitur sapien nibh，faucibus ut odio ut，vehicula elementum nunc。 @Fusce consequat risus vel dui tincidunt@ 调味品。

我需要一个解决方案来提取@...@ 字符串，比如说到相邻的列中。

编辑以回应 cmets：在发表这篇文章之前还没有完全尝试过任何解决方案，因为我不知道如何开始 - 主要挑战似乎是文本中的多个 @...@ 字符串。

我研究的其他解决方案似乎不适用于多个分隔符：

excel vba- extract text between 2 characters

感谢任何解决方案。

谢谢

Answer 1

试试这个代码

Sub Test()
Dim a, x, i As Long, ii As Long

a = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value

For i = LBound(a) To UBound(a)
    x = Split(a(i, 1), " @")
    For ii = 1 To UBound(x)
        Cells(i, ii + 1).Value = Mid(x(ii), 1, InStr(x(ii), "@") - 1)
    Next ii
Next i
End Sub