Excel vba를 이용해 반복되는 내용 지우기 !!

요번에느으은~~~~~~~!

다음과 같이 엑셀을 사용하다보면 

불필요한 반복되는 내용을 지워야하는 때가 있죠 ?

이럴때 vba를 이용하면 초간단하게 해결할 수 있습니다.

먼저 문자열을 vba로 다루어야 하기 때문에 내가 지우고자 하는 내용들의 규칙을 파악해야 합니다.

저는 제가 지우고자하는 '링크주소들'이 

http로 시작한다는 규칙을 가지고 있기 때문에

이걸 이용해 손쉽게 제거할 수 있다고 생각했습니다.

그래서 vba코딩을 다음과 같이 했습니다.

Sub Example()

    Dim i As Integer

    

    For i = 3 To 1287

        If InStr(Cells(i, 4).Value, "http") <> 0 Then

            Cells(i, 4).Value = Left(Cells(i, 4).Value, InStr(Cells(i, 4).Value, "http")-1)

        End If

    Next i

End Sub

For i = 3 To 1287

: 모든 셀들을 확인하면서 

If InStr(Cells(i, 4).Value, "http") <> 0 Then 

: 만약 그 셀의 내용이 http를 포함한다면

Cells(i, 4).Value = Left(Cells(i, 4).Value, InStr(Cells(i, 4).Value, "http")-1) 

: 셀 내용을 왼쪽에서 부터 'http'단어가 시작하는 지점의 바로 전까지의 내용으로 교체하겠다는 내용입니다.

다음과 같이 실행하면

셀안에 있던 모든 http로 시작하는 내용은 없어지고 

그 전까지의 내용만을 유지하게 됩니다.

규칙성이 있는 내용들을 삭제한다면

vba를 이용하면 참 편리합니다 ~~~~~~~~~~~~~~~~~~