VBA 조건에 맞는 행에 추출한 데이터 넣기 - 문제가 생겼습니다.

VBA
작성자
ㄱ🐶두두
작성일
2021-07-14 12:07
조회
78
엑셀버전 : M365

운영체제 : 윈도우10

안녕하세요.

조건에 맞는 데이터를 추출하여 -> 조건에 맞는 행을 찾아서 데이터를 입력하려고 합니다.

조건에 맞는 데이터는 추출하였는데... -> 조건에 맞는 행을 찾아서 데이터를 넣는 것이 안되네요..

일단 C1XX 라는 곳에만 먼저 적용해보려고 해도.. "분류"행에 C1XX의 값만이라도 넣으려고 했더니

COBRA 행 데이터까지 전부 다 가져와버리네요..

 

그래서 추출된 데이터만 한 행에 다 몰아서 복사되는 경우만 있네요..

무엇이 잘못 된 것일까요..

 

 

 

Sub Test_04()
 
Dim lngE    As Long
Dim rngD    As Range
Dim i       As Long
 
Dim co As Long, s As Long
Dim join As Long
Dim buNum As String
 
lngE = Cells(Rows.Count, "AA").End(xlUp).Row
 
    For i = 3 To lngE
        If Range("am" & i) = "best" Then
            If rngD Is Nothing Then
                Set rngD = Range("aa" & i).Offset(0, 1).Resize(1, 1)
                rngD.Select
            Else
                Set rngD = Union(rngD, Range("aa" & i).Offset(0, 1).Resize(1, 1))
                rngD.Select
            End If
        End If
    Next
 
    co = ActiveSheet.Range("R7").CurrentRegion.Rows.Count
 
    For i = 3 To lngE
      If Range("AA" & i) = "C1XX" Then
 
             If rngD Is Nothing Then
                MsgBox "복사할 범위가 없습니다."
            Else
 
                Range("r7").CurrentRegion.Offset(1, 0).Clear
                rngD.Copy Range("r7")
                End If
     End If
 
    Next
    Range("a1").Select
End Sub

 

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

  • 2021-07-14 13:04

    코딩을 보니 하고자 하시는게

    rngD로 첫 번째 조건을 만족하는 영역을 받고

    그 후 For문을 써서 한번 더 조건을 만족하는 영역을 r7에 하나씩 붙여넣기 한다라고 이해했는데 맞는건가요?

    위가 맞다면

    처음 rngD에 영역을 지정하실 때 AND문을 써서 AA3~AA33이 C1XX이면서 AM3~AM33이 best인 행을 범위로 받은 후 한번에 붙여넣기 하는방법이 떠오르네요.

    그리고 그냥 붙여넣기를 하시는 거라면 맨 마지막에 붙여넣기 하실 때는 굳이 For문을 써서 붙여넣기 할 필요는 없어 보입니다.
    그냥 For문 없이 IF문으로만 복사할 범위가 있는지 없는지만 판단한 후 붙여넣기가 좋아보입니다.


