VBA의 Find활용 특정날짜 복붙

VBA
작성자
H.B
작성일
2021-10-18 19:37
조회
430
엑셀버전 : M365

운영체제 : 윈도우10


안녕하세요.

관련내용을 이미 링크와 같이 한번 질문드렸습니다만,

find항목을 사용해서 특정날짜 데이터를 가져오고 싶어서 나름대로 구문을 만들어 봤습니다만,

find로 되는 것이 맨첫번째 날짜부분 (파란색 부분)만 되네요... 노란색부분 포함해서 모든영역을 가져오고 싶습니다만,

어떻게 구문을 변경하면 좋을지 조언 부탁드립니다. (구문은 첨부파일있음)

스크랩
공유
전체 4

  • 2021-10-18 20:27

    @H.B 님 첨부 파일 참조하세요.

    첨부파일 : 답변.xlsm


  • 2021-10-18 21:16

    @H.B 님 안녕하세요. H.B님 Countif함수로 날짜행수를 세서 변수로 넣어 보실래요?(단 날짜 및 데이터가 붙여서 작성된다는 가정하에 적용됨)

    Sub TEST()

    Dim rng As Range
    Dim i As Long
    Dim CNT As Long

    i = Range("b3").End(xlDown).Row

    Set rng = Range("b2:b" & i).Find(Range("p2"), , , 1)

    CNT = Application.WorksheetFunction.CountIf(Sheets("원데이터").Range("b:b"), Sheets("원데이터").Range("p2"))

    If Not rng Is Nothing Then
    rng.Resize(CNT, 13).Copy Sheets("복사경로").Cells(Rows.Count, "b").End(xlUp).Offset(1, 0)

    End If

    End Sub


  • 2021-10-18 21:23
    채택된 답변

    @H.B 님 부족하지만 질문보고 제나름대로 작성한 파일도 올려드립니다.

     

    첨부파일 : Data_Copy.xlsm


  • 2021-10-19 09:51

    Yukon님 쿠쿠님 두분모두 대단히 감사합니다!!!!! 항상 여러분께 큰도움받고있습니다^^ 감사합니다.


