일부 행을 다른 시트로 자동 분리시킬 수 있는 방법이 있을까요???

VBA
작성자
forest choi
작성일
2022-07-29 10:18
조회
32
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : 행을 자동으로 다른 시트에 분리시켜주는 방법이 있을까요??

 

고수님들께 질문드립니다.

이것만 자동화되어도 참 좋겠는데 말이죠..

첫번째 열에서 공란 이후 텍스트 나오는 부분을 자동으로 다른 시트에 분리할 수 있는 방법이 있을까요?

자동으로 분리된 내용에 첫번째 행이 항상 함께 복사되었으면 좋겠습니다!

추가적으로는,

각 시트에 분리된 내용이 각각 하나의 파일로 저장될 수 있었으면 좋겠습니다.

지금은 일일이 다른 시트에 내용 복사해서 시트 내보내기 한 다음에 저장하기를 하고 있거든요.

내용이 많아지면 이 과정을 진행하는 게 시간이 꽤 많이 걸려서 자동화 할 수 있는 방법을 찾고 있습니다.

 

좋은 방법이 있을까요??

항상 고견에 감사드립니다.

회원등급 : 4레벨
포인트 : 179 EP
총질문 : 14 개 (마감율 : 100%)
채택답변 : 0 개
전체 1

  • 2022-07-30 01:30
    채택된 답변

    @forest choi 님 A열에 눈에 안보이는 값이 있습니다. 그걸 삭제하는 부분이 앞단에 있고요.
    최대 열을 그냥 하드코딩했으니, 실제 DATA에서 조정해야 한다면 수정하세요.

    첫번째 파일은 Sheet1을 유지해야 합니다. 그리고 원본 시트를 짤라서 해체하기 때문에
    돌리기전에 시트나 파일을 백업하시고요.

     

    Sub CopySheet()
    
        Dim R_title     As Range  '제목 복사를 위한 Range
        Dim RNG         As Range  '내용복사를 위한 Range
        Dim i           As Long   '반복문을 위한 변수
        Dim Last_C      As String '마지막컬럼 위치
            
        Dim Row_A       As Long   'A컬럼 위치찾기
        Dim Row_B       As Long   'B컬럼 위치찾기
        
        
              
        'A열에 눈에 안보이는 값으로 인한 오류발생 수정
        
        Row_A = Sheet1.Range("A" & "1048576").End(xlUp).Row
        
        For i = Row_A To 2 Step -1
        
                If Range("A" & i).Value = "" Then
                
                Range("A" & i).Clear
                'Range("A" & i).Interior.ColorIndex = 6
                
            End If
        Next
        
        'Sheet 이동 시작
            
        Row_A = Sheet1.Range("A" & "1048576").End(xlUp).Row
        
        Last_C = "BX"  '마지막 column 입력
                  
        For i = Row_A To 2 Step -1
        
        Worksheets.Add After:=Worksheets(Worksheets.Count)
        
        Set R_title = Sheet1.Range("A1:" & Last_C & "1")
        
        R_title.Copy Worksheets(Worksheets.Count).Range("A1")
        
        Row_B = Sheet1.Range("B" & "1048576").End(xlUp).Row
        
        Worksheets(Worksheets.Count).Name = Sheet1.Cells(Row_A, 1).Value
            
        Set RNG = Sheet1.Range("A" & Row_A & ":" & Last_C & Row_B)
        
        RNG.Copy Worksheets(Worksheets.Count).Range("A2")
        
        Sheet1.Range("A" & Row_A & ":" & Last_C & Row_B).Clear
        
        Row_A = Sheet1.Range("A" & "1048576").End(xlUp).Row
        
        If Row_A = 1 Then Exit For
                
        Next
        
    End Sub
    
    
    
    
    
    

     

    첨부파일 : 근로확인신고-공단제출-양식-복사본.xlsm


