옆의 셀에 값이 있으면, 현재 셀의 수식을 Filldown 하는 VBA

VBA
작성자
나지
작성일
2022-09-01 11:23
조회
69
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요. VBA 코딩중에 어려움이 있어 도움을 요청드립니다.

예제 파일에는 두 개의 시트가 있습니다. 작업시트 이름은 Sheet0, 데이터값이 들어있는 시트 이름은 Sheet1 입니다.

제가 원하는 것은 Sheet0의 별명 항목에 값이 있는 경우, Sheet0의 B4에 들어있는 수식을 복사해 아래로 Filldown 시키는 것입니다.

이때 Sheet0의 B4 수식은 =VLOOKUP(A4,Sheet1!$A$1:$B$3000,2,) 입니다.

(아래 예제 파일 및 이미지를 참고 부탁드립니다)

옆셀의 값 유무에 따라서 수식을 채워넣는 게 가능할것 같은데 IF문과 Filldown 으로 해결이 어려워서 관련해 힌트를 요청드립니다 ㅠㅠ

감사합니다.

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

  • 2022-09-01 13:34
    채택된 답변

    @나지

     

    Sub filldown()
    
    Application.ScreenUpdating = False
    On Error Resume Next
        
        Set vArea = Sheets("Sheet1").Range("A1").CurrentRegion
        Set keyArea = Sheets("Sheet0").Range("A4", Cells(Rows.Count, "A").End(xlUp))
        
        With WorksheetFunction
            For Each k In keyArea
                If k <> "" Then
                    k.Offset(0, 1) = .IfError(.VLookup(k, vArea, 2, 0), "")
                End If
            Next
        End With
        
    Application.ScreenUpdating = True
    
    End Sub
    
    

    참고하세요

     

    첨부파일 : 복사본-예제.xlsm


    • 2022-09-01 14:18

      @마법의손 님 답글 감사드립니다! 테스트시 완벽한 결과가 나옵니다. 한 줄 한 줄 뜯어서 분석해보아야 할 것 같습니다. 좋은 오후 보내세요!


