VBA 또는 매크로 사용하여 시트1의 원한는 내용만 시트2에 표기하는 스크립트 문의 합니다.

VBA
작성자
파란맥
작성일
2022-07-02 16:30
조회
130
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

질문 요약 : VBA 또는 매크로 사용하여 시트1의 원한는 내용만 시트2에 표기

아래 그림은 시트1, 2에 있는 내용입니다.

먼저 시트1에 노랑색 표기된 8개 셀 내용시트2에 C6열부터 C13열 까지 표기 하고 싶습니다.

조건은 시트1에 F열 왼쪽, K열 왼쪽, P열 왼쪽, U열 왼쪽 순으로 표기되면 더더욱 좋습니다.

시트1의 노랑색이 고정값이 아니고 사용 할 때 마다 변경 됩니다.

고수님께 진심으로 도움 요청 드립니다.

원본파일 첨부 하였습니다.

 

[시트1]

 

[시트2]

 

전체 6

  • 2022-07-02 22:13
    채택된 답변

    @파란맥 님 시트1의 셀 범위가 예시 파일에서 크게 변동되지 않는다면 굳이 동적범위를 사용하지 않고 범위를 직접 지정(하드 코딩)해도 될 것 같습니다. 필요에 따라 적절히 수정해서 사용하시면 될 것 같네요.

    Sub Test()
        
        Dim c As Range
        
        Application.ScreenUpdating = False
        
        With Sheet3
            .Activate
            If [C6] <> "" Then Range("C6", Cells(Rows.Count, "C").End(3)).ClearContents
            
            For Each c In Sheet2.Range("F13:F100, K13:K100, P13:P100, U13:U100").SpecialCells(2)
                .Cells(Rows.Count, "C").End(3)(2) = c.Offset(, -1)
            Next c
        End With
        
        Application.ScreenUpdating = True
        
    End Sub

     


    • 2022-07-02 23:08

      @나는나 님 나는나 님

      정말 고맙습니다. 성공 했습니다.


    • 2022-07-03 00:30

      @나는나 님 나는나 님

      시트1에 값이 없을 경우 아래와 같이 디버그 현상이 발생 합니다.

      조치 방법이 있을까요?


      • 2022-07-03 01:32

        @파란맥 님 시트1에 값이 없는데 매크로를 왜 실행시키죠? 뭐 어쨌든 실수로라도 실행할 수는 있으니 예외처리를 만드는 게 좋겠지요.

        For Each 구문 위에 아래 구문을 추가해 보세요.

        If Application.CountA(Sheet2.Range("F13:F100, K13:K100, P13:P100, U13:U100")) = 0 Then Exit Sub

        그리고 질문을 통해 해법을 구하셨다면 추가적인 부분에 대해서는 스스로 문제 해결을 해보셔야 실력 향상이 됩니다. 다른 사람이 만들어준 스크립트를 쉽게 취득하다 보면 본인 실력은 정체될 수밖에 없습니다. 스크립트를 얻었으면 거기에 사용된 메서드들을 검색해보고 공부해서 응용은 스스로 하는 겁니다. 모든 걸 질문을 통해서 얻으시면 나중에는 아무도 답변 안 해줍니다.


  • 2022-07-02 22:22

    @파란맥 님 이런 방법도 가능하겠네요.

    노란색 색상셀 추출

    첨부파일 : 데이터-추출.xlsm


    • 2022-07-02 23:32

      @bobo 님 진심으로 감사 합니다.


전체 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