excel怎么提取括号内的多个数据

Excel提取括号内的多个数据的方法有：使用公式、使用宏（VBA）、利用Power Query。 其中，使用公式 是最为便捷且无需编程知识的方法。我们可以使用多种Excel内置函数结合来实现这一操作，例如：MID、FIND、SEARCH、LEN和SUBSTITUTE函数等。接下来，我将详细描述如何在Excel中通过公式来提取括号内的多个数据。

一、使用公式提取括号内的数据

1、基础公式：使用MID和FIND函数

首先，我们需要了解如何使用MID和FIND函数提取单个括号内的数据。

假设单元格A1中包含以下字符串：

This is a sample text (data1) and another (data2)

我们可以使用以下公式来提取第一个括号内的数据：

=MID(A1, FIND("(", A1) + 1, FIND(")", A1) - FIND("(", A1) - 1)

解释：

FIND("(", A1) 找到第一个左括号的位置。
FIND(")", A1) 找到第一个右括号的位置。
MID函数从左括号后一位开始提取字符，提取的长度为右括号位置减去左括号位置再减1。

2、处理多个括号数据

假设我们需要提取所有括号内的数据，可以使用更复杂的公式或VBA宏。以下是一个较为复杂的公式方法，适用于提取多个括号内的数据并将其合并到一个单元格中。

假设我们依旧使用上述字符串，并且希望将所有括号内的数据提取到一个单元格中，用逗号分隔。

公式方法：

=TEXTJOIN(", ", TRUE, MID(A1, FIND("(", A1, ROW(INDIRECT("1:" & LEN(A1)))) + 1, FIND(")", A1, ROW(INDIRECT("1:" & LEN(A1)))) - FIND("(", A1, ROW(INDIRECT("1:" & LEN(A1)))) - 1))

解释：

ROW(INDIRECT("1:" & LEN(A1))) 生成一个从1到字符串长度的数组，用于遍历每个字符。
FIND("(", A1, ROW(INDIRECT("1:" & LEN(A1)))) 在每一个位置查找左括号。
FIND(")", A1, ROW(INDIRECT("1:" & LEN(A1)))) 在每一个位置查找右括号。
MID函数结合上述FIND结果，提取括号内的数据。
TEXTJOIN函数将提取到的数据用逗号合并。

3、分步解释

第一步：查找括号内数据起始位置和长度

=FIND("(", A1, ROW(INDIRECT("1:" & LEN(A1)))) + 1

该公式返回一个数组，其中每个元素都是左括号的位置加1，即括号内数据的起始位置。

第二步：查找括号内数据结束位置

=FIND(")", A1, ROW(INDIRECT("1:" & LEN(A1)))) - FIND("(", A1, ROW(INDIRECT("1:" & LEN(A1)))) - 1

这部分公式返回一个数组，其中每个元素都是括号内数据的长度。

第三步：提取数据并合并

=MID(A1, FIND("(", A1, ROW(INDIRECT("1:" & LEN(A1)))) + 1, FIND(")", A1, ROW(INDIRECT("1:" & LEN(A1)))) - FIND("(", A1, ROW(INDIRECT("1:" & LEN(A1)))) - 1)

结合使用TEXTJOIN函数，将所有提取到的数据用逗号分隔并合并到一个单元格中。

二、使用宏（VBA）提取括号内的数据

如果公式方法太复杂或不够灵活，可以使用VBA编写宏来提取括号内的数据。以下是一个简单的VBA宏示例：

1、打开VBA编辑器

在Excel中按下 Alt + F11 打开VBA编辑器，然后插入一个新的模块。

2、编写宏代码

Sub ExtractDataInBrackets()
    Dim rng As Range
    Dim cell As Range
    Dim startPos As Integer
    Dim endPos As Integer
    Dim result As String
    Dim tempStr As String
    ' 选择要处理的单元格范围
    Set rng = Selection
    For Each cell In rng
        tempStr = cell.Value
        result = ""
        Do
            startPos = InStr(tempStr, "(")
            If startPos = 0 Then Exit Do
            endPos = InStr(tempStr, ")")
            If endPos = 0 Then Exit Do
            result = result & Mid(tempStr, startPos + 1, endPos - startPos - 1) & ", "
            tempStr = Mid(tempStr, endPos + 1)
        Loop
        ' 去掉最后一个逗号和空格
        If Len(result) > 0 Then
            result = Left(result, Len(result) - 2)
        End If
        ' 输出结果到相邻单元格
        cell.Offset(0, 1).Value = result
    Next cell
End Sub

3、运行宏

在VBA编辑器中关闭代码窗口，回到Excel界面。选择包含数据的单元格范围，然后按下 Alt + F8，选择 ExtractDataInBrackets 宏并运行。

4、解释

InStr 函数查找左括号和右括号的位置。
Mid 函数提取括号内的数据。
Do Loop 循环遍历整个字符串并提取所有括号内的数据。
结果输出到相邻单元格。

三、利用Power Query提取括号内的数据

如果您对Power Query比较熟悉，您也可以使用Power Query来提取括号内的数据。

1、加载数据到Power Query

在Excel中选择数据区域，点击 数据 -> 从表/范围。

2、编辑查询

在Power Query编辑器中，选择包含数据的列，点击 添加列 -> 自定义列。

3、编写自定义列公式

在自定义列公式框中输入以下公式：

let
    Source = [列名],
    SplitByBrackets = Text.Middle(Source, Text.PositionOf(Source, "(") + 1, Text.PositionOf(Source, ")") - Text.PositionOf(Source, "(") - 1),
    Result = Text.Combine(List.Transform(Text.Split(Source, ") "), each Text.Middle(_, Text.PositionOf(_, "(") + 1, Text.PositionOf(_, ")") - Text.PositionOf(_, "(") - 1)), ", ")
in
    Result

4、应用并关闭

点击 确定 应用自定义列公式，然后关闭并加载回Excel。

5、解释

Text.PositionOf 函数查找括号的位置。
Text.Middle 函数提取括号内的数据。
List.Transform 和 Text.Combine 函数组合将所有提取到的数据用逗号分隔并合并。

结论

在Excel中提取括号内的多个数据有多种方法。使用公式 是最简单和直接的方法，但对于复杂情况或大数据量，使用VBA宏 和 Power Query 可能会更高效。根据您的具体需求和熟悉程度，选择适合您的方法可以使工作更加高效和准确。