怎么删除Excel括号内容

创作时间:

作者:

@小白创作中心

怎么删除Excel括号内容

引用

来源

https://docs.pingcode.com/baike/3969780

在处理Excel数据时，我们经常会遇到需要删除括号及其内容的情况。无论是简单的查找替换，还是使用公式和VBA代码进行批量处理，本文将为你提供多种实用的方法。

删除Excel括号内容的方法包括：使用查找和替换功能、利用Excel公式、使用VBA代码。其中，使用查找和替换功能是最简单且高效的方法。你可以通过按Ctrl+H打开查找和替换对话框，在“查找内容”框中输入括号及其内容的通配符模式，然后将“替换为”框留空，点击“全部替换”即可。详细步骤如下：

打开Excel工作表，并选择需要修改的单元格范围。
按Ctrl+H打开查找和替换对话框。
在“查找内容”框中输入(*)，其中*是通配符，表示任意字符。这个模式会查找到所有以左括号(开始，右括号)结束的内容。
将“替换为”框留空。
点击“全部替换”。这个方法适用于不需要对数据进行复杂处理的场景，非常高效。

使用查找和替换功能

要使用查找和替换功能，首先需要打开对话框。按下Ctrl+H快捷键，或者从菜单栏中选择“编辑”->“查找和选择”->“替换”。

在“查找内容”框中输入(*)，其中*是通配符，表示任意字符。这个模式会查找到所有以左括号(开始，右括号)结束的内容。

将“替换为”框留空，这样找到的括号内容将被替换为空，即删除。

点击“全部替换”按钮，Excel会自动替换所有符合条件的内容。这个方法适用于不需要对数据进行复杂处理的场景，非常高效。

使用Excel公式

有时候，你可能需要在不使用查找和替换的情况下删除括号内容。使用Excel公式可以帮助你实现这一点。

使用 SUBSTITUTE 和 FIND 函数

公式示例：

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

解释：

FIND("(", A1)：查找左括号的位置。
FIND(")", A1)：查找右括号的位置。
MID(A1, FIND("(", A1), FIND(")", A1) - FIND("(", A1) + 1)：提取括号及其内容。
SUBSTITUTE(A1, [提取的内容], "")：将括号及其内容替换为空。

使用正则表达式（需要VBA支持）

Excel本身不支持正则表达式，但你可以通过VBA代码实现。

VBA代码示例：

Function RemoveBracketsContent(str As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "([^)]*)"
    regex.Global = True
    RemoveBracketsContent = regex.Replace(str, "")
End Function

使用方法：

按Alt+F11打开VBA编辑器。
插入一个新模块，粘贴上述代码。
在Excel单元格中使用公式=RemoveBracketsContent(A1)即可删除括号内容。

使用VBA代码

对于需要处理大量数据或者需要定制化处理的场景，VBA代码是一个强有力的工具。

VBA宏代码示例：

Sub DeleteBracketContent()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim startPos As Long
    Dim endPos As Long
    Dim cellValue As String
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Set rng = ws.Range("A1:A100") ' 修改为你的单元格范围
    For Each cell In rng
        cellValue = cell.Value
        Do While InStr(cellValue, "(") > 0 And InStr(cellValue, ")") > 0
            startPos = InStr(cellValue, "(")
            endPos = InStr(cellValue, ")")
            cellValue = Left(cellValue, startPos - 1) & Mid(cellValue, endPos + 1)
        Loop
        cell.Value = cellValue
    Next cell
End Sub

解释：