12개의 시트를 [2020년 1월, 2월, 3월 ~~ 12월]로 변경한다고 가정해 보겠습니다.

12개 정도는 일일이 바꾸는 것이 훨씬 빠르고 속 편할 수 있다고 솔직히 생각합니다.

이 여러 개의 시트명을 한 번에 변경하는 방법을 찾고 공부하여 익히는데, 적용하는 것보다 시간이 더 오래 걸릴 수 있습니다.

시트가 20개, 50개, 100개 등으로 많으면, 시트명을 하나하나 수정하는 것이 시간이 많이 들고 정신적으로 피곤할 수 있습니다.

여러 개의 시트명을 변경하려면 엑셀의 VBA 기능을 사용하는 방법이 있습니다.

VBA라는 단어가 익숙지 않아서 어색하고 흥미가 없을 수 있겠지만, 걱정하실 필요 없습니다.

엑셀 시트명을 일괄적으로 변경하려면 아래 단계를 따라 하시면 됩니다:

1. Excel 파일을 엽니다.
2. ▶ “개발 도구” 탭을 클릭합니다. 이 탭이 보이지 않으면 “파일” > “옵션” > “리본 사용자 지정”에서 “개발 도구”를 체크하여 활성화합니다.
3. “Visual Basic”을 클릭하여 VBA 에디터를 엽니다.
4. “삽입” > “모듈”을 선택하여 새 모듈을 추가합니다.
5. 다음 코드를 복사하여 붙여 넣습니다:
“`vba
Sub RenameSheets()
Dim ws As Worksheet
Dim i As Integer
i = 1
For Each ws In ThisWorkbook.Worksheets
ws.Name = “Sheet” & i
i = i + 1
Next ws
End Sub
“`
6. ▶ “실행” 버튼을 클릭하거나 F5 키를 눌러 코드를 실행합니다.

이러면 모든 시트가 순서대로 “Sheet1”, “Sheet2” 등으로 이름이 변경됩니다.

먼저 아래의 코드를 드래그해서 복사해놓으세요.

..

Sub 매크로()
    Dim i As Integer
     For i = 1 To Sheets.Count
      With Sheets(i)
         .Name = "2020년" & i & "월"
         End With
     Next i
End Sub

이 코드를 이해해 보려 하지 마십시오.

C나 JAVA 같은 프로그래밍 언어는 컴퓨터공학부 또는 IT 계열에 종사하는 분들이라면 배우셨을 것입니다.

엑셀 프로그래밍 언어로 아주 단순한 for문이 작성되었음을 아실 것입니다.

단지 언어 스타일만 다른 것입니다.

..

.

각 시트를 처음부터 끝까지 확인하면서 이름을 수정하세요.

.

알파벳 i는 1부터 시작하는 숫자가 됩니다.

2020년에 각 달을 나타내는 시트가 총 12개 있습니다. 1월부터 12월까지 생성됩니다.

아래 사진이 그 결과물입니다.

시트명을 일괄적으로 변경하는 방법을 계속해서 소개합니다.

아무 시트나 클릭한 후 마우스를 우클릭하고, 코드 보기를 클릭하세요.

무섭게 생긴, 건드려서는 안 될 것 같은 VBA 창이 나타날 것입니다.

겁먹지 말고, [통합문서1 – Sheet1]에다가 아까 복사했던 코드를 그대로 붙여넣으세요.

필자는 블로그와 유튜브에 10년 이상의 PC 노하우를 공유하고 있는 현직 엔지니어입니다.

PC 관련 문의를 무료로 도와드립니다. 아래 SNS를 활용해보시기 바랍니다.

▶ PC 고장 문의 게시판

▶ PC 꿀팁 카페 (네이버)

▶ 유튜브 <PC 꿀팁 받기>

▶ 유튜브 <컴맹 탈출 강좌>

..

모든 숫자는 1부터 시작하며, 시트가 10개일 경우 마지막 숫자는 10이 됩니다.

이 이상의 응용은 머리가 아프실 겁니다.

첫 번째 시트를 뒤로 잠시 옮겨 놓으면 두 번째 시트부터 숫자 1이 적용될 수 있습니다.

띄어쓰기가 필요할 경우, 글자 사이에 space를 입력하면 그대로 반영됩니다.

모든 코드 수정을 완료하신 후, 위쪽 메뉴에 있는 ▶ 재생 버튼을 눌러주세요.

이후에 [실행]을 눌러주세요.

VBA창이 닫히고 별다른 반응이 없을 때에는 우측 상단의 닫기 (x)를 눌러 창을 닫으면 되겠습니다.

아까 모든 시트가 2020년 1월부터 12월까지 깔끔하게 변한 모습을 볼 수 있습니다.

