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
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| VBA 빈행 삽입하기 (6) | 2014.03.02 |
|---|---|
| VBA 빈셀은 지우고 한글은 우측셀로 이동시키기 (0) | 2014.02.28 |
| [VBA기초] 빈행 삭제 (4) | 2014.02.06 |
| 복사할 때 글자색도 같이 넣는 방법 (0) | 2014.01.29 |
| [VBA기초] Number 를 문자(Text)로 한번에 변경 (0) | 2014.01.26 |
Link2Me