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

VBA

작성자

권용범

작성일

2023-01-17 15:49

조회

엑셀버전 : 엑셀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레벨

포인트 : 61 EP

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

채택답변 : 0 개

게시글

전체 7

엑셀은즐거워 님 178

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
  
  @엑셀은즐거워 님 안녕하세요 답변 감사합니다. 그런데 제가 원하는 기능은, 하나의 열에 대해서 비어있는 셀들에 함수를 자동으로 입력하는 기능을 원하고 있는데, 링크 주신거 읽어보니 셀 병합관련해서 설명이 나와있더라고요. 제가 원하는 기능이랑은 거리가 먼거 같은데 한번 확인해 주실 수 있으실까요?? 감사합니다.
  - 엑셀은즐거워 님 178
    
    2023-01-17 16:26
    
    @권용범 님 네 셀병합을 풀면 올려주신 상황이랑 동일하게 빈칸이 생기는데, 빈칸을 채우는 방법입니다
    
    권용범 님 작성자
    
    2023-01-17 17:07
    
    @엑셀은즐거워 님 좋은 정보 감사합니다!
마법의손 님 352

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
  
  @마법의손 님 감사합니다! 도움 많이 되었습니다!
호호홋 님 3

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