..

각자 환경과 상황에 따라 예시가 다를 수 있는데, 데이터 자체는 별 의미가 없는 테스트 내용입니다.

엑셀 데이터나 텍스트의 공백을 제거해야 하는 상황은 모두에게 공통적입니다.

.

위 사진에서는 데이터가 얼마 없지만, 데이터가 몇 줄이든 몇 장이든 한 번에 처리할 수 있습니다.

먼저 글자 A를 B로 바꾸는 방법을 아신다면, 금방 이해되실 것입니다.

엑셀에서 텍스트의 공백을 제거하려면 TRIM 함수를 사용하세요.

셀의 영역을 드래그하여 공백을 없애고자 하는 텍스트를 선택해줍니다.

– 그 다음, 키보드에서 CTRL + F를 눌러 창을 띄우십시오. 그리고 [바꾸기]를 클릭하십시오.

.

현재 엔지니어로서 10년 이상의 PC 노하우를 블로그와 유튜브에 공유하고 있습니다.

PC 관련 문의를 무료로 도와드리니, 아래 SNS를 활용해보세요.

▶ PC 고장 문의 게시판

▶ PC 꿀팁 카페 (네이버)

▶ 유튜브 <PC 꿀팁 받기>

▶ 유튜브 <컴맹 탈출 강좌>

확인 후, 바뀐 항목의 갯수를 체크하고 [닫기]를 클릭합니다.

처음에 선택했던 영역 내의 모든 공백 띄어쓰기가 사라진 모습을 보실 수 있습니다.

여기서 두 가지 꿀팁을 드리겠습니다.

시트 내의 모든 공백을 제거하려면 다음 방법을 사용하세요. Excel에서 매크로를 실행하여 전체 시트의 공백을 제거할 수 있습니다. `Ctrl` + `F`를 눌러 찾아 바꾸기 기능을 사용하고, 찾을 내용을 공백으로 두고 바꿀 내용을 비워 두어 공백을 제거하세요. VBA 코드를 사용할 수도 있습니다:

“`vba
Sub RemoveAllSpaces()
Dim rng As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(“Sheet1″) ‘ 시트명을 변경해 사용하세요.
For Each rng In ws.UsedRange
If Not IsEmpty(rng.Value) Then
rng.Value = Replace(rng.Value, ” “, “”)
End If
Next rng
End Sub
“`

VBA 편집기(Alt + F11)를 열어 모듈을 추가한 후 위의 코드를 삽입하여 사용하십시오.

영역을 잡지 않아도 됩니다. 그 방법을 알려드리겠습니다.

시트 내 모든 공백을 제거해 드리겠습니다.

데이터가 없는 빈셀을 먼저 클릭하세요.

CTRL + F (찾기)를 누르신 후, [바꾸기]로 이동하세요. 그런 다음, [찾을 내용]에 [스페이스]를 한 번 입력해 주세요.

“시트”로 범위를 선택한 다음, [모두 바꾸기]를 클릭하셔야 합니다.

모든 시트의 공백과 띄어쓰기를 제거하는 방법입니다:
1. Excel에서 Alt + F11을 눌러 **VBA 편집기**를 엽니다.
2. [Insert] 메뉴에서 `Module`을 선택합니다.
3. 아래 코드를 붙여넣습니다.

“`vba
Sub RemoveSpaces()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

For Each ws In ThisWorkbook.Worksheets
ws.Activate
On Error Resume Next
Set rng = ws.UsedRange

For Each cell In rng
If Not IsEmpty(cell.Value) Then
cell.Value = Application.WorksheetFunction.Trim(cell.Value)
End If
Next cell
Next ws

MsgBox “모든 시트의 공백이 제거되었습니다.”
End Sub
“`
4. [Module] 내에서 F5 키를 눌러 매크로를 실행합니다.

이전 포스팅을 참고하세요.

[범위]를 “통합 문서”로 선택하신 다음 [모두 바꾸기]를 클릭하시면 됩니다.

문제의 화면을 먼저 보겠습니다.

데이터 테이블에 각 행 사이에 빈 행을 추가한다고 합니다.

사실, 5개 정도야 일일이 행을 삽입한다고 해서 피로도가 크게 발생하지 않을 것입니다.

100개 이상의 행을 생각하면 한숨부터 나올 겁니다.

일일이 행을 하나씩 삽입하는 방법을 모르시는 분들을 위해 잠시 설명해드리겠습니다.

행표시줄에서 좌측을 클릭한 후, 마우스 우클릭 -> 삽입을 선택하면 빈 행이 추가됩니다.

이러한 상황에 처할 때마다 기쁠 수 있습니다.

