VBA 셀에 함수 자동으로 채우기

VBA
작성자
권용범
작성일
2023-01-17 15:49
조회
96
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

질문 요약 : vba 셀에 함수 넣기

업체명 물품 가격
A업체 물건1 100
물건2 200
물건3 300
물건4 400
물건5 500
B업체 물건6 600
물건7 700
물건8 800
합계

 

위와 같은 엑셀시트가 있을때,

첫번째 열인 업체명에대해, 자동으로 빈 셀들안에 함수를 넣어서 아래처럼 만들고 싶습니다.

 

업체명 물품 가격
A업체 물건1 100
A업체 물건2 200
A업체 물건3 300
A업체 물건4 400
A업체 물건5 500
B업체 물건6 600
B업체 물건7 700
B업체 물건8 800
합계

 

제생각에 이용할 수 있는 함수는 if함수로 현제 셀이 공백이면, 현제 셀 위의값을 가져오고, 공백이 아니라면 현재 셀값을 가져오는 함수로 넣는 방법을 생각해보고 있는데 잘 되지 않습니다 ㅠㅠ

또한, 한 열에대한 모든 셀에 값을 넣어야하니 반복문으로  "합계"라고 적힌 셀을 만나면 멈추게하고 싶습니다.

 

도움주시면 감사하겠습니다.

 

스크랩
공유
전체 7

  • 2023-01-17 15:58

    • 2023-01-17 16:17

      @엑셀은즐거워 님 안녕하세요 답변 감사합니다. 그런데 제가 원하는 기능은, 하나의 열에 대해서 비어있는 셀들에 함수를 자동으로 입력하는 기능을 원하고 있는데, 링크 주신거 읽어보니 셀 병합관련해서 설명이 나와있더라고요. 제가 원하는 기능이랑은 거리가 먼거 같은데 한번 확인해 주실 수 있으실까요?? 감사합니다.


      • 2023-01-17 16:26

        @권용범 님 네 셀병합을 풀면 올려주신 상황이랑 동일하게 빈칸이 생기는데, 빈칸을 채우는 방법입니다


        • 2023-01-17 17:07

          @엑셀은즐거워 님 좋은 정보 감사합니다!


  • 2023-01-17 17:01
    채택된 답변

    @권용범 님 참고하세요

    Sub FillBlank()
    
    Application.ScreenUpdating = False
     
       Dim Area As Range
        Set Area = Range("A1", Cells(Rows.Count, "A").End(xlUp))
       
        For Each r In Area
            If r = "합계" Then
                Exit For
            ElseIf r = "" Then
                r.Value = r.Offset(-1, 0)
            End If
        Next
        
    Application.ScreenUpdating = False
    
    End Sub
    
    
    
    
    
    
    

     


    • 2023-01-17 17:08

      @마법의손 님 감사합니다! 도움 많이 되었습니다!


  • 2023-01-17 22:07

    @권용범 님 업체명이 A열이고 D열이 빈 열, 첫 데이터가 2행부터라고하면, D2에 이렇게 입력하세요

    =if(A2="",a1,a2)

    그럼 D2에 빈칸없이 채워질 거고 D열 내용을  A열에 선택하여 붙여넣기 하시면 됩니다.


