내용이 복잡해서 excel 함수로는 안되구요.

엑셀의 VBA라는 걸 사용해서 프로그래밍 해야 합니다.

다음 사항을 잘 따라해 보세요.

메뉴단추 목록에서 마우스 오른쪽키를 누르면 나오는 메뉴에서
1. 컨트롤 도구 상자 체크확인 (안 되었을 경우 클릭)
2. 컨트롤 도구 상자 단추에서 command 버튼 클릭
3. 적당한 위치에서 클릭 => command 단추가 생김 (되도록이면 화면을 가리지 않게 하세요)
4. 새로 생기 command 단추 더블 클릭하면 비쥬얼 베이직 화면이 뜹니다.

5. Ctrl+A 를 눌러 모두 선택 삭제 후
6. 아래 소스를 복사해 넣으신 후
7. 저장하시고
8. command 버튼 클릭하면 됩니다.

'===============================================================================

' 소스

' 해당화면 기준으로 작성되었음을 알려드립니다.
' (cjsdltlq님의 네이버 지식 질문)
Private Sub CommandButton1_Click()
    Dim crnt_row As Long            ' 작업중인 열(줄)번호
    Dim crnt_count As Integer       ' 성명별 자료수
    Dim save_name As String         ' 성명 변수
    Dim crnt_range As String        ' 범위 변수
    Dim sed_cnt As Integer          ' 세번 번호 변수
   
    Dim p_rela As String              ' 세대구분 출력 변수 (a : 단독세대, b : 부부세대, c : 기타)
    Dim num_rela As Integer             ' 세대구분 출력 변수
    Dim temp As Integer                 ' 임시변수
   
    Dim i, j As Integer               ' crnt_count 를 세기 위한 변수

    crnt_row = 3
   
    Range("M3:N20000").Clear        ' M3:N60000 까지 지움
    Do While 1
        If Len(Cells(crnt_row, 4)) = 0 Then     ' D행(관계)란이 공백이면 반복문 빠져 나옴
            Exit Do
        End If
       
        crnt_name = Cells(crnt_row, 3)
        p_rela = ""
        num_rela = 0
        temp = 0
For i = 0 To 100 ' 관계 밑에 공백의 셀 갯수 구하기
            If Len(Cells(crnt_row + i + 1, 3)) > 0 Or Len(Cells(crnt_row + i + 1, 4)) = 0 Then
                Exit For
            End If
        Next
       
        If i = 0 Then               ' 공백 셀 갯수가 없으면 "단독세대"
            p_rela = "단독"
        Else
            If Cells(crnt_row + 1, 4) = "처" And i = 1 Then    ' 공백수가 1이고 바로 밑이 "처"이면 "부부세대"
                p_rela = "부부"
Else ' 아니면 "기타"
                For j = crnt_row + 1 To crnt_row + i + 1
                    If Cells(j, 4) = "증손녀" And num_rela < 5 Then
                        num_rela = 5
                    End If
                    If Cells(j, 4) = "증손" And num_rela < 4 Then
                        num_rela = 4
                    End If
                    If Cells(j, 4) = "손" And num_rela < 3 Then
                        num_rela = 3
                    End If
                    If Cells(j, 4) = "자" And num_rela < 2 Then
                        num_rela = 2
                    End If
                Next
                p_rela = num_rela & "세대"
                   
            End If
        End If
        Cells(crnt_row, 13) = p_rela
       
        crnt_row = crnt_row + 1 + i                 ' 진행열 증가
    Loop
End Sub

'===============================================================================

어렵네요.. 어려워.. ^^;

IF문안에 IF문을 다시 쓰려니 오류가 뻥뻥 터져요~ ㅋ

그래서 그냥 단순하게.. 나눳습니다.

먼저 해주실 일은 D열의 마지막에 "본인" 을 입력하고 아래의 셀을 순서대로 입력하시고

쭉 끝까지 끌어내리세요~

N3 셀값 :

=IF(COUNTIF(INDIRECT(ADDRESS(ROW(),4)):INDIRECT(ADDRESS(ROW()+MATCH("본인",INDIRECT(ADDRESS(ROW()+1,4)):INDIRECT(ADDRESS(65536,3)),0)-1,4)),"증손녀")>0,TRUE,FALSE)

O3 셀값 :

=IF(COUNTIF(INDIRECT(ADDRESS(ROW(),4)):INDIRECT(ADDRESS(ROW()+MATCH("본인",INDIRECT(ADDRESS(ROW()+1,4)):INDIRECT(ADDRESS(65536,3)),0)-1,4)),"증손")>0,TRUE,FALSE)

P3 셀값 :

=IF(COUNTIF(INDIRECT(ADDRESS(ROW(),4)):INDIRECT(ADDRESS(ROW()+MATCH("본인",INDIRECT(ADDRESS(ROW()+1,4)):INDIRECT(ADDRESS(65536,3)),0)-1,4)),"손")>0,TRUE,FALSE)

Q3 셀값 :

=IF(COUNTIF(INDIRECT(ADDRESS(ROW(),4)):INDIRECT(ADDRESS(ROW()+MATCH("본인",INDIRECT(ADDRESS(ROW()+1,4)):INDIRECT(ADDRESS(65536,3)),0)-1,4)),"자")>0,TRUE,FALSE)

R3 셀값 :

=IF(COUNTIF(INDIRECT(ADDRESS(ROW(),4)):INDIRECT(ADDRESS(ROW()+MATCH("본인",INDIRECT(ADDRESS(ROW()+1,4)):INDIRECT(ADDRESS(65536,3)),0)-1,4)),"처")>0,TRUE,FALSE)

M3 셀값 :

=IF(D3<>"본인","",IF(N2,"5세대",IF(O2,"4세대",IF(P2,"3세대",IF(Q2,"2세대",IF(R2,"부부","단독"))))))