소설로 읽는 고려사 (4편): 80만 대군을 돌려세운 혀의 힘, 서희의 외교 담판

소설로 만나는 역사

성종이 유교 정치의 기틀을 다지며 나라의 안정을 꾀하던 993년 겨울, 고려의 북쪽 하늘에 거대한 먹구름이 드리워졌다. 당시 동아시아의 신흥 강자로 떠오른 거란(요나라)이 80만 대군을 이끌고 압록강을 건넌 것이다.
"고구려의 옛 땅을 내놓고 항복하라! 그렇지 않으면 개경을 잿더미로 만들 것이다!"
거란의 장수 소손녕의 포효에 고려 조정은 공포에 질렸다. 땅을 떼어주고 항복하자는 '할지론'이 득세했고, 심지어 서경(평양) 이북의 땅을 버리자는 극단적인 주장까지 나왔다. 그때, 침묵을 지키던 중군사 서희(徐熙)가 차갑게 입을 열었다.
"적의 기세에 눌려 땅을 내주는 것은 나라를 통째로 바치는 것과 같습니다. 저들이 진정 원하는 것이 무엇인지 제가 직접 확인하고 오겠습니다."
서희는 홀홀단신으로 소손녕의 진영으로 향했다. 거란의 기세는 등등했다. 소손녕은 서희에게 뜰 아래에서 절을 하라며 기선제압을 시도했지만, 서희는 눈 하나 깜짝하지 않았다.
"두 나라의 대신이 만났는데 어찌 예우를 갖추지 않는단 말이오!"
당당한 서희의 태도에 당황한 소손녕은 결국 맞절을 하며 회담을 시작했다. 소손녕은 "고려는 신라의 땅에서 일어났는데 왜 고구려의 땅을 차지하고 있느냐"며 억지를 부렸다. 서희는 기다렸다는 듯 미소를 지었다.
"우리 국호가 왜 '고려'겠소? 우리는 고구려를 계승한 나라요. 오히려 당신들의 수도인 요양도 원래 우리 땅인데 어찌 우리가 남의 땅을 침범했다 하는가!"
논리에서 밀린 소손녕이 송나라와의 교류를 문제 삼자, 서희는 핵심을 찔렀다.
"우리가 당신들과 교류하지 못하는 것은 압록강 근처를 가로막은 여진족 때문이오. 그 땅을 우리가 관리하게 해준다면 어찌 거란과 교류하지 않겠소?"
서희의 치밀한 심리전에 말려든 소손녕은 결국 80만 대군을 철수시켰을 뿐만 아니라, 고려가 압록강 동쪽의 땅을 차지하는 것에 동의했다. 칼 한 번 휘두르지 않고 얻어낸 기적 같은 승리였다.

한능검 핵심:

서희와 거란의 1차 침입, 이것만 알면 끝!
서희의 담판은 한국사 외교 파트에서 가장 비중 있게 다뤄지는 주제입니다.

1. 거란의 1차 침입 (993, 성종)

* 배경: 고려의 친송 북진 정책에 불만을 품은 거란이 침입함.
* 서희의 담판: 소손녕과의 외교 협상을 통해 거란의 침입 의도가 '고려와 송의 관계 단절'임을 파악함.
* 결과: 강동 6주 확보 (★★★★★)
   * 압록강 동쪽의 여진족을 몰아내고 6개의 성(강동 6주)을 쌓아 영토를 압록강까지 확장함.
   * 거란과 교류할 것을 약속하며 전쟁 없이 영토를 확장한 사례.

2. 고려의 대외 관계 이해

* 거란이 침입한 근본 원인은 고려가 거란을 적대시하고(태조의 만부교 사건 등) 송나라와 친하게 지냈기 때문임.
* 서희는 이를 역이용해 '거란과의 교류'를 명분으로 실리(땅)를 챙김.

👉 암기 구호:

“서희-말빨-강동6주-압록강까지!”

마무리하며

서희의 담판은 단순한 말재주가 아니라, 정확한 국제 정세 파악과 당당한 주권 의식이 만들어낸 승리였습니다. 위기의 순간에 땅을 버리려 했던 이들에게 서희가 보여준 결단은 오늘날 우리에게도 큰 울림을 줍니다.
다음 편에서는 거란의 끈질긴 침략을 잠재운 노장의 투혼, "강감찬과 귀주대첩: 살수에서 귀주까지, 승리의 물결" 이야기로 찾아뵙겠습니다.

1초 만에 데이터 찢기! 부서별/지역별 시트 자동 분할 매크로 (복붙용 코드 포함) 🚀

안녕하세요! 물류와 코딩 사이의 경계에서 성장하고 있는 물류아재 칵칵입니다. ☕

오늘 하루도 이런 지시를 받지 않으셨나요?
"김대리, 이번 달 전체 매출 데이터 뽑은 거, 각 부서별로 시트 나눠서 따로 정리 좀 해줘."

부서가 3~4개면 필터를 걸고 복사해서 새 시트에 붙여넣는 작업을 기꺼이 할 수 있습니다. 하지만 부서가 20개, 30개라면 어떨까요?
거래처별, 지역별, 담당자별로 데이터를 찢어야 한다면 귀중한 오전 시간은 'Ctrl+C, Ctrl+V'만 하다가 날아가 버립니다. 😱

오늘은 이 지독한 복붙 노가다를 버튼 클릭 한 번, 단 1초 만에 해결해 주는 '데이터 자동 분할' 매크로를 준비했습니다. VBA를 몰라도 괜찮습니다. 늘 그랬듯, 아래 순서대로 복사해서 붙여넣기만 하세요! 👇

