다른 시트에서 데이터 매칭해서 불러오기

VBA
작성자
김미진22
작성일
2022-11-11 18:16
조회
113
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요 ㅠ..

아래 VBA모듈을 업무에 활용하려고하는데 도움이 필요합니다ㅠㅠ...

1)같은 시트 말고, 시트를 분리해서 사용하려면 어느부분을 어떻게 수정해야하나요..?  (L열 대신 SHEET2 A열에서 불러오기)

2)데이터를 매칭 후 복사해오고 기존 데이터를 삭제 하지않고 유지 하려면 어떻게 해야하나요? rngAll.Offset(1).Clear   이부분만 삭제하니 ..작동이 안되더라구요.. ㅠㅠ..

도움 부탁드리겠습니다!! 감사합니다 ㅠㅠ!!

 

---------------------------------------------------------------------------------------------------

Dim rngC As Range                                     '(A열)각 셀을 넣을 변수
Dim rngAll As Range                                    'L열 전체 영역을 넣을 변수
Dim C As Range                                          '(L열) 각 셀을 넣을 변수
Dim varTemp()                                             '배열로 사용할 변수
Dim r  As Long                                             '각 행을 넣을 변수
Dim i As Integer                                           '반복구문에 사용할 변수

Application.ScreenUpdating = False                '화면 업데이트 (일시)정지

Set rngAll = Range("L2", Cells(Rows.Count, "L").End(3))  'L열 전체영역을 변수에 넣음

For Each rngC In Range("A2", Cells(Rows.Count, "A").End(3))  '일치하는값 옮길 코드
For Each C In rngAll                                  'L열 각 셀을 순환

If Not IsEmpty(C) Then                           '만약 빈셀이 아니라면
If rngC = C Then                               'A열과 L열이 일치하면
rngC.Offset(, 2).Resize(, 4) = C.Offset(, 1).Resize(, 4).Value
'M:P 열의 값을 C:F열에 복사
C.Resize(, 5).ClearContents          '(서식은 놔두고) M:P열의 값만 삭제
End If
End If

Next C
Next rngC

ReDim varTemp(1 To rngAll.Rows.Count, 1 To 5)   '배열크기 재지정

For Each C In rngAll                                      'L열 각 셀을 순환
If Not IsEmpty(C) Then                               '각 셀이 빈셀이 아니라면
r = r + 1                                                '행을 1씩 늘려감
For i = 1 To 5                                        '5회 반복
varTemp(r, i) = C.Offset(, i - 1)           '배열에 값을 넣음
Next i
End If
Next C

rngAll.Offset(1).Clear                                     '제목 제외한 기존 데이터(서식까지) 삭제

Cells(2, "L").Resize(UBound(varTemp, 1), 5) = varTemp '배열값 셀에 뿌림

Set rngAll = Nothing                                       '개체변수 초기화(메모리 비우기)

End Sub

스크랩
공유
회원등급 : 2레벨
포인트 : 50 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 1

  • 2022-11-11 21:47

    @김미진22 님 '제목 제외한 기존 데이터(서식까지) 삭제

    변경전: rngAll.Offset(1).Clear
    변경후: rngAll.Resize(rngAll.Rows.Count, 5).ClearContents

    Review: rngAll은 column L에 대해서만 영역지정되었으므로,M:P열의 값을 삭제할 수 없었음.

    서식 변경없이 value만 지우려면 Clear보다 ClearContents를 해야 함.

     

     

     


