안녕하세요

아래 코드는

Option Explicit

Sub Group_Click()
    Dim int_Total As Integer      ' 총학생수를 기억하기 위한 변수
    Dim int_i As Integer          ' 카운터
    Dim int_k As Integer
    Dim int_G As Integer          ' 조
    Dim str_Name As String        ' 서양식 이름을 위한 변수
    Dim int_N As Integer          ' 학번의 글자수를 위한 변수
    Dim int_Sum As Integer        ' 학번의 합을 위한 변수
    int_Total = Application.CountA(Range("A:A")) - 1            ' 표에서 제목을 제외한 학생수를 기억
    For int_i = 1 To int_Total
        int_N = Len(Cells(int_i + 1, 2))
        int_Sum = 0
        For int_k = 1 To int_N
            int_Sum = int_Sum + Val(Mid(Cells(int_i + 1, 2), int_k, 1))
        Next
            Cells(int_i + 1, 3) = int_Sum Mod 4 + 1
            Cells(int_i + 1, 4) = Right(Cells(int_i + 1, 1), 2) & Left(Cells(int_i + 1, 1), 1)
            Cells(int_i + 1, 5) = int_Sum
    Next int_i

End Sub