## 🛠️ Step 1. 매크로를 담을 그릇 만들기

먼저 엑셀에 코드를 입력할 공간을 열어야 합니다.
* [개발 도구] 탭을 누릅니다.
   * 혹시 '개발 도구' 탭이 안 보이나요? 상단 메뉴 아무 곳이나 마우스 우클릭 → [리본 사용자 지정] → 오른쪽 목록에서 **[개발 도구]**에 체크하고 확인을 누르세요! ✅
* 가장 왼쪽에 있는 [Visual Basic] 버튼을 클릭합니다. (단축키: Alt + F11)
* 새로 뜬 창 상단 메뉴에서 [삽입] → **[모듈]**을 클릭합니다.
* 이제 하얀색 빈 메모장 같은 창이 나타날 거예요. 여기에 아래 코드를 복사해서 붙여넣으세요!

## 💻 Step 2. 마법의 코드 복사하기

아래 코드를 그대로 복사해서 방금 만든 하얀 창에 붙여넣으세요. 📋

'// 기능: 특정 열을 기준으로 데이터를 시트별로 자동 분할합니다.
Sub SplitDataByColumn()
    Dim ws As Worksheet, newWs As Worksheet
    Dim rng As Range, cell As Range
    Dim dict As Object
    Dim key As Variant
    Dim lastRow As Long, colIndex As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    
    '1. 기준 열 번호 입력받기
    On Error Resume Next
    colIndex = InputBox("데이터를 나눌 기준 열 번호를 숫자로 입력하세요." & vbNewLine & "(예: A열=1, B열=2, C열=3)", "기준 열 선택", 1)
    If colIndex = 0 Then Exit Sub
    On Error GoTo 0
    
    Set dict = CreateObject("Scripting.Dictionary")
    
    '2. 고유한 기준값(부서명 등) 추출
    For Each cell In ws.Range(ws.Cells(2, colIndex), ws.Cells(lastRow, colIndex))
        If cell.Value <> "" And Not dict.exists(cell.Value) Then
            dict.Add cell.Value, Nothing
        End If
    Next cell
    
    Application.ScreenUpdating = False '작업 속도 향상
    
    '3. 시트 생성 및 데이터 복사
    For Each key In dict.keys
        ws.Range("A1").AutoFilter Field:=colIndex, Criteria1:=key
        
        '이미 해당 이름의 시트가 있는지 확인 후 생성
        On Error Resume Next
        Set newWs = Sheets(CStr(key))
        If newWs Is Nothing Then
            Set newWs = Sheets.Add(After:=Sheets(Sheets.Count))
            newWs.Name = CStr(key)
        Else
            newWs.Cells.Clear '기존 데이터가 있으면 삭제
        End If
        On Error GoTo 0
        
        ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Destination:=newWs.Range("A1")
        newWs.Columns.AutoFit
        Set newWs = Nothing
    Next key
    
    ws.AutoFilterMode = False
    ws.Activate
    Application.ScreenUpdating = True
    
    MsgBox "모든 시트 분할이 완료되었습니다! 칼퇴하세요! 🎉", vbInformation
End Sub

## 🚀 Step 3. 매크로 실행해서 노가다 끝내기!

코드를 붙여넣었다면 이제 엑셀 시트로 돌아오세요.
* [개발 도구] → **[매크로]**를 클릭합니다. (단축키: Alt + F8)
* 목록에서 SplitDataByColumn을 선택하고 **[실행]**을 누릅니다.
* 작은 창이 뜨면, 데이터를 나눌 기준이 되는 열 번호를 입력하세요.
   * 부서명이 B열에 있다면 숫자 2를 입력하고 확인!
* 눈 깜짝할 사이에 시트 탭이 늘어나며 데이터가 완벽하게 분리됩니다! ✨

## ⚠️ 혹시 막히시나요? 대안을 알려드려요!

Q1. 매크로를 실행했는데 오류가 떠요!
* 이유: 데이터의 제목(머리글)이 1행이 아니거나, 데이터 중간에 빈 행이 있을 때 그럴 수 있습니다.
* 대안: 데이터 제목줄을 1행으로 맞추고, 중간에 완전히 빈 행이 없는지 확인해 보세요! 🧐
Q2. 시트가 만들어지다 멈춰요.
* 이유: 부서명(시트 이름이 될 값)에 /, :, ?, *, [, ] 같이 시트 이름으로 쓸 수 없는 특수문자가 섞여 있을 때 발생합니다.
* 대안: 원본 데이터의 기준 열에서 특수문자를 제거하거나 다른 문자로 바꿔보세요! 🛠️
Q3. 파일을 껐다 켜니 매크로가 사라졌어요!
* 이유: 일반 엑셀 파일(.xlsx)로 저장해서 그렇습니다.
* 대안: 반드시 **[다른 이름으로 저장]**에서 파일 형식을 **[Excel 매크로 사용 통합 문서(.xlsm)]**로 선택해서 저장해 주세요! 💾

## 결론: 엑셀에게 일을 시키세요!

매일 하던 30분짜리 단순 노동, 오늘부터는 1초 만에 끝내고 여유롭게 아침 커피 한 잔 하시기 바랍니다. ☕ 이 매크로 하나가 여러분의 소중한 시간을 벌어다 줄 거예요.
사용해 보시다가 궁금한 점이나 "이런 기능도 추가하고 싶어요!" 하는 의견이 있다면 언제든 댓글로 남겨주세요! 💬
칼퇴는 실력이고, 그 실력은 올바른 도구 활용에서 나옵니다. 💪