엑셀 매크로 Mid 활용 방법

안녕하세요, 이번 포스팅은 엑셀 매크로 Mid 활용 방법 대해서 작성하도록 하겠습니다.

엑셀에서 Mid 함수는 텍스트 문자열에서 특정 위치부터 지정한 개수의 문자를 추출하는 데 사용하는 함수입니다.

Right, Left 함수와 더불어 유용하게 활용할 수 있는 함수 중 하나입니다.

그럼 엑셀 매크로 VBA Mid 활용 방법 대해서 자세히 알아보도록 하겠습니다.

Mid 함수란?

1) 엑셀 함수 중 Mid 함수의 역할

엑셀에서 Mid 함수는 텍스트 문자열에서 특정 위치부터 지정한 개수의 문자를 추출하는 데 사용됩니다.

이 함수는 특히 텍스트 데이터의 일부를 추출하여 원하는 형식으로 가공할 때 유용하게 활용됩니다.

Mid 함수의 구문은 다음과 같습니다:

Mid 함수 기본 구문

: Mid(텍스트, 시작_위치, 추출할_문자_개수).

2) 엑셀 Mid 함수의 예시

예를 들어, “Hello, World!”라는 문자열에서 “World”를 추출하고 싶을 때 Mid 함수를 사용할 수 있습니다.

이때 시작 위치는 8이 되고, 추출할 문자 개수는 5가 됩니다.

따라서 아래 Mid 함수를 활용한 코드를 적용을 하게 되면 “World”를 추출해줍니다.

Mid 함수 예시 구문 (World 문자 추출)

: Mid(8, 5)

참고로 Mid 함수를 사용할 때는 추출할 문자 개수를 정확히 지정해야 합니다.

그렇지 않으면 원하지 않는 결과가 나올 수 있습니다.

▶ 엑셀 매크로 Right 함수 활용 방법

엑셀 매크로 VBA Mid 활용

이제 VBA를 사용하여 Mid 함수를 활용해보겠습니다.

VBA를 이용하면 엑셀에서 Mid 함수를 사용하는 것보다 더 다양한 기능을 추가할 수 있습니다.

Mid 함수를 VBA로 구현하는 방법은 다음과 같습니다

Sub Mid_Function_Example()
    Dim originalText As String
    Dim extractedText As String
    
    originalText = "Hello, World!"
    
    ' Mid 함수를 VBA로 구현하여 "World"를 추출
    extractedText = Mid(originalText, 8, 5)
    
    ' 추출된 결과를 메시지 박스로 출력
    MsgBox "추출된 문자열: " & extractedText
End Sub

위 예시 코드에서는 “Hello, World!”라는 문자열에서 Mid 함수를 사용하여 “World”를 추출하고 있습니다.

VBA를 이용하면 추출된 결과를 활용하여 다양한 작업을 수행할 수 있습니다.

이제 VBA를 이용한 Mid 함수의 활용 방법에 대해 알아보았습니다.

아래에서는 Mid 함수를 활용한 실제 예시를 더 자세히 살펴보겠습니다.

▶ 엑셀 매크로 Left 활용 방법

엑셀 매크로 VBA Mid 추가 예시

1) 문자열 처리

일반적으로 Mid 함수는 텍스트 데이터를 처리할 때 유용하게 사용됩니다. 예를 들어, 특정 문자열에서 원하는 부분을 추출하여 다른 셀에 출력하거나 특정 조건에 따라 텍스트를 가공하는 등의 작업에 활용될 수 있습니다.

예시: 이름에서 성 추출하기

가령, “홍길동”이라는 문자열에서 성을 추출해보겠습니다. 이때 Mid 함수를 사용하여 성을 추출할 수 있습니다.

Sub ExtractLastName()
    Dim fullName As String
    Dim lastName As String
    
    fullName = "홍길동"
    
    ' 성을 추출하기 위해 Mid 함수 사용
    lastName = Mid(fullName, 1, 1)
    
    ' 추출된 성을 출력
    MsgBox "성: " & lastName
End Sub

위에 코드를 구현하게 되면 “홍” 이 출력이 되는 것을 확인 할 수 있습니다.

2) 데이터 가공

Mid 함수를 사용하여 데이터를 가공하는 예시를 살펴보겠습니다.

특정 형식의 데이터를 원하는 형태로 가공하거나 특정 조건에 따라 데이터를 필터링하는 등의 작업에 Mid 함수를 활용할 수 있습니다.

3) 예시 (전화번호 형식 변환)

전화번호가 “01012345678”과 같은 형식으로 입력되었을 때, Mid 함수를 사용하여 “-“을 추가하여 “010-1234-5678″과 같은 형식으로 변환해보겠습니다.

Sub FormatPhoneNumber()
    Dim phoneNumber As String
    Dim formattedNumber As String
    
    phoneNumber = "01012345678"
    
    ' 전화번호 형식 변환을 위해 Mid 함수 사용
    formattedNumber = Mid(phoneNumber, 1, 3) & "-" & Mid(phoneNumber, 4, 4) & "-" & Mid(phoneNumber, 8, 4)
    
    ' 변환된 전화번호 출력
    MsgBox "변환된 전화번호: " & formattedNumber
End Sub

▶챗GPT 지브리 이미지 생성 방법 (무료, 유료 버전)