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

VBA

작성자

권용범

작성일

2023-01-17 15:49

조회

1826

엑셀버전 : 엑셀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함수로 현제 셀이 공백이면, 현제 셀 위의값을 가져오고, 공백이 아니라면 현재 셀값을 가져오는 함수로 넣는 방법을 생각해보고 있는데 잘 되지 않습니다 ㅠㅠ

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

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

공감

0명

권용범

회원등급 : 2레벨

포인트 : 66 EP

총질문 : 2 개 (마감율 : 100%)

채택답변 : 0 개

게시글

전체 7

엑셀은즐거워 님 199

2023-01-17 15:58

@권용범 님 VBA 대신 아래 방법 추천합니다

https://www.oppadu.com/%EC%97%91%EC%85%80-%EC%85%80%EB%B3%91%ED%95%A9-%EC%98%A4%EB%A5%98/
- 권용범 님 작성자
  
  2023-01-17 16:17
  
  @엑셀은즐거워 님 안녕하세요 답변 감사합니다. 그런데 제가 원하는 기능은, 하나의 열에 대해서 비어있는 셀들에 함수를 자동으로 입력하는 기능을 원하고 있는데, 링크 주신거 읽어보니 셀 병합관련해서 설명이 나와있더라고요. 제가 원하는 기능이랑은 거리가 먼거 같은데 한번 확인해 주실 수 있으실까요?? 감사합니다.
  - 엑셀은즐거워 님 199
    
    2023-01-17 16:26
    
    @권용범 님 네 셀병합을 풀면 올려주신 상황이랑 동일하게 빈칸이 생기는데, 빈칸을 채우는 방법입니다
    
    권용범 님 작성자
    
    2023-01-17 17:07
    
    @엑셀은즐거워 님 좋은 정보 감사합니다!

마법의손 님 1644

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

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

호호홋 님 4

2023-01-17 22:07

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

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

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

« 재고관련 수식 문의 드립니다...자료첨부

= 치고 수식 입력시 자동 함수 설정 해제하는법? »

목록보기

전체 18,535

