VBA удалить подстроку строки, которая находится между двумя конкретными символами

Question

Я форматированием столбца, что некоторые из значений имеют нежелательные данные в следующем формате:

xxxx(yyyy)

Я только хочу, чтобы удалить то, что находится внутри скобок , а скобки сама

Answer 1

Вы можете легко обслужить несколько замен в одной колонке с Регулярное использование

Sub Test() 
Debug.Print CleanStr("xxxx(yyyy)") 
Debug.Print CleanStr("and me()") 
Debug.Print CleanStr("and me()` second string(aaa)") 
End Sub 

чистая строка

Function CleanStr(strIn As String) As String 
Dim objRegex As Object 
Set objRegex = CreateObject("vbscript.regexp") 
With objRegex 
    .Pattern = "\([^)]*\)" 
    .Global = True 
    CleanStr = .Replace(strIn, vbNullString) 
End With 
End Function 

Answer 2

Попробуйте это:

=LEFT(A1,FIND("(",A1)-1) 

Answer 3

Dim x 
 
    x = Split("xxxx(yyyy)", "(") 
 
    Dim result 
 
    result = x(0)

Answer 4

Выберите ячейки, которые вы хотите обработать и запустить этот короткий макрос:

Sub DataGrabber() 
    Dim r As Range 
    For Each r In Intersect(ActiveSheet.UsedRange, Selection) 
     If InStr(1, r.Value, "(") > 0 Then 
      r.Value = Split(r.Value, "(")(0) 
     End If 
    Next r 
End Sub 

Answer 5

я хотел бы использовать регулярное выражение для этой работы:

Sub DeleteMatches() 
    Dim cell As Range, re As Object 

    ' define the regular expression to match "(...)" ' 
    Set re = CreateObject("VBScript.RegExp") 
    re.Pattern = "\([^)]*\)" ' matches "(...)" ' 

    ' iterate and clean each cell in range "C2:C100" ' 
    For Each cell In Range("C2:C100") 
    cell.Value = re.Replace(cell.Value, Empty) 
    Next 

End Sub