자동 시트 분할 시 데이터 중복 붙여넣기 문제

VBA
작성자
딩동민
작성일
2021-07-21 11:10
조회
82
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

 

 

안녕하세요

 

0000.csv 파일의 내용을 매크로 저장된 파일 시트 2000에 붙여넣고

'동민1_파일셋정리' 매크로를 실행해주면

4개월 단위로 시트를 새로 만들어 데이터를 분류하도록 만들었습니다.

 

다만 여기저기 코드를 짜집기하고 수정해서 사용해서 인지, 오류가 발생했는데

위 사진처럼 분기별로 월 데이터가 두번씩 들어가있습니다.

1~4월 데이터가 한번씩만 들어가야 하는데 (B열)

1~4월 다음 또 1~4월이 중복으로 한번 더 추가되어있습니다.

나머지 것들은 잘 구동이 되는데 이 문제를 꼭 해결하고 싶어서요.

혹시 도와주실 수 있으실까요?

 

관련 코드는

 

Dim rngAll As Range '전체영역을 넣을 변수
Dim colsCnt As Integer '전체 열개수 넣을 변수
Dim s As Long '반복 구문에 사용할 변수
Dim uuu As String
 
uuu = ActiveSheet.Name
 
With Application
.ScreenUpdating = False
 
For s = Sheets.Count To 2 Step -1 'Data시트 제외한 전체시트 순환
.DisplayAlerts = False '화면 경고기능 중지
Sheets(s).Delete '각 시트 삭제
.DisplayAlerts = True '화면 경고기능 복원
Next s
End With
 
Set rngAll = ActiveSheet.UsedRange '전체 영역을 변수에 넣음
colsCnt = rngAll.Columns.Count '전체 사용영역의 열 개수를 변수에 넣음
 
For s = 1 To 3 '12회 반복
Sheets.Add After:=Sheets(Sheets.Count) '새로운 시트 생성
ActiveSheet.Name = s & "분기" '시트의 이름 변경
Next s
 
Sheets(1).Activate 'Data 시트 활성화
 
Cells(1, colsCnt + 1).Resize(, 2) = "일자" '고급필터 조건이될 "일자" 입력
 
For s = 1 To 1
 
Cells(2, colsCnt + 1) = ">=" & DateSerial(uuu, 1, 1) '시작일을 입력
Cells(2, colsCnt + 2) = "<" & DateSerial(uuu, 5, 1) '종료일을 입력
 
rngAll.AdvancedFilter Action:=2, CriteriaRange:=Cells(1, colsCnt + 1).Resize(2, 2), _
CopyToRange:=Sheets(s + 1).Cells(1, 1), Unique:=0 '각 월별 데이터 시트에 복사
Sheets(s + 1).Columns.AutoFit '각 시트의 열너비 자동 맞춤
 
Next s
 
For s = 2 To 2
 
Cells(2, colsCnt + 1) = ">=" & DateSerial(uuu, 5, 1) '시작일을 입력
Cells(2, colsCnt + 2) = "<" & DateSerial(uuu, 9, 1) '종료일을 입력
 
rngAll.AdvancedFilter Action:=2, CriteriaRange:=Cells(1, colsCnt + 1).Resize(2, 2), _
CopyToRange:=Sheets(s + 1).Cells(1, 1), Unique:=0 '각 월별 데이터 시트에 복사
Sheets(s + 1).Columns.AutoFit '각 시트의 열너비 자동 맞춤
 
Next s
 
For s = 3 To 3
 
Cells(2, colsCnt + 1) = ">=" & DateSerial(uuu, 9, 1) '시작일을 입력
Cells(2, colsCnt + 2) = "<=" & DateSerial(uuu, 12, 32) '종료일을 입력
 
rngAll.AdvancedFilter Action:=2, CriteriaRange:=Cells(1, colsCnt + 1).Resize(2, 2), _
CopyToRange:=Sheets(s + 1).Cells(1, 1), Unique:=0 '각 월별 데이터 시트에 복사
Sheets(s + 1).Columns.AutoFit '각 시트의 열너비 자동 맞춤
 