번호	카테고리	제목	작성자	작성일	추천	조회
알림		[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (315) 오빠두엑셀 \| 2022.02.03 \| 추천 575 \| 조회 610185	오빠두엑셀	2022.02.03	575	610185

공지사항	문서서식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197) 오빠두엑셀 \| 2021.10.28 \| 추천 310 \| 조회 35598	오빠두엑셀	2021.10.28	310	35598
78587	기능/도구	New 클립보드 오류 고녱 \| 11:25 \| 추천 0 \| 조회 14	고녱	11:25	-	14
78586	함수/공식	New (초보 질문) 15분별-데이터를 1시간별-데이터로 SUMIFS 하는데, 일부 오류 발생 구간이 있습니다. (2) 콩떡 \| 09:48 \| 추천 0 \| 조회 24	콩떡	09:48	-	24
78584	구글시트	New 같은 값에 색으로 표시하기 (1) 피망이 \| 09:24 \| 추천 0 \| 조회 33	피망이	09:24	-	33
78582	함수/공식	New 조건 함수 의 관한 문의 (6) 답변완료 예쁜나야 \| 2025.05.13 \| 추천 0 \| 조회 79	예쁜나야	2025.05.13	-	79
78580		New 날짜와 시간 분할 방법 알려 주세요 (3) 답변완료 계양산 지기 \| 2025.05.13 \| 추천 0 \| 조회 75	계양산 지기	2025.05.13	-	75
78575	VBA	New 엑셀 재고관리 프로그램 문의드립니다.. (3) SJ \| 2025.05.13 \| 추천 0 \| 조회 104	SJ	2025.05.13	-	104
78570	대시보드	New 대시보드에 표 형식으로 표현도 가능한가요? (2) 룰루랄라 \| 2025.05.12 \| 추천 0 \| 조회 100	룰루랄라	2025.05.12	-	100
78569	함수/공식	New 서로 다른 양식의 견적서 엑셀 파일 한곳에 정리 하기 (5) gh**** \| 2025.05.12 \| 추천 0 \| 조회 119	gh****	2025.05.12	-	119
78565	함수/공식	New 검색보고서 만들기 질문드립니다. (9) 답변완료 만식이햄 \| 2025.05.12 \| 추천 0 \| 조회 97	만식이햄	2025.05.12	-	97
78563	VBA	New VBA 수정 부탁드립니다. ㅠ (8) 서비 \| 2025.05.12 \| 추천 0 \| 조회 98	서비	2025.05.12	-	98
78560	함수/공식	New 어떻게 내용을 가져올수 있을지 고수님들의 해결방법들을 공유 받고 싶습니다!!.... (2) 꾸르형 \| 2025.05.12 \| 추천 0 \| 조회 56	꾸르형	2025.05.12	-	56
78559	파워쿼리/피벗	New 엑셀 자동화 질문 입니다... (2) 답변완료 안녕하세여11 \| 2025.05.12 \| 추천 0 \| 조회 84	안녕하세여11	2025.05.12	-	84
78555	함수/공식	New 시트에서 원하는 열의 자료만 가져오고싶은데 아무리 해도 수식오류가 나서 도움을 구하고자 합니다 (4) 답변완료 khs**** \| 2025.05.12 \| 추천 0 \| 조회 52	khs****	2025.05.12	-	52
78554	함수/공식	New 변동하는 절대참조값 적용 (6) 답변완료 화이또! \| 2025.05.12 \| 추천 0 \| 조회 75	화이또!	2025.05.12	-	75
78553	대시보드	New 대시보드_슬라이서 자동으로 눌러지게 하는방법 (1) 검도림 \| 2025.05.12 \| 추천 0 \| 조회 59	검도림	2025.05.12	-	59
78548	대시보드	New 어떤 엑셀을 적용해야하는 지 문의드립니다! (1) 룰루랄라 \| 2025.05.11 \| 추천 0 \| 조회 77	룰루랄라	2025.05.11	-	77
78546	함수/공식	New 월별 매출액 자동입력할 수 있는 방법 또는 함수 궁금합니다! (2) mmm1010 \| 2025.05.11 \| 추천 0 \| 조회 100	mmm1010	2025.05.11	-	100
78544	함수/공식	New 중복값 제거 함수에 관하여 (1) 답변완료 김지훈(Derek) \| 2025.05.11 \| 추천 0 \| 조회 86	김지훈(Derek)	2025.05.11	-	86
78543	함수/공식	New 데이터 추출 및 정렬관련 초보질문 (5) 답변완료 김지훈(Derek) \| 2025.05.11 \| 추천 0 \| 조회 83	김지훈(Derek)	2025.05.11	-	83
78540	함수/공식	New 오빠두LIVE 219회 - 엑셀 '셀 병합' 자동화 보고서 만들기 오빠두엑셀님의 방법이 궁금합니다. AURIC \| 2025.05.10 \| 추천 0 \| 조회 69	AURIC	2025.05.10	-	69
78536	함수/공식	New 월별로 금액적용후 최종월에 차액을 가감 함수가 필요해요 (1) 답변완료 낮은자 \| 2025.05.10 \| 추천 0 \| 조회 73	낮은자	2025.05.10	-	73
78535	기능/도구	New 엑셀로 25x25 인쇄가 가능한가요? (1) 망나 \| 2025.05.10 \| 추천 0 \| 조회 57	망나	2025.05.10	-	57
78534	파워쿼리/피벗	New 쿼리에 함수 적용한 열 추가 시 24:00:00 활용한 계산 함수 필요할 때. (2) 답변완료 신노스케 \| 2025.05.10 \| 추천 0 \| 조회 74	신노스케	2025.05.10	-	74
78531	차트/그래프	New 엑셀 차트 데이터테이블 (1) 쩡 \| 2025.05.09 \| 추천 0 \| 조회 84	쩡	2025.05.09	-	84
78530	구글시트	New 구글 스프레드시트 함수 관련 질문입니다. (2) 동그이 \| 2025.05.09 \| 추천 0 \| 조회 73	동그이	2025.05.09	-	73
78528	구글시트	New 구글 스프레드시트를 외부 엑셀 파일과 연동하는 방법이 궁금합니다. (3) 머우터덩 \| 2025.05.09 \| 추천 0 \| 조회 77	머우터덩	2025.05.09	-	77
78525	문서서식	New 업무가 진행이 안 될 정도로, 해당 파일이 느립니다! (2) 빌스택스 \| 2025.05.09 \| 추천 0 \| 조회 103	빌스택스	2025.05.09	-	103
78520	기능/도구	New 하이퍼링크 명칭 해제 (1) min \| 2025.05.09 \| 추천 0 \| 조회 61	min	2025.05.09	-	61
78518	피벗테이블	New 피벗테이블 관련 화살표 질문 이모비니 \| 2025.05.09 \| 추천 0 \| 조회 57	이모비니	2025.05.09	-	57
78516	함수/공식	New 호봉산정 엑셀 문의드립니다. (2) 답변완료 아르카디안 \| 2025.05.08 \| 추천 0 \| 조회 68	아르카디안	2025.05.08	-	68