Vba에서 문자열을 정수로 변환하는 방법(예제 포함)

VBA에서 CInt 함수를 사용하여 텍스트 문자열을 정수로 변환할 수 있습니다.

실제로 이 기능을 사용하는 두 가지 일반적인 방법은 다음과 같습니다.

방법 1: VBA에서 문자열을 정수로 변환

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

이 특정 매크로는 A2:A11 범위의 각 문자열을 정수로 변환하고 B2:B11 범위의 정수를 표시합니다.

방법 2: VBA에서 문자열을 정수로 변환(문자열이 숫자인 경우에만)

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

이 특정 매크로는 문자열이 숫자인 경우에만 A2:A11 범위의 각 문자열을 정수로 변환합니다. 그렇지 않으면 문자열이 null 값으로 변환됩니다.

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

예제 1: VBA에서 문자열을 정수로 변환

Excel에 현재 텍스트 문자열 형식으로 지정된 다음과 같은 값 열이 있다고 가정해 보겠습니다.

각 문자열을 정수로 변환하고 B 열에 정수를 표시한다고 가정합니다.

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

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

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

A열의 각 텍스트 문자열은 정수로 변환되어 B열에 표시됩니다.

예제 2: VBA에서 문자열을 정수로 변환(문자열이 숫자인 경우에만)

Excel에 현재 텍스트 문자열 형식으로 지정된 다음과 같은 값 열이 있다고 가정해 보겠습니다.

문자열이 숫자인 경우에만 각 문자열을 정수로 변환하고 B 열에 정수를 표시한다고 가정합니다.

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

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

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

A열의 숫자인 텍스트 문자열만 B열의 정수로 변환됩니다.

그렇지 않으면 텍스트 문자열이 단순히 null 값으로 변환됩니다.

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

추가 리소스

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

VBA: 문자열에서 공백을 제거하는 방법
VBA: 문자열에서 문자 발생 횟수를 계산하는 방법
VBA:문자열에 다른 문자열이 포함되어 있는지 확인하는 방법