전체 7,798
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다!
오빠두엑셀 | 2022.09.28 | 추천 1 | 조회 46
오빠두엑셀 2022.09.28 1 46
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 1662
오빠두엑셀 2022.08.04 4 1662
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (95)
오빠두엑셀 | 2021.10.28 | 추천 125 | 조회 7406
오빠두엑셀 2021.10.28 125 7406
42574 함수/공식
New 날짜에 대한 IF 함수 엑셀파일 (1)
sky3**** | 2022.09.28 | 추천 0 | 조회 10
sky3**** 2022.09.28 - 10
42573 함수/공식
New VLOOKUP 함수에서 표이름을 입력하니까 #N/A 오류가 발생해요 엑셀파일첨부파일 (1)
꿈꾸는부자 | 2022.09.28 | 추천 0 | 조회 11
꿈꾸는부자 2022.09.28 - 11
42570 VBA
New VBA 매크로를 쓰고 싶습니다 엑셀파일첨부파일
실런 | 2022.09.28 | 추천 0 | 조회 15
실런 2022.09.28 - 15
42561 함수/공식
New 날짜 검색 수식 관련 질문 (2)
마루모토 | 2022.09.28 | 추천 0 | 조회 23
마루모토 2022.09.28 - 23
42559 기능/도구
New 행x열 표를 한 열로 쉽게 바꾸는 방법 문의 엑셀파일첨부파일 (1)
mac**** | 2022.09.28 | 추천 0 | 조회 30
mac**** 2022.09.28 - 30
42558 VBA
New 매크로로 특정셀이 공란일 때 특정셀 내용을 다 지우는 방법 (1)
디엠 | 2022.09.28 | 추천 0 | 조회 20
디엠 2022.09.28 - 20
42555 문서서식
New A1 A3 A4 값을 열로 자동채우기 (7) 답변완료
chri**** | 2022.09.28 | 추천 0 | 조회 32
chri**** 2022.09.28 - 32
42554 차트/그래프
New 피벗차트의 제목 연결 만들기 첨부파일 (1)
하늘보기119 | 2022.09.28 | 추천 0 | 조회 25
하늘보기119 2022.09.28 - 25
42552 함수/공식
New 날짜 검색 조건 질문 (3) 답변완료
마루모토 | 2022.09.28 | 추천 0 | 조회 28
마루모토 2022.09.28 - 28
42551 함수/공식
New 데이타 유효성 검사문제 엑셀파일 (2)
redi**** | 2022.09.28 | 추천 0 | 조회 29
redi**** 2022.09.28 - 29
42549 VBA
New VBA 뉴스기사 크롤링 관련 질문입니다. 첨부파일 (1)
jjang**** | 2022.09.28 | 추천 0 | 조회 25
jjang**** 2022.09.28 - 25
42547 VBA
New 복사붙여넣기 매크로 (도와주세요 ㅠㅠㅠ) (재질문) 엑셀파일첨부파일
wldud**** | 2022.09.28 | 추천 0 | 조회 29
wldud**** 2022.09.28 - 29
42542 함수/공식
New 엑셀 VLookup 함수에서 두 곳 중 한 곳에만 결과값이 안나오는 이유가 무엇일까요? 엑셀파일 (7)
김기태 | 2022.09.28 | 추천 0 | 조회 45
김기태 2022.09.28 - 45
42540 피벗테이블
New 피벗테이블 특정항목만 X2, X3 자동 곱하기 되게 엑셀파일첨부파일
알럽고구마 | 2022.09.28 | 추천 1 | 조회 24
알럽고구마 2022.09.28 1 24
42533 함수/공식
New 숫자 추출 후 더하기 및 곱하기 엑셀파일첨부파일 (3) 답변완료
하나포 | 2022.09.28 | 추천 0 | 조회 24
하나포 2022.09.28 - 24
42531 문서서식
New data 값이 없을 때는 어떤 값을 입력하면 괜찮은가요? (1)
twou**** | 2022.09.28 | 추천 0 | 조회 29
twou**** 2022.09.28 - 29
42526 VBA
New 복사붙여넣기 매크로 (도와주세요 ㅠㅠㅠ) 엑셀파일첨부파일
wldud**** | 2022.09.28 | 추천 0 | 조회 44
wldud**** 2022.09.28 - 44
42523 기능/도구
New 엑셀에 카메라 기능이 안됩니다. 첨부파일 (4)
무럭무럭예찬이 | 2022.09.28 | 추천 0 | 조회 40
무럭무럭예찬이 2022.09.28 - 40
42516 함수/공식
New 날짜에 대한 IF함수 엑셀파일 (3)
sky3**** | 2022.09.27 | 추천 0 | 조회 51
sky3**** 2022.09.27 - 51
42515 함수/공식
New 집계현황에 각시트의 해당되는 값을 찾는 함수가 필요합니다. 엑셀파일 (2)
낮은자 | 2022.09.27 | 추천 0 | 조회 29
낮은자 2022.09.27 - 29
42514 함수/공식
New 작업순서 변경 시 하나 바꿀 때 나머지 작업순서도 연동되어 바꾸는 방법 (생산관리, 생산계획) 첨부파일 (2)
스키마타 | 2022.09.27 | 추천 0 | 조회 34
스키마타 2022.09.27 - 34
42509 VBA
New MsoScroll 지우는 방법. 첨부파일 (2)
033cola | 2022.09.27 | 추천 0 | 조회 36
033cola 2022.09.27 - 36
42507
New subtotal + 필터적용시 오류 문의 입니다. 엑셀파일 (2)
1003po**** | 2022.09.27 | 추천 0 | 조회 39
1003po**** 2022.09.27 - 39
42503 파워쿼리/피벗
New 피벗테이블 / 파워커리 행 늘리는 방법 문의 엑셀파일첨부파일 (1)
주태훈 | 2022.09.27 | 추천 0 | 조회 43
주태훈 2022.09.27 - 43
42501 파워쿼리/피벗
New 파워피벗 열조건 비율 계산 엑셀파일첨부파일 (2) 답변완료
bstm**** | 2022.09.27 | 추천 0 | 조회 47
bstm**** 2022.09.27 - 47
42495 함수/공식
New 문제관련 (7)
제두진 | 2022.09.27 | 추천 0 | 조회 45
제두진 2022.09.27 - 45
42488 VBA
New 엑셀 고급필터 자동화 질문드립니다. (부탁드립니다 ㅠㅠ) (재질문) 엑셀파일 (2) 답변완료
wldud**** | 2022.09.27 | 추천 0 | 조회 57
wldud**** 2022.09.27 - 57
42485 함수/공식
New 여기 엑셀 고급 11강 - FILTER에 대해서 엑셀파일 (5) 답변완료
구름나그네 | 2022.09.27 | 추천 0 | 조회 52
구름나그네 2022.09.27 - 52
42482 문서서식
New 중복값 표시하기가 이해가 안됩니다. 할 수 있는 방법 좀 알려주세요 첨부파일 (1)
엑셀마스터가되고싶다 | 2022.09.26 | 추천 0 | 조회 39
엑셀마스터가되고싶다 2022.09.26 - 39
42478 VBA
New 특정한 값이 있는 행 추출(작성된 VBA 수정) 엑셀파일첨부파일 (1)
007 | 2022.09.26 | 추천 0 | 조회 49
007 2022.09.26 - 49