Excel VBA:如何从单元格中删除子字符串(具有相同的开始和结束符号)？

在Excel VBA中，可以使用以下代码从单元格中删除具有相同开始和结束符号的子字符串：

Sub RemoveSubstring()
    Dim cell As Range
    Dim str As String
    Dim startSymbol As String
    Dim endSymbol As String
    Dim startPos As Long
    Dim endPos As Long
    
    startSymbol = "(" ' 开始符号
    endSymbol = ")" ' 结束符号
    
    For Each cell In Selection
        str = cell.Value
        startPos = InStr(1, str, startSymbol)
        endPos = InStr(1, str, endSymbol)
        
        Do While startPos > 0 And endPos > 0 And endPos > startPos
            str = Left(str, startPos - 1) & Mid(str, endPos + 1)
            startPos = InStr(1, str, startSymbol)
            endPos = InStr(1, str, endSymbol)
        Loop
        
        cell.Value = str
    Next cell
End Sub

这段代码首先定义了开始符号和结束符号，然后遍历选定区域中的每个单元格。对于每个单元格，它会检查单元格的值中是否存在开始符号和结束符号，并且结束符号的位置在开始符号之后。如果满足条件，它会循环删除开始符号和结束符号之间的子字符串，直到不再满足条件为止。最后，将修改后的字符串重新赋值给单元格。

这个方法适用于需要删除具有相同开始和结束符号的子字符串的情况，例如删除括号内的内容。

腾讯云相关产品和产品介绍链接地址：