전체 3,474
번호 카테고리 제목 작성자 작성일 추천 조회
3461 문서서식
New 셀 병합 자동줄맞춤 문의 (2)
짱구는내친구 | 2021.07.25 | 추천 0 | 조회 34
짱구는내친구 2021.07.25 0 34
3460 문서서식
New 조건부서식 활용 (4) 답변완료
돌채 | 2021.07.25 | 추천 0 | 조회 40
돌채 2021.07.25 0 40
3459 기능/도구
New 데이터 유효성 검사에서 맨위 공란으로 표시되게 하려면 어떻게 해요? (2)
이하늘 | 2021.07.25 | 추천 0 | 조회 36
이하늘 2021.07.25 0 36
3458 함수/공식
New 조건 만족하는 함수식 첨부파일 (5) 답변완료
stranger | 2021.07.25 | 추천 0 | 조회 50
stranger 2021.07.25 0 50
3457 함수/공식
New [✨] 한 셀의 데이터를 구분자 기준으로 다수의 셀로 분리하고 싶습니다 첨부파일 (3)
milkcocoa | 2021.07.24 | 추천 0 | 조회 37
milkcocoa 2021.07.24 0 37
3456 VBA
New 괄호가 있는 셀의 색은 커운트하지 않는다. 첨부파일 (2)
돌채 | 2021.07.24 | 추천 0 | 조회 39
돌채 2021.07.24 0 39
3455 VBA
New 데이터 베이스 관련 첨부파일 (1)
까나리 | 2021.07.24 | 추천 0 | 조회 35
까나리 2021.07.24 0 35
3454 VBA
New 지우기 관련 (2)
까나리 | 2021.07.24 | 추천 0 | 조회 53
까나리 2021.07.24 0 53
3453 VBA
New 엑셀 로그인 시스템 관련 (3번 시도시 파일 강제종료부분)
지아 | 2021.07.23 | 추천 0 | 조회 49
지아 2021.07.23 0 49
3452 VBA
New VBA (제고관리프로그램) 공부하다가 문의가 있습니다. (7) 답변완료
까나리 | 2021.07.23 | 추천 0 | 조회 86
까나리 2021.07.23 0 86
3451 VBA
New 재고관리 프로그램 28강 켈린더의 BackStyle에 관한 질문입니다. (2) 답변완료
iviolin**** | 2021.07.23 | 추천 0 | 조회 34
iviolin**** 2021.07.23 0 34
3450 함수/공식
New 중복 값 찾기.. 첨부파일 (1)
인간 | 2021.07.23 | 추천 0 | 조회 41
인간 2021.07.23 0 41
3449 함수/공식
New 엑셀 데이터 정리관련 해서 질문합니다. 첨부파일 (1)
박정흠 | 2021.07.23 | 추천 0 | 조회 42
박정흠 2021.07.23 0 42
3448 VBA
New VBA SPLIT, FOR 함수 속도 문제 (9)
소람 | 2021.07.23 | 추천 0 | 조회 46
소람 2021.07.23 0 46
3447 기능/도구
New 도와주세요~ 시트 보호 해제 버튼이 비활성화 되어 해제가 되질 않아요 (3)
안개바다위의 쿳시 | 2021.07.23 | 추천 0 | 조회 46
안개바다위의 쿳시 2021.07.23 0 46
3446 VBA
FOR문 과 DO While 등 루프문 문의사항 첨부파일 (3) 답변완료
H.B | 2021.07.23 | 추천 1 | 조회 48
H.B 2021.07.23 1 48
3445 차트/그래프
슬라이서 차트의 범례 변경 (1)
전상준 | 2021.07.23 | 추천 0 | 조회 39
전상준 2021.07.23 0 39
3444 VBA
VBA로 구현하고 싶은데요 도와주세요... 첨부파일 (7) 답변완료
new_hwan | 2021.07.23 | 추천 1 | 조회 54
new_hwan 2021.07.23 1 54
3443 함수/공식
문자 연결 함수 문의 드립니다 (3)
세롱이 | 2021.07.23 | 추천 0 | 조회 47
세롱이 2021.07.23 0 47
3442 VBA
안녕하세요 질문좀 드려봅니다. (1)
엑셀공부 | 2021.07.23 | 추천 0 | 조회 32
엑셀공부 2021.07.23 0 32
3441 함수/공식
함수 질문 드립니다 첨부파일 (2)
ccha**** | 2021.07.23 | 추천 0 | 조회 32
ccha**** 2021.07.23 0 32
3440 피벗테이블
피벗테이블에서 값 필터 문제점 봐주세요 첨부파일 (1)
월마리아 | 2021.07.22 | 추천 0 | 조회 46
월마리아 2021.07.22 0 46
3439 VBA
VBA를 이용한 네이버 자동 로그인 이후 (3)
VBA이동머신 | 2021.07.22 | 추천 0 | 조회 45
VBA이동머신 2021.07.22 0 45
3438 함수/공식
시티를 비교해서 동일한 건 제거하는 것이 매일 반복되는데... 첨부파일 (5) 답변완료
Chris | 2021.07.22 | 추천 0 | 조회 41
Chris 2021.07.22 0 41
3437 VBA
VBA로 프린터 크기 지정관련 문제 첨부파일 (7) 답변완료
iviolin**** | 2021.07.22 | 추천 0 | 조회 38
iviolin**** 2021.07.22 0 38
3436 차트/그래프
원형차트에서 값이 변경될때마다 최대값의 조각만 따로 분리하는 해결방법 첨부파일 (2)
데이지 | 2021.07.22 | 추천 0 | 조회 35
데이지 2021.07.22 0 35
3435 VBA
셀 선택 시 연결된 함수 강조(색 변환) 첨부파일 (2) 답변완료
김세 | 2021.07.22 | 추천 0 | 조회 45
김세 2021.07.22 0 45
3434 기능/도구
구글 스프레드시트 데이터확인 범위에서의 목록 (1)
메꾸똘 | 2021.07.22 | 추천 0 | 조회 42
메꾸똘 2021.07.22 0 42
3433 함수/공식
다른 파일의 가로 DATA를 세로열로 부르는 방법 (DATA 호환 필요) 첨부파일 (8)
우롱쿠이 | 2021.07.22 | 추천 0 | 조회 64
우롱쿠이 2021.07.22 0 64
3432 함수/공식
구글 스프레드시트 쿼리로 전화번호 불러오기 (1)
메꾸똘 | 2021.07.22 | 추천 1 | 조회 40
메꾸똘 2021.07.22 1 40