텍스트마이닝 복사 과정에서 스페이스 문제

VBA
작성자
선크
작성일
2022-11-14 23:11
조회
58
엑셀버전 : 엑셀2016

운영체제 : 윈도우10


질문 요약 : 셀 중간에 있는 스페이스를 삭제하고 싶습니다. 가끔나오는 공백도요

뉴스 글을 복사해 값에 붙여넣기를 하면 중간에 빈셀이 생깁니다.

이 빈셀은 정말 빈셀일 수도 있고 중간에 스페이스가 들어갈수있습니다.

빈셀은 전체 복붙하여 찾기 및 선택에서 상수선택 복사 붙여넣기하여 1번의 정제를 하고있습니다. (더 좋은 방법이 있으시면 알려주세요)

근데 빈셀은 정제가 어렵습니다. 모두 찾기 기능으로 하면 모든글에 스페이스를 없애버리기때문에 데이터를 다 붙여서 키워드 분석이 어렵습니다.

데이터가 많아질시에 너무 길어져서 칸을 줄이려고하는것인데 로딩시간도 길어질것같고 필터기능이나뭐 안보이게 해도 좋을것같고..

도움주시면 감사하겠습니다. (최대한 자동화할수있도록)

스크랩
공유
전체 2

  • 2022-11-15 11:03
    채택된 답변

    @선크

    Sub RemoveSpaceOnlyLine() ' 공백문자 또는 줄바꿈문자로 또는 두개가 혼한된 문자로만 이루어진 셀을 A열에서 제거
    
        Set Area = Range("A1", Cells(Rows.Count, "A").End(xlUp))
        
        Dim urng As Range
        
        For Each r In Area
            If Len(WorksheetFunction.Trim(WorksheetFunction.Clean(r.Value))) = 0 Then
                If urng Is Nothing Then
                    Set urng = r
                Else
                    Set urng = Application.Union(urng, r)
                End If
            End If
        Next
        
        If Not urng Is Nothing Then
            urng.Delete xlShiftUp
        End If
        
        
        Range("A1").Select
    
    End Sub
    

     


    • 2022-11-16 12:04

      @마법의손 님 코드 정상 작동합니다. 정말 감사드립니다!! 네이버 포인트 기부기능도 있으면 좋겠네요 너무 감사드리는데 표현할수있는게없어서