전체 9,368
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (10)
오빠두엑셀 | 2023.01.25 | 추천 6 | 조회 3574
오빠두엑셀 2023.01.25 6 3574
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (123)
오빠두엑셀 | 2021.10.28 | 추천 160 | 조회 9759
오빠두엑셀 2021.10.28 160 9759
48628 VBA
New VBA 재고 관리 중 Delete_invetory()에러
윤원섭 | 11:15 | 추천 0 | 조회 8
윤원섭 11:15 - 8
48626 함수/공식
New 함수로 범위를 지정할때... 첨부파일 (1)
캬쿠 | 11:05 | 추천 0 | 조회 10
캬쿠 11:05 - 10
48624 구글시트
New 구글 스프레드시트 대시보드에서 입력한 기간에 맞는 데이터(열)만 나오게 하는 방법이 궁금합니다. 첨부파일
12호기기기 | 11:00 | 추천 0 | 조회 7
12호기기기 11:00 - 7
48622 VBA
New VBA로 만든 함수중 String 변수의 data값이 너무커서 결과 값이 #VALUE! 나와요 (1)
짜이용 | 10:55 | 추천 0 | 조회 8
짜이용 10:55 - 8
48618 함수/공식
New 표 안에 입력된 값의 xy방향 속성(표제목(?))이 순서대로 자동 출력되게 하고 싶습니다. 엑셀파일첨부파일
오이군 | 10:43 | 추천 0 | 조회 12
오이군 10:43 - 12
48615 함수/공식
New 행과 열이 포함된 특정 숫자의 개수 카운팅 방법 (휴무일 카운팅) 엑셀파일첨부파일
이덕삼 | 10:16 | 추천 0 | 조회 13
이덕삼 10:16 - 13
48613 함수/공식
New Ctrl+Shift+Enter를 입력했는데 행번호가 자동 증가하지 않습니다. (1)
한잔의커피 | 10:05 | 추천 0 | 조회 18
한잔의커피 10:05 - 18
48611 함수/공식
New 현재 시간 이전에 들어온 품목 횟수 구하는 방법 첨부파일
츄리 | 09:31 | 추천 0 | 조회 15
츄리 09:31 - 15
48605 기능/도구
New 블록 지정한 문자만 색깔 변경하는 방법 (2)
욕심없는성공v | 08:39 | 추천 0 | 조회 26
욕심없는성공v 08:39 - 26
48604 VBA
New 엑셀 셀값 파일명 지정 첨부파일
실무자 | 08:21 | 추천 0 | 조회 20
실무자 08:21 - 20
48603 함수/공식
New 하나의 셀에 있는 데이터를 모두 다른 셀로 나누고 싶어요 (1) 답변완료
바닐라사랑해 | 07:52 | 추천 0 | 조회 22
바닐라사랑해 07:52 - 22
48597 함수/공식
New 오늘 날짜 보다 큰 날짜들 중에서 가장 오른쪽 끝에 기재되어 있는 날짜의 열번호를 찾는 수식을 만들었습니다만.. 첨부파일 (5) 답변완료
| 01:46 | 추천 0 | 조회 26
01:46 - 26
48595 대시보드
New 주차별 증감 분석 데이터 만들기 엑셀파일첨부파일
엑셀고수왕소취 | 01:27 | 추천 0 | 조회 24
엑셀고수왕소취 01:27 - 24
48594 VBA
New 데이터 정렬 질문드립니다. 엑셀파일첨부파일 (1)
qzzzzzqq | 00:31 | 추천 0 | 조회 21
qzzzzzqq 00:31 - 21
48586 VBA
New 특정 부분 가져오는법 엑셀파일
songa | 2023.01.31 | 추천 0 | 조회 35
songa 2023.01.31 - 35
48576 함수/공식
New 해당연도 설날, 추석 알려주기 (2)
엑셀초보랍니다 | 2023.01.31 | 추천 0 | 조회 30
엑셀초보랍니다 2023.01.31 - 30
48573 함수/공식
New 누적, 주간별 불량율 구하기 / 전년 대비 불량율 차트 만들기 엑셀파일첨부파일 (1)
엑셀렙업용 | 2023.01.31 | 추천 0 | 조회 31
엑셀렙업용 2023.01.31 - 31
48572 기능/도구
New 엑셀 파일을 sql로 변환하는 방법 궁금해요 (2)
단군 | 2023.01.31 | 추천 0 | 조회 30
단군 2023.01.31 - 30
48567 함수/공식
New 조건부 서식 문의 엑셀파일첨부파일 (2)
최치곤 | 2023.01.31 | 추천 0 | 조회 31
최치곤 2023.01.31 - 31
48563 함수/공식
New 다중조건 만족하는 값 가져오기.. 이거 아무리해도 안되네요.. ㅜㅜ 엑셀파일 (3)
주니수합 | 2023.01.31 | 추천 0 | 조회 42
주니수합 2023.01.31 - 42
48560 함수/공식
New 월별 이익계산하기 질문 드리빈다. 첨부파일 (2)
에공 | 2023.01.31 | 추천 0 | 조회 24
에공 2023.01.31 - 24
48559 VBA
New 인쇄폼관련 질문 드립니다. 엑셀파일첨부파일 (2)
최승호 | 2023.01.31 | 추천 0 | 조회 25
최승호 2023.01.31 - 25
48556 함수/공식
New 엑셀초보ㅜㅜ 등급표 작성관련 도움 부탁드립니다! 엑셀파일첨부파일 (4)
엑셀초보등장 | 2023.01.31 | 추천 0 | 조회 27
엑셀초보등장 2023.01.31 - 27
48552 VBA
New (심각)매크로 실행시 엑셀 응답없음 및 엑셀 속도 느림 첨부파일 (1) 답변완료
실무자 | 2023.01.31 | 추천 0 | 조회 32
실무자 2023.01.31 - 32
48544 함수/공식
New 현재 시간에 가장 가까운 시간을 불러오는 방법이 있을까요? 첨부파일 (2)
열심맨 | 2023.01.31 | 추천 0 | 조회 44
열심맨 2023.01.31 - 44
48541 함수/공식
New IF AND 중첩 도움 부탁드립니다! 첨부파일 (7)
Nalae | 2023.01.31 | 추천 0 | 조회 58
Nalae 2023.01.31 - 58
48540 VBA
New .xlsm에서 실행한 매크로 결과를 .xlsx로 저장할 때 오류 해결법 (2) 답변완료
나지 | 2023.01.31 | 추천 0 | 조회 37
나지 2023.01.31 - 37
48538 함수/공식
New 엑셀 구글스프레드시트 질문 첨부파일 (5) 답변완료
Hwan | 2023.01.31 | 추천 0 | 조회 49
Hwan 2023.01.31 - 49
48536 함수/공식
New 엑셀 데이터 채우기 첨부파일 (1)
쨈빛 | 2023.01.31 | 추천 0 | 조회 32
쨈빛 2023.01.31 - 32
48529 함수/공식
New 수식이 나타내는 바가 동일한데 결과값이 달라지는 요상한 오류... 첨부파일 (2)
| 2023.01.31 | 추천 0 | 조회 44
2023.01.31 - 44