vba删除单元格括号中的字符串

可以使用VBA中的正则表达式来删除单元格括号中的字符串。以下是一个示例代码：

Sub RemoveTextInBrackets()
    Dim RegEx As Object
    Dim strPattern As String
    Dim strInput As String
    Dim strOutput As String
    
    Set RegEx = CreateObject("VBScript.RegExp")
    
    strPattern = "\([^)]*\)"
    strInput = ActiveCell.Value
    
    With RegEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = strPattern
    End With
    
    strOutput = RegEx.Replace(strInput, "")
    
    ActiveCell.Value = strOutput
End Sub

这个代码会将当前活动单元格中括号中的文本删除，并将结果放回到该单元格中。请注意，此代码使用了VBScript的正则表达式引擎，因此需要确保计算机上已经安装了该引擎。

相关问题

vba替换单元格括号中的字符串不改变字体

您可以使用 VBA 中的 Replace 函数来替换单元格中的字符串，而不改变字体。以下是一个示例代码：

Sub ReplaceStringInCell()
    Dim strToReplace As String
    Dim strNewValue As String
    Dim rngCell As Range
    
    strToReplace = "要替换的字符串"
    strNewValue = "替换后的新字符串"
    
    For Each rngCell In Selection
        If InStr(1, rngCell.Value, strToReplace) > 0 Then
            rngCell.Value = Replace(rngCell.Value, strToReplace, strNewValue, , , vbTextCompare)
        End If
    Next rngCell
End Sub

该代码将遍历选定区域中的每个单元格，并将指定的字符串替换为新字符串，而不会更改单元格的字体。请将代码中的“要替换的字符串”和“替换后的新字符串”替换为您需要替换的实际字符串。

帮我写access vba代码： 有一个字符串变量TSNTC，这个变量内的内容是用换行符分割的行，用分号分割的列，我需要将这个变量转换成表格

在Access VBA中，你可以使用`Split`函数来拆分字符串，并结合`Range`对象来创建表格。下面是一个示例代码片段，假设你的数据存储在一个名为Sheet1的工作表上，A1单元格开始：

Sub ConvertStringToTable()
    Dim TSNTC As String
    ' 假设TSNTC已经赋值
    TSNTC = "行1;列1;列2" & vbCrLf & "行2;列3;列4"; ' 括号内的内容替换实际的TSNTC

    ' 分割字符串为数组
    Dim data() As String
    data = Split(TSNTC, vbCrLf) ' 按换行符分割
    For i = 0 To UBound(data)
        data(i) = Split(data(i), ";") ' 再按分号分割每一行
    Next i

    ' 创建新工作表并将数据填充到表格
    Dim wsNew As Worksheet
    Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    Dim rowCounter As Long, colCounter As Long
    rowCounter = 1
    
    For Each row In data
        For Each cellValue In row
            wsNew.Cells(rowCounter, colCounter).Value = cellValue
            colCounter = colCounter + 1 ' 这里假设每一列的数据都在同一行内
        Next cellValue
        rowCounter = rowCounter + 1
        colCounter = 1 ' 结束一行后，恢复列计数
    Next row
    wsNew.Columns.AutoFit ' 自动调整列宽
End Sub

运行此宏后，你会在新的工作表上看到一个表格形式的结构。