Note: The other languages of the website are Google-translated. Back to English

Excel에서 모든 빈 줄 또는 셀의 첫 번째 줄만 삭제하는 방법은 무엇입니까?

셀의 공백과 혼합 된 여러 줄이있는 통합 문서를받을 수 있습니다. 셀에서 이러한 빈 줄을 삭제하는 방법은 무엇입니까? 그리고 첫 번째 줄만 삭제하는 것은 어떻습니까? 이 기사는 단계별로 처리하는 데 도움이 될 것입니다.

VBA 코드로 셀의 모든 빈 줄 삭제
VBA 코드가있는 셀의 첫 번째 줄만 삭제


VBA 코드로 셀의 모든 빈 줄 삭제

아래 스크린샷과 같이 셀의 모든 빈 줄을 삭제하려면 다음 VBA 코드를 실행하여 완료할 수 있습니다.

1. 누르세요 다른 + F11 키보드의 키를 누르면 열립니다. 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 아래 VBA 코드를 복사하여 모듈 창.

VBA 코드 : 셀의 모든 빈 줄 삭제

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 삭제할 빈 줄이 있는 셀을 선택하십시오. Excel 용 Kutools 대화 상자. 마지막으로 OK 버튼을 클릭합니다.

그러면 아래 스크린샷과 같이 지정된 셀에서 모든 빈 줄이 삭제되는 것을 볼 수 있습니다. 텍스트는 여전히 다른 줄에 있습니다.


VBA 코드가있는 셀의 첫 번째 줄만 삭제

아래 스크린샷과 같이 A2 및 A3 셀의 첫 번째 줄을 삭제하려면 다음 VBA 코드가 도움이 될 수 있습니다.

1. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 아래 VBA 코드를 복사하여 모듈 창.

VBA 코드 : 셀의 첫 번째 줄만 삭제

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. 누르세요 F5 코드를 실행하는 키입니다. 팝업에서 Excel 용 Kutools 대화 상자에서 첫 번째 줄만 삭제해야 하는 셀을 선택한 다음 OK 버튼을 클릭합니다.

그러면 아래 스크린 샷과 같이 지정된 셀에서 모든 첫 번째 줄이 삭제되는 것을 볼 수 있습니다.


관련 기사:


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (8)
5에서 평가 된 5 · 1 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
이것은 훌륭하게 작동합니다. 숫자로 시작하지 않고 줄만 제거하도록 코드를 조정하려면 어떻게 해야 합니까?

감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하이 잭,
죄송합니다. 아직 도와드릴 수 없습니다. 당신의 의견에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
첫 번째 줄 대신 마지막 줄을 제거하기 위해 이것을 조정하는 방법을 알고 있습니까? 티아
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Jeg forstår desværre ikke et kvæk af ovenstående. Fjerne tomme linier i Exell에서 der ikke en nem og ligetil måde를 찾으십니까? Helst uden koder og andet mystisk!

진심으로 너의 것
레네
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요
셀의 다른 줄에 원본 텍스트를 유지하지 않으려면 다음 방법을 적용하여 완료할 수 있습니다.
1. 찾기 및 바꾸기 기능 사용:
Ctrl + H 키를 누릅니다. 찾기 및 바꾸기 대화 상자 열기에서 찾을 내용 상자를 클릭하여 활성화합니다. Alt 키를 누른 상태에서 숫자 키패드에서 010을 입력합니다. 바꿀 내용 상자를 비워 두고 모두 바꾸기 버튼을 클릭합니다. 그러나 모든 텍스트는 같은 줄에 집중되어 있습니다.
2. 도우미 열에 다음 수식 사용:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
여기서 A1은 처리할 셀입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 내 첫 번째 VBA이며, 첫 번째 단계에 이르렀으며 지금까지 내 문제를 해결했습니다. 나중에 참조할 수 있도록 지침을 인쇄했습니다. 지금까지 나는 감쌌다. 훌륭한 교육도 훌륭합니다. 귀하의 품질 기술과 세부 사항에 감사드립니다.
5에서 평가 된 5
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
This Works 그것은 내 모든 줄을 제거했지만 유일한 문제는 단일 셀을 실행하는 데 너무 많은 시간이 걸리고 그것을 수행하는 데 큰 데이터가 있고 그것에 대해 너무 많은 시간이 걸릴 것이라고 생각합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 탄비르 칸,
코드는 내 편에서 정상 속도로 실행됩니다. 어떤 엑셀 버전을 사용하고 계신지 알려주실 수 있나요?
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호