Categories: 미분류

엑셀 매크로로 반복 업무 자동화하는 실전 예제

엑셀에서 자주 반복하는 작업, 예를 들어 보고서 포맷 정리, 데이터 복사 및 붙여넣기, 시트 생성, 파일 저장 등의 업무는 VBA 매크로를 활용하면 단 몇 초 만에 자동화할 수 있습니다. 이 포스팅에서는 실무에서 자주 발생하는 반복 업무를 VBA 매크로로 해결하는 실전 예제 7가지를 소개합니다.

엑셀 자동화가 처음이신 분들도 이해할 수 있도록 단계별 코드와 설명을 함께 제공하니, 따라 하시면서 바로 적용해보세요.

예제 1: 보고서 헤더 자동 서식 적용

목적:

보고서의 첫 번째 행에 제목과 서식을 자동으로 적용

VBA 코드:

Sub 보고서헤더서식()
    With Range("A1:F1")
        .Font.Bold = True
        .Font.Size = 12
        .Interior.Color = RGB(200, 220, 255)
        .HorizontalAlignment = xlCenter
    End With
End Sub

활용 포인트:

매일 생성되는 보고서에 고정된 스타일을 유지하고 싶을 때
가독성과 통일성 향상

예제 2: 여러 시트에 동일한 데이터 입력

목적:

모든 시트의 A1 셀에 작성자 이름 자동 삽입

Sub 모든시트에이름입력()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Range("A1").Value = "작성자: 홍길동"
    Next ws
End Sub

활용 포인트:

부서별 시트 생성 시 동일한 정보 일괄 입력
보고서 표준 템플릿 자동화

예제 3: 텍스트 데이터 숫자 변환 자동화

목적:

숫자가 텍스트로 저장된 셀을 일괄 숫자로 변환

Sub 텍스트를숫자로변환()
    With Selection
        .Value = .Value + 0
    End With
End Sub

활용 포인트:

외부에서 가져온 데이터가 숫자인데 정렬이 되지 않을 때
CSV 파일 정제 작업

예제 4: 새 워크시트 자동 생성 및 이름 지정

목적:

특정 이름의 시트를 자동으로 생성

Sub 시트자동생성()
    Dim newSheet As Worksheet
    Set newSheet = Worksheets.Add
    newSheet.Name = "2024년실적"
End Sub

활용 팁:

날짜 기반으로 이름 자동 생성:

newSheet.Name = "실적_" & Format(Date, "yyyymmdd")

예제 5: 특정 조건 행 삭제

목적:

‘판매완료’가 아닌 행을 삭제하여 남기고 싶은 행만 보존

Sub 조건행삭제()
    Dim i As Long
    For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
        If Cells(i, 3).Value <> "판매완료" Then
            Rows(i).Delete
        End If
    Next i
End Sub

활용 포인트:

조건부 정리, 필터 없이 직접 삭제
피벗테이블 만들기 전 원본 데이터 정리

예제 6: 파일 저장 자동화

목적:

현재 파일을 날짜 형식으로 자동 저장

Sub 날짜별자동저장()
    Dim 경로 As String
    경로 = "C:\Users\사용자\Documents\"
    ThisWorkbook.SaveAs 경로 & "보고서_" & Format(Date, "yyyymmdd") & ".xlsx"
End Sub

활용 팁:

저장 전 자동 백업
파일 이름 중복 방지

예제 7: 피벗테이블 자동 생성

목적:

A1:D100 범위의 데이터를 기반으로 자동 피벗 생성

Sub 피벗자동생성()
    Dim ptCache As PivotCache
    Dim pt As PivotTable
    Dim ws As Worksheet
    
    Set ws = Sheets.Add
    Set ptCache = ActiveWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, SourceData:="Sheet1!A1:D100")
    Set pt = ptCache.CreatePivotTable( _
        TableDestination:=ws.Range("A3"), TableName:="매출피벗")
        
    With pt
        .PivotFields("지역").Orientation = xlRowField
        .PivotFields("제품").Orientation = xlColumnField
        .PivotFields("매출").Orientation = xlDataField
    End With
End Sub

활용 포인트:

반복적으로 생성해야 하는 월간 실적표 자동화
대량 데이터 분석 속도 향상

Q&A

Q. 매크로를 실무에 적용할 때 가장 중요한 팁은?

작업 전 백업 필수
작은 단위로 테스트 후 확장
셀 참조는 절대/상대 참조 명확히 구분
사용자 실수 방지용 메시지 박스 활용

Q. 매크로가 자동 실행되도록 설정하려면?

Private Sub Workbook_Open()
    Call 보고서헤더서식
End Sub

ThisWorkbook에 작성하면 엑셀 파일 열릴 때 자동 실행

Q. 버튼 클릭으로 매크로 실행하려면?

개발 도구 > 삽입 > 양식 컨트롤 버튼
시트에 버튼 배치
실행할 매크로 연결

활용 예: ‘보고서 생성’, ‘전체 지우기’, ‘신규 등록’ 버튼

엑셀 VBA 매크로는 단순 반복 작업을 줄이는 수준을 넘어, 업무 흐름을 완전히 자동화하는 수준까지 확장할 수 있습니다. 위의 예제들을 실무에 하나씩 적용해보면, 매크로가 실제 시간을 절약하는 가장 현실적인 솔루션이라는 걸 느끼게 될 거예요. 이제 당신도 엑셀 자동화 고수의 길로 한 걸음 더 다가가보세요!

huniverse5