전체 8,667
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (37)
오빠두엑셀 | 2022.09.28 | 추천 9 | 조회 3206
오빠두엑셀 2022.09.28 9 3206
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (110)
오빠두엑셀 | 2021.10.28 | 추천 136 | 조회 8791
오빠두엑셀 2021.10.28 136 8791
45399 함수/공식
New 제시간에 퇴근하고싶어요 엑셀파일
taegshin kim | 17:51 | 추천 0 | 조회 21
taegshin kim 17:51 - 21
45398 기능/도구
New 목록명이 다른 데이터 통합방법 첨부파일 (1)
will12**** | 17:31 | 추천 0 | 조회 18
will12**** 17:31 - 18
45397 함수/공식
New 산출식이 들어 있는 값으로 표시 엑셀파일첨부파일 (2)
바른나무 | 17:29 | 추천 0 | 조회 19
바른나무 17:29 - 19
45394 함수/공식
New 여러수식의 범위값을 연동해서 변경하는 방법 있을까요 (4)
하이롭 | 17:07 | 추천 0 | 조회 20
하이롭 17:07 - 20
45390 함수/공식
New 조건에 맞는 값 구하기 첨부파일
노갈 | 16:26 | 추천 0 | 조회 29
노갈 16:26 - 29
45389 문서서식
New 기존에 인쇄 되어있는 용지를 넣고 출력할때 원하는 위치에 글씨 입력하는 방법 (1)
willow123 | 16:24 | 추천 0 | 조회 17
willow123 16:24 - 17
45388 함수/공식
New 여러가지 조건 함수 첨부파일 (5)
지니 | 16:07 | 추천 0 | 조회 31
지니 16:07 - 31
45387 함수/공식
New 다른 시트 계산 변수 자동 입력 후 결과 추출 엑셀파일첨부파일 (4)
김승현 | 15:35 | 추천 0 | 조회 28
김승현 15:35 - 28
45386 함수/공식
New 중복된 행을 삭제하고 수량만 합산해서 표시하기 엑셀파일 (1)
태을 | 15:31 | 추천 0 | 조회 37
태을 15:31 - 37
45383 함수/공식
New 조건에 맞는 값 구하기 첨부파일 (1)
노갈 | 14:43 | 추천 0 | 조회 32
노갈 14:43 - 32
45382 함수/공식
New 랜덤으로 뽑는 방법 엑셀파일 (1)
이보경 | 14:38 | 추천 0 | 조회 34
이보경 14:38 - 34
45381 함수/공식
New 스레드 해결방법 (1)
드라이비트 | 14:28 | 추천 0 | 조회 15
드라이비트 14:28 - 15
45380 문서서식
New 사용자서식 또는 조건부서식에서 같은셀에 두가지 서식 적용 어떻게 하나요? 엑셀파일 (1)
mrbl**** | 14:15 | 추천 0 | 조회 21
mrbl**** 14:15 - 21
45376 VBA
New vba 실행 전에 셀등을 복사하고 실행 후에 이 복사된 데이터 등이 초기화되는 문제는 해결이 어려울까요? (3)
얇은피만두 | 11:38 | 추천 0 | 조회 28
얇은피만두 11:38 - 28
45374 함수/공식
New 엑셀 공휴일 일정 자동화 달력 v1.5 함수 문의
ssibal**** | 11:17 | 추천 0 | 조회 27
ssibal**** 11:17 - 27
45373 함수/공식
New 조건에 "부등호" & 함수 이런식으로 작성하는 엑셀 문법이 궁금합니다 ㅠ
워크홀릭 | 11:13 | 추천 0 | 조회 28
워크홀릭 11:13 - 28
45368 기능/도구
New 맨 아래 데이터에 ┘이런 모양 어케 만드는 거였죠?? 첨부파일 (1)
VictorY | 10:22 | 추천 0 | 조회 35
VictorY 10:22 - 35
45367 함수/공식
New 매출채권 채무 불 이행율 계상 (2)
jyk0077@hanmail.net | 10:20 | 추천 0 | 조회 21
jyk0077@hanmail.net 10:20 - 21
45366 기능/도구
New Excel 에서 Excel 머지 기능 (1)
Frost | 10:07 | 추천 0 | 조회 36
Frost 10:07 - 36
45364 피벗테이블
New 피벗테이블 필터 기능 문의 (1)
단수조정 | 09:53 | 추천 0 | 조회 29
단수조정 09:53 - 29
45363 문서서식
New 행 아래 삽입 (1)
💆🏻‍♀️ DA | 09:44 | 추천 0 | 조회 27
💆🏻‍♀️ DA 09:44 - 27
45362 함수/공식
New if함수로 여러개 조건이텍스트일때 값을 알고싶어요 첨부파일 (2)
짱구는옷말려 | 09:36 | 추천 0 | 조회 34
짱구는옷말려 09:36 - 34
45360 함수/공식
New INDEX, MATCH함수 사용후 값찾은 뒤 할증금액 더하는법 엑셀파일 (4) 답변완료
명주 | 09:07 | 추천 0 | 조회 37
명주 09:07 - 37
45357 함수/공식
New 엑셀 단축키 F2 키 문제 0: 07 초 에서 수식 풀이 방법이 궁금합니다. 첨부파일 (2) 답변완료
엑셀 초보자 | 08:29 | 추천 0 | 조회 23
엑셀 초보자 08:29 - 23
45355 문서서식
New 45강 고급필터 비주얼베이직 메크로 오류 엑셀파일첨부파일
연꽃사랑 | 01:44 | 추천 0 | 조회 25
연꽃사랑 01:44 - 25
45349 함수/공식
New 중복값 주의하면서 조건에 맞는 순위 구하기 엑셀파일첨부파일
노갈 | 2022.12.07 | 추천 0 | 조회 42
노갈 2022.12.07 - 42
45347 함수/공식
New 엑셀 숫자 E+ 표시 문제 해결 방법 셀 서식을 사용해서 1초면 OK! 첨부파일 (2) 답변완료
엑셀 초보자 | 2022.12.07 | 추천 0 | 조회 34
엑셀 초보자 2022.12.07 - 34
45346 함수/공식
New 엑셀 단축키 F2 키 문제 0: 07 초 에서 수식 풀이 방법이 궁금합니다. 첨부파일 (2) 답변완료
엑셀 초보자 | 2022.12.07 | 추천 0 | 조회 33
엑셀 초보자 2022.12.07 - 33
45344 함수/공식
New 다중조건 조건부 서식 다시한번 도움요청 드릴께요 엑셀파일 (1) 답변완료
김태성 | 2022.12.07 | 추천 0 | 조회 48
김태성 2022.12.07 - 48
45339 함수/공식
New 일수로 "0개월00일"로 변환 방법 (1)
보라색양털 | 2022.12.07 | 추천 1 | 조회 43
보라색양털 2022.12.07 1 43