자, 아래의 방법을 통해 각 행마다 빈 줄을 한 번에 추가해 보겠습니다.

저는 현직 엔지니어로서, 10년 이상의 PC 노하우를 블로그와 유튜브에 공유하고 있습니다.

PC 관련 문의는 100% 무료로 도와드리니 아래 SNS를 활용해 보세요.

▶ PC 고장 문의 게시판

▶ PC 꿀팁 카페 (네이버)

▶ 유튜브 <PC 꿀팁 받기>

▶ 유튜브 <컴맹 탈출 강좌>

엑셀 행 사이에 빈 줄을 삽입하고 각 행마다 빈칸을 추가하여 채우세요.

생각보다 한 번에 해결할 수 있는 방법은 없습니다…

방금 언급한 방법보다 더 간단한 요령이 있습니다.

행의 갯수만큼 숫자를 연속적으로 채운 하나의 “열”을 만들어 보겠습니다.

다섯 개의 행이 있을 때, 꼼수 필드에 1부터 5까지의 숫자를 입력하고, 그 아래에 동일하게 한 번 더 복사해 넣어 주세요.

3) 이후 꼼수 필드의 데이터 영역을 전부 드래그해서 선택하세요.

[홈] 메뉴에서 맨 우측에 있는 [정렬 및 필터]를 클릭하세요.

[정렬 및 필터] -> [숫자 오름차순 정렬] 클릭하세요.

.

“꼼수” 필드의 내용이 1122334455로 정렬되었습니다.

빈칸들도 그 행에 자연스럽게 사이사이에 배치되었습니다.

엑셀의 정렬 기능을 사용하여 각 행사 사이에 빈칸을 삽입한 것입니다.

아직 끝나지 않았습니다.

쓸모없어진 꼼수 필드는 삭제해야 한다.

‘꼼수 열을 클릭 후, 마우스 우클릭 -> 삭제하십시오.’

다음으로, NO 4, 5 번 쪽의 부분에서는 빈칸이 존재하고 검은색 외곽선이 없어 미완성된 느낌이 듭니다.

검은색 외곽선이 멀쩡히 적용된 셀을 클릭 후 -> 엑셀 상단메뉴에서 [홈] -> [서식 복사] 클릭

데이터 영역들을 전부 드래그해서 선택하면, 외곽선이 다시 나타납니다.

12345 / 12345 / 12345 를 3개로 나누면, 빈 행을 2개 추가할 수 있습니다.

여기까지 설명했으니 원리를 이해하셨을 거라 봅니다.

우선 결과 화면을 확인해 보겠습니다.

보통 회사 서류의 오른쪽 위에는 결재란이 있습니다.

그런데 이 결재란을 해당 시트에서 직접 만들면 보통 아래처럼 보기 싫은 형태가 될 것입니다.

칸들을 동일한 너비와 높이로 조정하면 다른 행과 열의 높이가 변형될 수 있어 동일하게 맞추기가 어렵습니다.

이 일은 정말 복잡합니다.

결재란을 깔끔하고 빠르게 만드는 방법을 소개하겠습니다.

빈 시트를 하나 만드셔야 합니다.

빈 시트에 우리가 원하는 모양과 스타일의 결재란을 만들어주세요.

적당한 사이즈의 결재란이 완성되면, 해당 영역을 드래그하여 선택한 후 복사합니다.

마우스 우클릭 – 복사 또는 CTRL + C를 이용하세요.

셀을 클릭한 다음 마우스 우클릭을 하신 후, 선택하여 붙여넣기 옆의 화살표를 클릭하세요.

.

빈 셀에서 만들었던 결재란이 그림 형태로 삽입됩니다, 아래의 사진처럼.

해당 시트는 이미지 형태로 작성된 것으로, 행과 열의 제약을 받지 않습니다.

결재란의 사이즈 조절 실패로 인해, 아래와 같이 결재란이 좁거나 넓게 만들어질 수 있습니다.

그렇다고 이미지 자체의 높이와 너비를 직접 조절할 경우, 아래와 같이 더 흉한 모습이 될 것입니다.

저는 현직 엔지니어로서, 10년 이상의 PC 노하우를 블로그와 유튜브에 공유하고 있습니다.

PC 관련 문의를 100% 무료로 도와드리니까, 아래 SNS를 활용해 보세요.

▶ PC 고장 문의 게시판

▶ PC 꿀팁 카페 (네이버)

▶ 유튜브 <PC 꿀팁 받기>

▶ 유튜브 <컴맹 탈출 강좌>

빈 시트에서 복사한 결재란의 사이즈 조절이 필요하면, 그림 자체를 조절하지 마세요.

결재란의 원본을 조정해야 합니다. 그래야 깔끔하게 삽입됩니다.