이 글에서는 2020년부터 2022년까지 3개 연도에 걸친 월별 판매 데이터셋을 활용해, 버튼 하나만 누르면 자동으로 재생되는 애니메이션 판매 차트를 만드는 방법을 소개합니다.

1단계 – 보조 열을 활용한 차트 만들기
- "Sales"라는 이름의 보조 열 3개를 삽입합니다.

참고: 보조 열에 색상을 입혀 강조하면 시각적으로 훨씬 알아보기 쉽습니다.
- 워크시트의 빈 셀을 클릭합니다.
- 삽입 탭으로 이동합니다.
- 차트 그룹에서 꺾은선형 또는 영역형 차트 삽입을 선택한 뒤 누적 꺾은선형을 클릭합니다.
- 생성된 차트를 마우스 오른쪽 버튼으로 클릭하고 데이터 선택을 누릅니다.

데이터 원본 선택 대화 상자가 열리면 범례 항목(계열)에서 추가를 클릭합니다.

계열 편집 창이 나타나면 계열 이름에 Sales (2020)를 지정하고, 계열 값 입력란에 데이터 범위 $F$5:$F$16을 선택한 후 확인을 누릅니다.

같은 방법으로 나머지 "Sales" 열과 각각에 대응하는 보조 열을 모두 계열로 추가합니다.

다음으로 가로(항목) 축 레이블 영역에서 편집을 클릭합니다.

축 레이블 대화 상자가 열리면 범위 $B$5:$B$16을 선택하고 확인을 누릅니다.

마지막으로 데이터 원본 선택 창에서 확인을 누르면 차트 설정이 완료됩니다.

더 읽어보기: 엑셀에서 애니메이션 막대 차트 레이스(Bar Chart Race) 만드는 방법
2단계 – 차트 서식 지정
차트 요소 메뉴에서 차트 제목과 축 제목을 추가하고, 범례는 차트 하단에 배치합니다.

여기까지 진행하면 아래 이미지와 비슷한 형태의 차트가 완성됩니다.

3단계 – VBA 코드 작성하기
- 개발 도구 탭에서 Visual Basic을 클릭합니다.

- 삽입 메뉴에서 모듈을 선택합니다.

모듈 1의 일반 영역에 아래 VBA 코드를 붙여 넣고 저장합니다.
Sub AnimationChart()
Const SR As Long = 5
Dim LR As Long
Dim RN As Long
LR = Range("C" & SR).End(xlDown).Row
Range("F" & SR, "H" & LR).ClearContents
DoEvents
Application.Wait (Now + TimeValue("00:00:1"))
For RN = SR To LR
DoEvents
Range("F" & RN, "H" & RN).Value = Range("C" & RN, "E" & RN).Value
Application.Wait (Now + TimeValue("00:00:1"))
DoEvents
Next RN
End Sub

코드 설명
먼저 변수를 선언합니다. 시작 행(Starting Row)을 의미하는 상수 SR은 이 예제에서 5로 설정했으며, LR은 마지막 행(Last Row), RN은 행 번호(Row Number)를 나타내는 변수입니다.
- LR = Range("C" & SR).End(xlDown).Row → C열 데이터의 마지막 행 위치를 구하는 명령입니다.
- Range("F" & SR, "H" & LR).ClearContents → F~H열의 기존 값을 모두 삭제하는 명령입니다.
그런 다음 반복문을 통해 한 행씩 값을 옮겨 가며 빈 열(F~H)을 순차적으로 채워 나갑니다. 지연 시간은 1초로 설정했는데, 덕분에 데이터가 1초 간격으로 화면에 하나씩 나타나면서 차트에 역동적인 느낌을 더해 줍니다.
4단계 – 애니메이션 실행 버튼 추가하기
- 워크시트에 양식 컨트롤을 이용해 버튼을 추가합니다.
- 버튼 이름을 Animation으로 변경합니다.
- Animation 버튼을 마우스 오른쪽 버튼으로 클릭한 뒤 바로 가기 메뉴에서 매크로 지정을 선택합니다.

- 매크로 지정 대화 상자에서 매크로 이름으로 AnimationChart를 선택하고 확인을 누릅니다.

이제 애니메이션 차트가 완성되었습니다. Animation 버튼을 클릭해 보세요!

연습 파일
각 시트 오른쪽에 연습용 섹션을 함께 제공하므로, 위에서 배운 단계를 직접 따라 하며 학습할 수 있습니다.

연습용 워크북 다운로드하기
함께 읽으면 좋은 글
- 엑셀에서 텍스트에 애니메이션 효과 주는 방법
- UserForm에서 VBA 애니메이션 활용하기
무료 고급 엑셀 연습 문제와 해설도 놓치지 마세요!