전체 7,761
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉다양한 이벤트와 함께 진행하는, PPT 보고서 디자인 특강 안내 - 9/24 (토) 오후 9시~ (15)
오빠두엑셀 | 2022.09.08 | 추천 9 | 조회 2292
오빠두엑셀 2022.09.08 9 2292
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 1636
오빠두엑셀 2022.08.04 4 1636
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (93)
오빠두엑셀 | 2021.10.28 | 추천 123 | 조회 7371
오빠두엑셀 2021.10.28 123 7371
42453 VBA
New 엑셀 매크로가 왜 인터넷속도에 영향을 받을까요? (2)
빼갈 | 11:21 | 추천 0 | 조회 13
빼갈 11:21 - 13
42452 VBA
New 클릭한 값에 맞는 파일 불러오기 첨부파일
조지아 칸타타 | 11:16 | 추천 0 | 조회 9
조지아 칸타타 11:16 - 9
42449 함수/공식
New 숫자만 추출하여 연산하기 엑셀파일 (1)
eexcell | 11:00 | 추천 0 | 조회 18
eexcell 11:00 - 18
42447 함수/공식
New 여러개의 날짜로 되어 있는 것을 특정 날짜로 개수를 count 하고자 하는데, 잘 안됩니다. ㅠ.ㅠ (1)
jrki**** | 10:12 | 추천 0 | 조회 15
jrki**** 10:12 - 15
42442 함수/공식
New 이름을 검색할수 있는 함수와 부가적 기능.. 첨부파일 (1)
gogoexcel | 03:23 | 추천 0 | 조회 19
gogoexcel 03:23 - 19
42441 VBA
New 재고관리에서 비율 자동 계산 방법 첨부파일
EXCELEXCEL | 01:21 | 추천 0 | 조회 23
EXCELEXCEL 01:21 - 23
42434 VBA
New 셀레니움을 통한 엣지 호출 첨부파일 (2)
로고테라피 | 2022.09.25 | 추천 0 | 조회 26
로고테라피 2022.09.25 - 26
42432 VBA
New get_db 명령어 관련 질문드립니다 첨부파일 (3)
EXCELEXCEL | 2022.09.25 | 추천 0 | 조회 33
EXCELEXCEL 2022.09.25 - 33
42427 기능/도구
New 엑셀 '안전모드' 실행하는 방법 질문드립니다. 첨부파일 (5)
월마리아 | 2022.09.25 | 추천 0 | 조회 37
월마리아 2022.09.25 - 37
42426 VBA
New 사진대지 VBA 매크로 수정 엑셀파일 (1)
WWW | 2022.09.25 | 추천 0 | 조회 26
WWW 2022.09.25 - 26
42414 기능/도구
New 엑셀로 가능한지 여쭤봅니다. 엑셀파일첨부파일 (1)
naver_5f055a605ee7d | 2022.09.24 | 추천 0 | 조회 62
naver_5f055a605ee7d 2022.09.24 - 62
42405 함수/공식
New 엑셀 INDEX MATCH 함수 질문드립니다. (다중조건) 첨부파일 (3)
임천명 | 2022.09.24 | 추천 0 | 조회 44
임천명 2022.09.24 - 44
42396 함수/공식
New 함수조언 엑셀파일 (1) 답변완료
엑셀공부중 | 2022.09.24 | 추천 0 | 조회 39
엑셀공부중 2022.09.24 - 39
42395 함수/공식
New 함수 결과값 자동 갱신 질문입니다 엑셀파일 (2)
lifeti**** | 2022.09.24 | 추천 0 | 조회 36
lifeti**** 2022.09.24 - 36
42391 VBA
New 검색어와 동일한 결과값에 하이라이트 색깔 넣기 첨부파일 (2) 답변완료
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 46
조지아 칸타타 2022.09.23 - 46
42390 VBA
New 검색어 입력시 같은 정보가 2개 반복되어... 첨부파일
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 29
조지아 칸타타 2022.09.23 - 29
42386 함수/공식
New 조건부서식 오류 엑셀파일첨부파일 (3)
Ngw77 | 2022.09.23 | 추천 0 | 조회 36
Ngw77 2022.09.23 - 36
42385 기능/도구
New 파일 가로로 통합하기(합치기) 질문입니다 첨부파일 (1)
감귤쫀드기 | 2022.09.23 | 추천 0 | 조회 37
감귤쫀드기 2022.09.23 - 37
42379 문서서식
New 가로로 작업했는데, 내용 보존?하면서 세로로 쉽게 바꿀 수 있는 방법이 있나요?? (1)
앨리 | 2022.09.23 | 추천 0 | 조회 50
앨리 2022.09.23 - 50
42378 차트/그래프
New 강우-유출량 그래프 분석 엑셀파일 (1)
chanyk | 2022.09.23 | 추천 0 | 조회 47
chanyk 2022.09.23 - 47
42377 함수/공식
New 한도액에서의 지원금 정산하기 엑셀파일 (2)
송인숙 | 2022.09.23 | 추천 0 | 조회 32
송인숙 2022.09.23 - 32
42374 함수/공식
New 각기 다른셀에 값 입력시 한셀에 날짜 자동 나타내기 (2)
MC쿠마 | 2022.09.23 | 추천 0 | 조회 27
MC쿠마 2022.09.23 - 27
42372 함수/공식
New 조건별 날짜계산 함수 계산 엑셀파일 (2) 답변완료
Ngw77 | 2022.09.23 | 추천 0 | 조회 44
Ngw77 2022.09.23 - 44
42367 기능/도구
New 엑셀2019에서 shift + 스크롤 (시트 좌우 스크롤) 되는건가요? 첨부파일 (4) 답변완료
월마리아 | 2022.09.22 | 추천 0 | 조회 44
월마리아 2022.09.22 - 44
42366 구글시트
New 스프레드 시트 필터함수 엑셀파일첨부파일 (5) 답변완료
거꾸로문 | 2022.09.22 | 추천 0 | 조회 50
거꾸로문 2022.09.22 - 50
42362 함수/공식
New NaverFinanceHistory 함수 연결 데이터 갱신 질문입니다 엑셀파일첨부파일
lifeti**** | 2022.09.22 | 추천 0 | 조회 34
lifeti**** 2022.09.22 - 34
42358 VBA
New VBA 텍스트 파일 저장 후 불러오기 질문드립니다. 엑셀파일
LovelyK | 2022.09.22 | 추천 0 | 조회 42
LovelyK 2022.09.22 - 42
42355 함수/공식
New 근속년수 산출 관련 문의 (4)
꼬맹이영 | 2022.09.22 | 추천 0 | 조회 63
꼬맹이영 2022.09.22 - 63
42354 함수/공식
New 세가지의 조건을 만족하는 값 불러오기 엑셀파일 (3) 답변완료
뎡이 | 2022.09.22 | 추천 0 | 조회 71
뎡이 2022.09.22 - 71
42348 차트/그래프
New 엑셀 일일 데이터관리 차트를 만들려고 합니다,,, 첨부파일 (2)
MC쿠마 | 2022.09.22 | 추천 0 | 조회 59
MC쿠마 2022.09.22 - 59