如何在Excel VBA中提取括号外的员工姓名用于PowerPoint报表

需要将形如 Aaron Montes (AMD, 785679), Peter Lim (PLM, 56987) 的数据，移除所有括号及内部内容，仅保留员工姓名。以下是两种可行的实现方式：

方法一：自定义可复用函数 #

先编写通用清理函数，方便后续多处调用：

Function ExtractNames(ByVal inputText As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 匹配所有括号及内部内容（含括号前的可选空格）
    regex.Pattern = "\s*\(.*?\)"
    regex.Global = True
    
    ' 替换匹配内容为空，再去除首尾多余空格
    ExtractNames = Trim(regex.Replace(inputText, ""))
End Function

方法二：直接在代码内处理（无需单独函数） #

如果仅需单次处理，可直接在赋值逻辑中完成清理：

With .Cell(2, 3).Shape
    With .TextFrame.TextRange
        Dim rawText As String
        rawText = Range("F1").Value
        
        Dim regex As Object
        Set regex = CreateObject("VBScript.RegExp")
        regex.Pattern = "\s*\(.*?\)"
        regex.Global = True
        
        .Text = Trim(regex.Replace(rawText, ""))
        .Font.Size = 13
        .Font.Name = "Arial"
        .Font.Color = RGB(0, 0, 0)
    End With
End With

替换原代码关键部分 #

将原代码中 .Text = Range("F1") 的行，替换为上述任意一种处理逻辑即可。例如使用方法一的简化写法：

With .Cell(2, 3).Shape
    With .TextFrame.TextRange
        .Text = ExtractNames(Range("F1").Value)
        .Font.Size = 13
        .Font.Name = "Arial"
        .Font.Color = RGB(0, 0, 0)
    End With
End With

补充说明 #

• 正则表达式 \s*\(.*?\) 采用非贪婪匹配，会精准匹配到每个括号对及其内部内容，避免跨括号错误匹配
• 最终的Trim用于清理替换后可能残留的多余空格

内容的提问来源于stack exchange，提问作者Aaron Delos Angeles