VBA 괄호제거

VBA 괄호제거

Sub 괄호제거()
    '문자열 중 ()괄호 안의 문자열만 따로 추출하기
    Dim rngTarget As Range '해당 영역을 변수로 지정
    Dim C As Range '셀을 지정
    Dim startChk As Byte '(시작위치 변수 지정
    Dim endChk As Byte ')끝위치 변수 지정
    Dim tmpString As String '추출 문자열 임시 저장 변수
  
    Set rngTarget = Selection  '// 선택한 영역만 할 경우
    Application.ScreenUpdating = False      '화면 업데이트 (일시)정지

    'ActiveCell.Select    '// Selection 으로 선택할 경우에는 이 Line 도 주석처리해야 함
    'Set rngTarget = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(3))
  
    For Each C In rngTarget
        C.Value = Trim(C.Value)
        startChk = InStr(C.Value, "(")
        endChk = InStr(C.Value, ")")
      
        '// ()가 포함된 문자열 추출
        'tmpString = Mid(C.Value, startChk, endChk - startChk + 1)
        'C.Offset(0, 1).Value = tmpString
      
        '// ()를 제외한 문자열 추출
        'tmpString = Mid(C.Value, startChk + 1, endChk - startChk - 1)
        'C.Offset(0, 2).Value = tmpString

        '// 자체 Cell 에 덮어쓰기
        If startChk = 1 Then
            C.Value = Mid(C.Value, startChk + 1, endChk - startChk - 1)
        End If
      
    Next C   
    Set rngTarget = Nothing
End Sub