전체 7,312
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 7 | 조회 896
오빠두엑셀 2022.07.31 7 896
공지사항 함수/공식
New [신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 3 | 조회 64
오빠두엑셀 2022.08.04 3 64
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 116 | 조회 5984
오빠두엑셀 2021.10.28 116 5984
41024 VBA
New 무엇을 공부해야 만들 수 있을까요?? 첨부파일
뚝이 | 18:47 | 추천 0 | 조회 13
뚝이 18:47 - 13
41023 함수/공식
New 엑셀 반입 반출 list를 만들고 싶습니다. 근데 어떻게 해야할지 감이 안옵니다. 엑셀파일첨부파일
| 17:46 | 추천 1 | 조회 14
17:46 1 14
41017 함수/공식
New 카운트 관련 추가질의 드립니다. 엑셀파일 (1)
Thekey_guy | 16:31 | 추천 0 | 조회 25
Thekey_guy 16:31 - 25
41013 VBA
New 특정 셀에서 데이터 찾아내어 다른시트로 복사
itaci | 15:17 | 추천 -2 | 조회 22
itaci 15:17 -2 22
41010 문서서식
New 사용자 서식 지정 된 셀을 보이는 값 그대로 입력값을 바꾸고 싶어요/ 또는 중간 숫자를 셀서식없이 바꾸고 싶어요 첨부파일 (6)
바람개비 | 14:40 | 추천 0 | 조회 23
바람개비 14:40 - 23
41007 VBA
New 체크박스를 이용한 PDF파일 저장 문제관련 엑셀파일
qkznl**** | 14:17 | 추천 0 | 조회 23
qkznl**** 14:17 - 23
41003 함수/공식
New 다른 셀값 복사된 셀에 내용을 추가 입력하는 방법 첨부파일 (3)
마운틴 | 13:34 | 추천 0 | 조회 22
마운틴 13:34 - 22
41002 함수/공식
New 월별 제품 판매 수량과 제품별 사용 부품을 통한 월별 부품 사용 수량 구하기 엑셀파일 (2)
SELIA | 13:04 | 추천 0 | 조회 22
SELIA 13:04 - 22
40995 함수/공식
New 해당 요일이 주말일 경우 평일로 날짜를 출력하는 방법 첨부파일 (2)
juyoun**** | 10:49 | 추천 0 | 조회 34
juyoun**** 10:49 - 34
40994 함수/공식
New 다른 시트의 품목을 불러와 그 값을 비교하는 방법 (6) 답변완료
콕콕이 | 09:30 | 추천 1 | 조회 40
콕콕이 09:30 1 40
40993 함수/공식
New 다른시트 데이터 가져오기 엑셀파일 (1)
포에버하윤둥이 | 09:17 | 추천 0 | 조회 42
포에버하윤둥이 09:17 - 42
40987 VBA
New 선택한 셀 근처에 차트 나타내기 엑셀파일첨부파일 (1)
eexcell | 2022.08.08 | 추천 0 | 조회 26
eexcell 2022.08.08 - 26
40982 VBA
New 입력 수량에 따른 버튼 또는 레이블 생성 첨부파일 (1)
늙은베짱이 | 2022.08.08 | 추천 -2 | 조회 33
늙은베짱이 2022.08.08 -2 33
40974 함수/공식
New 사과를 치면 옆 셀에 과일로, 배추를 치면 옆 셀에 야채로 넣는 방법 첨부파일 (6) 답변완료
곡식창고 | 2022.08.08 | 추천 0 | 조회 52
곡식창고 2022.08.08 - 52
40971 기능/도구
New 이름 정의 범위 선택시 에러 발생 엑셀파일첨부파일 (2)
라운드티 | 2022.08.08 | 추천 0 | 조회 39
라운드티 2022.08.08 - 39
40966 함수/공식
New TEXTJOIN함수에서 대싱 셀값이 0일때 JOIN안되게 하는 방법 (8) 답변완료
마운틴 | 2022.08.08 | 추천 0 | 조회 47
마운틴 2022.08.08 - 47
40963 함수/공식
New 특정문자가 포함된 여러 셀값을 특정문자 별로 정리하고 싶습니다. 엑셀파일 (1)
rin**** | 2022.08.08 | 추천 0 | 조회 37
rin**** 2022.08.08 - 37
40961 기능/도구
New G메일로 받은 내용 중 회신시간이 늦은 메일들을 엑셀로 관리할 수 있는 방법이 있을까요 ? (1)
최사무엘 | 2022.08.08 | 추천 0 | 조회 38
최사무엘 2022.08.08 - 38
40960 기능/도구
New 보안경고 안뜨게 설정하려면 어떻게 옵션을 설정해야 하나요? 첨부파일 (2) 답변완료
니가가라 하와이 | 2022.08.08 | 추천 0 | 조회 22
니가가라 하와이 2022.08.08 - 22
40958 차트/그래프
New 그래프 가로 축 레이블 설정 부분 첨부파일 (1)
성호 | 2022.08.08 | 추천 0 | 조회 30
성호 2022.08.08 - 30
40955 함수/공식
New 선택 셀의 좌측 셀값을 가져오는 수식이 필요합니다. 엑셀파일 (3)
낮은자 | 2022.08.08 | 추천 0 | 조회 49
낮은자 2022.08.08 - 49
40953 함수/공식
New 특정 조건에 맞추어 월 별 주차 계산을 하고 싶습니다 엑셀파일첨부파일 (2)
행주 | 2022.08.07 | 추천 0 | 조회 36
행주 2022.08.07 - 36
40952 문서서식
New 데이터 유효성 검사 - 드롭다운 표시 항상 보이게? 첨부파일 (1)
두리둥 | 2022.08.07 | 추천 0 | 조회 30
두리둥 2022.08.07 - 30
40945 VBA
New 엑셀 파일 엑셀 다른이름 자동 저장이 가능할까요? 노가다 살려주세요 ㅠㅠ (2)
듀링e | 2022.08.07 | 추천 0 | 조회 61
듀링e 2022.08.07 - 61
40937 파워쿼리/피벗
New 시트별로 열이 다른 경우 시트를 통합하는 방법 첨부파일 (1)
곰도리 | 2022.08.07 | 추천 0 | 조회 37
곰도리 2022.08.07 - 37
40936 VBA
New 달력 유저폼 실행위치관련 질문 엑셀파일첨부파일 (7) 답변완료
033cola | 2022.08.07 | 추천 1 | 조회 50
033cola 2022.08.07 1 50
40921 함수/공식
New 값이 있는 경우에만 DATE 함수가 적용되도록 하고 싶습니다. 첨부파일 (2) 답변완료
지용 | 2022.08.06 | 추천 0 | 조회 53
지용 2022.08.06 - 53
40916 문서서식
New 이동옵션에서 상수와 수식 첨부파일 (1)
황혼고래 | 2022.08.06 | 추천 0 | 조회 53
황혼고래 2022.08.06 - 53
40915 문서서식
New 셀 서식 중 "월", 월 차이 (2)
보라색양털 | 2022.08.06 | 추천 1 | 조회 50
보라색양털 2022.08.06 1 50
40912 함수/공식
New IF 조건문이 잘 되지 않습니다. 첨부파일 (5) 답변완료
비트리 | 2022.08.06 | 추천 0 | 조회 53
비트리 2022.08.06 - 53