전체 8,506
번호 카테고리 제목 작성자 작성일 추천 조회
알림
「🎉 올해의 책 투표」 '진짜쓰는 실무엑셀' 이 후보에 선정되었습니다! (👉깜짝 이벤트) (51)
오빠두엑셀 | 2022.11.07 | 추천 23 | 조회 7822
오빠두엑셀 2022.11.07 23 7822
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (105)
오빠두엑셀 | 2021.10.28 | 추천 135 | 조회 8505
오빠두엑셀 2021.10.28 135 8505
44953 함수/공식
New 엑셀 날짜 함수 사용시 날짜 표시 안되는 이슈 첨부파일 (1)
junee562 | 16:59 | 추천 0 | 조회 10
junee562 16:59 - 10
44950 함수/공식
New vlookup을 활용한 여러 조건 시 결과값을 불러오고 싶습니다. 엑셀파일
DBOX | 16:50 | 추천 0 | 조회 12
DBOX 16:50 - 12
44946 함수/공식
New 정산금액을 공문에 참조하려고 하는데 n/a가 뜹니다. 엑셀파일 (3)
야근쟁이 | 16:17 | 추천 0 | 조회 15
야근쟁이 16:17 - 15
44941 함수/공식
New COUNT 함수 관련 2가지 조건의 수를 구하고 싶습니다. 첨부파일 (2) 답변완료
2039290jf1 | 14:11 | 추천 0 | 조회 22
2039290jf1 14:11 - 22
44940 VBA
New 엑셀 매크로 AutoFill 관련 문의 (1)
원더우먼 | 12:53 | 추천 0 | 조회 27
원더우먼 12:53 - 27
44938 기능/도구
New 온라인그림 선택이 안되요. 첨부파일 (1)
굿걸♡ | 11:57 | 추천 0 | 조회 20
굿걸♡ 11:57 - 20
44937 함수/공식
New 다중조건 if 관련 문의 (2) 답변완료
지도현 | 11:50 | 추천 0 | 조회 36
지도현 11:50 - 36
44935 함수/공식
New 엑셀 2007,2010 오프라인 도움말파일 구해요
나야 | 11:41 | 추천 0 | 조회 18
나야 11:41 - 18
44932 VBA
New VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기
고바마 | 11:02 | 추천 0 | 조회 27
고바마 11:02 - 27
44930 VBA
New vba를 이용하여 수식 결과값 추출 시트를 만들고 싶습니다. 첨부파일 (1)
코모 | 10:26 | 추천 0 | 조회 38
코모 10:26 - 38
44929 함수/공식
New [관심]!!경우의수 적용하여, 값 판단법 좀 알려주세요..ㅜ 엑셀파일첨부파일 (5)
ak스타 | 10:22 | 추천 0 | 조회 27
ak스타 10:22 - 27
44927 함수/공식
New 다중 sumifs 기타 값 계산 엑셀파일첨부파일 (1)
선크 | 10:18 | 추천 0 | 조회 28
선크 10:18 - 28
44916 함수/공식
New 엑셀 실시간으로 퍼센트가 변하는 시간계산기
KangU | 2022.11.27 | 추천 0 | 조회 39
KangU 2022.11.27 - 39
44915 VBA
New 괄호안의 숫자 합계 구하기 VBA 또는 수식 엑셀파일첨부파일 (4) 답변완료
007 | 2022.11.27 | 추천 0 | 조회 60
007 2022.11.27 - 60
44913 함수/공식
New 함수 결과값이 이상합니다 첨부파일 (1)
엄기용 | 2022.11.27 | 추천 0 | 조회 31
엄기용 2022.11.27 - 31
44907 함수/공식
New 시간만 구하는 방법.. 첨부파일 (3)
candle0723 | 2022.11.27 | 추천 0 | 조회 36
candle0723 2022.11.27 - 36
44904 문서서식
New 표시형식 문의 드립니다 (1)
거꾸로문 | 2022.11.26 | 추천 0 | 조회 28
거꾸로문 2022.11.26 - 28
44901 VBA
New 안녕하세요. vba로 단위 변환 질문드립니다.
Jes | 2022.11.26 | 추천 0 | 조회 36
Jes 2022.11.26 - 36
44899 차트/그래프
New 슬라이서 서식을 변경 한 후, 다른 엑셀 파일에서도 사용할 수 있는 방법이 있을까요?
twou**** | 2022.11.26 | 추천 0 | 조회 27
twou**** 2022.11.26 - 27
44896 VBA
New 여러 문자들 중 참조 문자에 있는 값 찾기 vba 엑셀파일첨부파일 (4)
007 | 2022.11.26 | 추천 0 | 조회 61
007 2022.11.26 - 61
44892 기능/도구
New 필터랑 행 숨기기 된 상태에서 자동채우기 안 되나요?
오리파 | 2022.11.25 | 추천 0 | 조회 25
오리파 2022.11.25 - 25
44887 함수/공식
New 다중조건을 만족하는 여러개의 값 구하는 함수식 문의드립니다. (1)
함수시르미 | 2022.11.25 | 추천 0 | 조회 53
함수시르미 2022.11.25 - 53
44886 VBA
New 엑세스 및 엑셀 연동 VBA INSERT구문 질문 엑셀파일
H.B | 2022.11.25 | 추천 0 | 조회 33
H.B 2022.11.25 - 33
44885 함수/공식
New 엑셀로 전투 시뮬레이션을 만들 수 있을까요? (2)
네버 | 2022.11.25 | 추천 0 | 조회 53
네버 2022.11.25 - 53
44881 VBA
New VBA 링크 설정시 현재시트로 설정하는법 첨부파일 (2)
엑셀왕이될거야22 | 2022.11.25 | 추천 0 | 조회 31
엑셀왕이될거야22 2022.11.25 - 31
44878 함수/공식
New 인덱스 매치 시 범위 합계구하기 엑셀파일 (3) 답변완료
야근쟁이 | 2022.11.25 | 추천 0 | 조회 47
야근쟁이 2022.11.25 - 47
44877 함수/공식
New 조건1,조건2를 만족할때 결과값을 가지고 오는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 51
보연아빠 2022.11.25 - 51
44876 함수/공식
New 같은 텍스트가 있을때 순번을 매기는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 45
보연아빠 2022.11.25 - 45
44875 VBA
New db 배열안에 날자 데이터가 포함되어 있는데 바로 전에 가장 가까운 날자를 선택할수 있을까요? 첨부파일
후훗 | 2022.11.25 | 추천 0 | 조회 29
후훗 2022.11.25 - 29
44873 함수/공식
New 바코드 찍었을때 번호 하나마다 값 불러오기 엑셀파일첨부파일
김영준 | 2022.11.25 | 추천 0 | 조회 34
김영준 2022.11.25 - 34