쉼표로 구분된 문자를 잘라서 계산하기

안녕하세요.

 

복잡하게 함수를 엮어서 수식을 만들어야 할 때 상대적으로 쉽게 결과를 구할 수 있는 방법이 VBA입니다.

 

쉼표를 구분자로 입력된 텍스트 형식 데이터가 있습니다.

쉼표를 기준으로 잘라서 원하는 계산을 한 뒤 합쳐서 결과를 나타내려 합니다.

 

엑셀 수식으로 작성하기에는 꽤 복잡하거나 아예 결과를 구하지 못할 수도 있습니다.

 

사용자 정의 함수로 구현했습니다.

 

완성 파일 다운로드

쉼표로 구분된 문자를 잘라서 계산하기.xlsm

0.02MB

함수 이름은 값구하기이고, 인수 2개를 입력해야 합니다.

첫번째 인수는 작업할 값이 들어 있는 셀입니다.

두번째 인수는 곱할 값입니다.

Public Function 값구하기(X As Range, Calc As Single) As String
    Dim i As Integer
    Dim OutValue As String
    Dim S As String
    
    i = 1
    
    Do
        If Mid(X.Value, i, 1) = "," Then
            OutValue = OutValue & S * Calc & ","
            S = ""
        Else
            S = S & Mid(X.Value, i, 1)
        End If
        
        i = i + 1
    Loop While i <= Len(X.Value)
    
    OutValue = OutValue & S * Calc
        
    값구하기 = OutValue
End Function

필요하신 분들께 도움이 되길 바랍니다.