Next s
 
Cells(1, colsCnt + 1).Resize(, 2).EntireColumn.Delete '임시로 사용한 열 삭제
Set rngAll = Nothing '개체변수 초기화 (메모리 비우기)

 

위와 같으며,

이상하게 파일 첨부가 안되네요. 도와주실 때 혹 풀 매크로 코드가 필요할 것 같으시면 알려주세요!

 

회원등급 : 씨앗등급
포인트 : 34 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 1

  • 2021-07-21 21:42

    이미지가 안보이네요..^^;

    두번 중복표시 된다면.. 아마 아래 부분이 문제가 아닐까요

    Cells(1, colsCnt + 1).Resize(, 2) = "일자" '고급필터 조건이될 "일자" 입력

    Resize를 1로 입력하시면 될 것 같습니다


전체 3,542
번호 카테고리 제목 작성자 작성일 추천 조회
3528 함수/공식
New =counta(green) 함수 (4) 답변완료
Finir2017 | 2021.08.02 | 추천 1 | 조회 22
Finir2017 2021.08.02 1 22
3527 함수/공식
New 엑셀에서 통합문서내 sheet이름 전체를 불러오는 함수는 없을까요? 첨부파일 (1)
아침햇쌀 | 2021.08.02 | 추천 0 | 조회 17
아침햇쌀 2021.08.02 0 17
함수/공식
New Re: 추가질문입니다 //// 엑셀에서 통합문서내 sheet이름 전체를 불러오는 함수는 없을까요? (1)
아침햇쌀 | 2021.08.02 | 추천 0 | 조회 23
아침햇쌀 2021.08.02 0 23
3526 함수/공식
New IF함수 응용 수식문의입니다(하이픈(-) 인식 관련) 첨부파일 (1)
호우 | 2021.08.02 | 추천 0 | 조회 22
호우 2021.08.02 0 22
3525 기능/도구
New 파파고함수 에러, 네트워크 프레임관련 질문 첨부파일 (1)
H.B | 2021.08.02 | 추천 0 | 조회 14
H.B 2021.08.02 0 14
3524 VBA
New 행과 전체범위를 비교하여 고유값 개수 세기
means**** | 2021.08.02 | 추천 0 | 조회 21
means**** 2021.08.02 0 21
3523 함수/공식
New 행과 전체범위를 비교하여 고유값 개수 세기 (4)
means**** | 2021.08.02 | 추천 0 | 조회 36
means**** 2021.08.02 0 36
3522 VBA
New VBA를 이용한 재고 활용보고 질문드립니다. 첨부파일 (4) 답변완료
황수형(Gallent) | 2021.08.02 | 추천 0 | 조회 60
황수형(Gallent) 2021.08.02 0 60
3521 함수/공식
New 오빠두 데이터유효성 부분 일치 검색 필터 만들기 강의 질문입니다. (6)
월마리아 | 2021.08.01 | 추천 0 | 조회 45
월마리아 2021.08.01 0 45
3520 파워쿼리/피벗
New 파워쿼리 날씨api (1)
엑셀지킴이 | 2021.08.01 | 추천 0 | 조회 34
엑셀지킴이 2021.08.01 0 34
3519 VBA
New 파일열지 않고 시트 가져오기 첨부파일 (4)
ArkGie | 2021.08.01 | 추천 2 | 조회 62
ArkGie 2021.08.01 2 62
3518 함수/공식
New 엑셀로 데이터 비교 첨부파일 (1)
Chris | 2021.08.01 | 추천 1 | 조회 46
Chris 2021.08.01 1 46
3517 기능/도구
New 발주서에 상품 공급가 들어가게 하고 싶어요 첨부파일 (6)
해피365샵 | 2021.08.01 | 추천 0 | 조회 37
해피365샵 2021.08.01 0 37
3516 함수/공식
New 중복된 날짜 제거 후 열로 나열하는 법 궁금합니다 첨부파일 (3)
김성환 | 2021.08.01 | 추천 0 | 조회 31
김성환 2021.08.01 0 31
3515 함수/공식
New 혈압 평균 구하는 법 (1)
밍밍 2호 | 2021.08.01 | 추천 0 | 조회 29
밍밍 2호 2021.08.01 0 29
3514 함수/공식
New index, match 응용버젼 문의드립니다. 첨부파일 (4)
현우 | 2021.08.01 | 추천 0 | 조회 42
현우 2021.08.01 0 42
3513 함수/공식
New 문의 드립니다^^ 첨부파일 (2) 답변완료
해피365샵 | 2021.08.01 | 추천 0 | 조회 47
해피365샵 2021.08.01 0 47
3512 함수/공식
New [한셀] 시험등급이 특급일때 달성한 날짜를 결과값으로 가져오고 싶습니다. 도와주세요! 첨부파일 (1)
라이언 | 2021.08.01 | 추천 0 | 조회 28
라이언 2021.08.01 0 28
3511 VBA
New vba Range의 셀 값을 변수로 값을 대입하기 (1)
vbawhat | 2021.07.31 | 추천 0 | 조회 44
vbawhat 2021.07.31 0 44
3510 VBA
New 텍스트 파일 끝에서부터 키워드로 검색하기 (2) 답변완료
어제부터VBA | 2021.07.31 | 추천 0 | 조회 46
어제부터VBA 2021.07.31 0 46
3509 VBA
재고관리 vba 콤보박스 활용 검색 도움부탁드립니다 (1)
ycy | 2021.07.31 | 추천 0 | 조회 48
ycy 2021.07.31 0 48
3508 함수/공식
고수님...첫출근일 함수 부탁드립니다 첨부파일 (2) 답변완료
jhp | 2021.07.30 | 추천 0 | 조회 73
jhp 2021.07.30 0 73
3507 VBA
listbox에 Access query내용을 담는 방법 (1)
마녀 | 2021.07.30 | 추천 0 | 조회 36
마녀 2021.07.30 0 36
3506 함수/공식
구글 스프레드 SUMIFS 함수 (1)
호잇 | 2021.07.30 | 추천 0 | 조회 47
호잇 2021.07.30 0 47
3505 VBA
구글 스프레드시트에서 vba 모듈 활용법 (1)
aksr**** | 2021.07.30 | 추천 0 | 조회 44
aksr**** 2021.07.30 0 44
3504 함수/공식
다중조건 최대값 & 최소값 함수 문의의 건 첨부파일 (1)
kangj**** | 2021.07.30 | 추천 0 | 조회 46
kangj**** 2021.07.30 0 46
3503 파워쿼리/피벗
파워쿼리, 특정 시트의 셀값 참조하여 필터링하기 (2)
| 2021.07.30 | 추천 1 | 조회 52
2021.07.30 1 52
3502 함수/공식
index(출력값,match(찾을값,범위,0)) 로 값을 구할 때 "match의 범위"를 "두개의 열"로 확장하는 방법? (3) 답변완료
HoDee | 2021.07.30 | 추천 1 | 조회 60
HoDee 2021.07.30 1 60
3501 기능/도구
스마트아트 작성 문의드려요 첨부파일 (1)
비달빵순 | 2021.07.30 | 추천 0 | 조회 35
비달빵순 2021.07.30 0 35
3500 함수/공식
엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법을 알려 주세요 (8)
Finir2017 | 2021.07.29 | 추천 0 | 조회 61
Finir2017 2021.07.29 0 61
3499 함수/공식
lookup 관련 찾는 범위가 필드이고 반환 열이 첫번째 인데 반환 값이 여러개, 반환 범위가 가로인 경우 첨부파일 (5) 답변완료
means**** | 2021.07.29 | 추천 1 | 조회 68
means**** 2021.07.29 1 68