엑셀 작업을 하다 보면 특정 데이터의 공백이나 띄어쓰기를 제거해야 할 때가 있습니다. 데이터가 많지 않다면 수작업으로 하나하나 지울 수도 있지만, 셀을 클릭하여 공백을 찾아 지우는 것은 단 1줄이라도 매우 번거로울 수 있습니다. 그러나 이 공백이 수만 개가 있더라도 쉽게 제거할 수 있는 방법이 있습니다.
..
각자 환경과 상황에 따라 예시가 다를 수 있는데, 데이터 자체는 별 의미가 없는 테스트 내용입니다.
엑셀 데이터나 텍스트의 공백을 제거해야 하는 상황은 모두에게 공통적입니다.
.
위 사진에서는 데이터가 얼마 없지만, 데이터가 몇 줄이든 몇 장이든 한 번에 처리할 수 있습니다.
먼저 글자 A를 B로 바꾸는 방법을 아신다면, 금방 이해되실 것입니다.
엑셀에서 텍스트의 공백을 제거하려면 TRIM 함수를 사용하세요.
셀의 영역을 드래그하여 공백을 없애고자 하는 텍스트를 선택해줍니다.
– 그 다음, 키보드에서 CTRL + F를 눌러 창을 띄우십시오. 그리고 [바꾸기]를 클릭하십시오.
.
현재 엔지니어로서 10년 이상의 PC 노하우를 블로그와 유튜브에 공유하고 있습니다.
PC 관련 문의를 무료로 도와드리니, 아래 SNS를 활용해보세요.
확인 후, 바뀐 항목의 갯수를 체크하고 [닫기]를 클릭합니다.
처음에 선택했던 영역 내의 모든 공백 띄어쓰기가 사라진 모습을 보실 수 있습니다.
여기서 두 가지 꿀팁을 드리겠습니다.
시트 내의 모든 공백을 제거하려면 다음 방법을 사용하세요. 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 키를 눌러 매크로를 실행합니다.
이전 포스팅을 참고하세요.
[범위]를 “통합 문서”로 선택하신 다음 [모두 바꾸기]를 클릭하시면 됩니다.
이 글이 도움이 되셨나요?
평점을 남겨주세요
아직 해결이 안됐거나 불편한 사항이 있다면 아래에 적어주세요
제 메일로 전송되며 즉시 개선토록 하겠습니다!