写一段VBA,把下划线的范围用括弧括起来

在VBA（Visual Basic for Applications）中，要实现将带有下划线的文本范围用括号括起来，可以通过录制一个宏来了解基本操作，然后编写相应的代码。以下是一个简单的例子，演示如何在Excel中找到下划线文本，并用括号将其括起来：

Sub 标记下划线文本()
    Dim rng As Range
    Dim cell As Range
    
    ' 循环遍历选定区域内的每个单元格
    For Each cell In Selection
        ' 检查单元格文本是否包含下划线
        If InStr(cell.Value, "_") > 0 Then
            ' 如果包含下划线，则在下划线前后添加括号
            cell.Value = "(" & cell.Value & ")"
        End If
    Next cell
End Sub

这段代码定义了一个名为“标记下划线文本”的宏，它会遍历选定区域内的每个单元格，检查单元格的内容是否包含下划线，如果包含，就在这段文本的前后分别添加一个开括号和一个闭括号。

要注意的是，这段代码假设你已经有了一个选中的区域，并且你需要将此宏绑定到一个按钮或者快捷键以便使用。