Vba: 문자열에서 마지막 문자를 제거하는 방법

다음 기본 구문을 사용하여 VBA를 사용하여 문자열에서 마지막 문자를 제거할 수 있습니다.

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 1)
    Next i
    
End Sub

이 특정 예에서는 A2:A11 범위의 각 문자열에서 마지막 문자를 제거하고 B2:B11 범위의 결과를 표시합니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA를 사용하여 문자열에서 마지막 문자 제거

Excel에 다음과 같은 농구 팀 이름 목록이 있다고 가정합니다.

각 팀 이름에서 마지막 문자를 제거하고 싶다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 1)
    Next i
    
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

B열에는 마지막 문자가 제거된 A열의 각 문자열이 표시됩니다.

대신 문자열에서 마지막 n개 문자를 제거하려면 Left 메서드의 1 을 다른 숫자로 바꾸면 됩니다.

예를 들어, 다음 매크로를 생성하여 문자열에서 마지막 2 자를 제거할 수 있습니다.

 Sub RemoveLastTwoChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 2)
    Next i
    
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

B 열에는 마지막 두 문자가 제거된 A 열의 각 문자열이 표시됩니다.

참고 : VBA Left 메서드에 대한 전체 설명서는 여기에서 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA를 사용하여 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 문자열에서 문자 발생 횟수를 계산하는 방법
VBA:문자열에 다른 문자열이 포함되어 있는지 확인하는 방법
VBA: 특정 텍스트가 포함된 셀 수를 계산하는 방법