쇼핑몰 발주서 내 사은품을 엑셀 가공하고싶은데 정말 모르겠습니다..ㅠㅠ 엑잘알님들.. 도와주세요..ㅠㅠ
함수/공식
작성자
지국이
작성일
2023-10-12 16:08
조회
1054
먼저 말씀드리자면 저희는 온라인 쇼핑몰을 운영하고 있는 업체이며 쇼핑몰에서 구매한 사람들의 주문건 중 지정 상품에 대한 사은품을 지급해주고 있습니다.
발주서를 다운 받았을때 100,150건의 주문건이 생성되고, 예를들어 1행, 33행, 55행에 주문건의 사은품을 지급하게되면 Q1열과 같이 사은품이 노출됩니다.
1,33,55행 바로 아래 1행씩 추가하여 2,34,56행에 사은품을 주문건과 동일한 형태로 만들어서 엑셀을 가공해야되는 상황입니다.
현재는 주문건이 많지않아 수작업으로 진행중인데 차후 주문량이 많아지면 시간적으로 감당할 수 없을 것 같아 전문가님들의 도움을 받고싶습니다.
조금 더 부연 설명을 아래와 같이 드리도록 하겠습니다.
- 그래서 Q2에 있는 '(사은품) 커필드 행주 - 1개'를 B3, C3에 넣어야되는 상황입니다.(B3 : (사은품) 커필드 행주) / (C3 : 수량만큼 숫자를 빼야됩니다. 1개면 1, 3개면 3)
- 꼭 필수 조건은 주문건의 바로 아래행을 추가하여 해당값을 넣어야된다는 조건입니다.
제가 만들고 싶은 시트는 아래와같습니다.
여기서 키 포인트는 주문건이 1~100개 있을 경우 33번행의 주문건이 있다면 33행 아래에 행추가하여 사은품 정보를 넣어야된다는 조건입니다..
필터를 걸고 복사를하면 맨 아래로 들어가서 합포장이 안되기 때문에 꼭 아래에 넣어야되는데 수식도 어떻게 짜야될지 모르겠고.. 필터 안걸고 자동적으로 행추가하여 값을 집어 넣을 수 있는지 너무 어렵고 걱정되어 전문가분들께 이렇게 간곡히 요청드립니다..
긴글 읽어주셔서 감사합니다 !
전체 18,532
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (315)
![]() ![]() |
![]() ![]() |
2022.02.03 | 575 | 609850 | ||
공지사항 | 문서서식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(197)
오빠두엑셀
|
2021.10.28
|
추천 310
|
조회 35589
|
![]() ![]() |
2021.10.28 | 310 | 35589 |
78582 | 함수/공식 |
New 조건 함수 의 관한 문의
![]() ![]() ![]() |
![]() |
2025.05.13 | - | 60 |
78580 |
New 날짜와 시간 분할 방법 알려 주세요
![]() ![]() ![]() |
![]() |
2025.05.13 | - | 56 | |
78575 | VBA |
New 엑셀 재고관리 프로그램 문의드립니다..
![]() ![]() |
![]() |
2025.05.13 | - | 90 |
78570 | 대시보드 |
New 대시보드에 표 형식으로 표현도 가능한가요?
![]() ![]() |
![]() |
2025.05.12 | - | 91 |
78569 | 함수/공식 |
New 서로 다른 양식의 견적서 엑셀 파일 한곳에 정리 하기
(5)
![]() |
![]() |
2025.05.12 | - | 114 |
78565 | 함수/공식 |
New 검색보고서 만들기 질문드립니다.
![]() ![]() |
![]() |
2025.05.12 | - | 95 |
78563 | VBA |
New VBA 수정 부탁드립니다. ㅠ
(3)
![]() |
![]() |
2025.05.12 | - | 87 |
78560 | 함수/공식 |
New 어떻게 내용을 가져올수 있을지 고수님들의 해결방법들을 공유 받고 싶습니다!!....
![]() ![]() ![]() |
![]() |
2025.05.12 | - | 52 |
78559 | 파워쿼리/피벗 |
New 엑셀 자동화 질문 입니다...
![]() ![]() |
![]() |
2025.05.12 | - | 77 |
78555 | 함수/공식 |
New 시트에서 원하는 열의 자료만 가져오고싶은데 아무리 해도 수식오류가 나서 도움을 구하고자 합니다
![]() ![]() |
![]() |
2025.05.12 | - | 51 |
78554 | 함수/공식 |
New 변동하는 절대참조값 적용
(6)
답변완료
![]() |
![]() |
2025.05.12 | - | 74 |
78553 | 대시보드 |
New 대시보드_슬라이서 자동으로 눌러지게 하는방법
![]() ![]() |
![]() |
2025.05.12 | - | 56 |
78548 | 대시보드 |
New 어떤 엑셀을 적용해야하는 지 문의드립니다!
(1)
![]() |
![]() |
2025.05.11 | - | 74 |
78546 | 함수/공식 |
New 월별 매출액 자동입력할 수 있는 방법 또는 함수 궁금합니다!
![]() ![]() |
![]() |
2025.05.11 | - | 95 |
78544 | 함수/공식 |
New 중복값 제거 함수에 관하여
![]() ![]() ![]() |
![]() |
2025.05.11 | - | 83 |
78543 | 함수/공식 |
New 데이터 추출 및 정렬관련 초보질문
![]() ![]() ![]() |
![]() |
2025.05.11 | - | 80 |
78540 | 함수/공식 |
New 오빠두LIVE 219회 - 엑셀 '셀 병합' 자동화 보고서 만들기 오빠두엑셀님의 방법이 궁금합니다.
![]() ![]() |
![]() |
2025.05.10 | - | 68 |
78536 | 함수/공식 |
New 월별로 금액적용후 최종월에 차액을 가감 함수가 필요해요
![]() ![]() |
![]() |
2025.05.10 | - | 71 |
78535 | 기능/도구 |
New 엑셀로 25x25 인쇄가 가능한가요?
(1)
![]() |
![]() |
2025.05.10 | - | 56 |
78534 | 파워쿼리/피벗 |
New 쿼리에 함수 적용한 열 추가 시 24:00:00 활용한 계산 함수 필요할 때.
![]() ![]() |
![]() |
2025.05.10 | - | 72 |
78531 | 차트/그래프 |
New 엑셀 차트 데이터테이블
![]() ![]() ![]() |
![]() |
2025.05.09 | - | 81 |
78530 | 구글시트 |
New 구글 스프레드시트 함수 관련 질문입니다.
![]() ![]() ![]() |
![]() |
2025.05.09 | - | 72 |
78528 | 구글시트 |
New 구글 스프레드시트를 외부 엑셀 파일과 연동하는 방법이 궁금합니다.
(3)
![]() |
![]() |
2025.05.09 | - | 75 |
78525 | 문서서식 |
New 업무가 진행이 안 될 정도로, 해당 파일이 느립니다!
![]() ![]() |
![]() |
2025.05.09 | - | 99 |
78520 | 기능/도구 |
New 하이퍼링크 명칭 해제
(1)
![]() |
![]() |
2025.05.09 | - | 59 |
78518 | 피벗테이블 |
New 피벗테이블 관련 화살표 질문
![]() ![]() |
![]() |
2025.05.09 | - | 55 |
78516 | 함수/공식 |
New 호봉산정 엑셀 문의드립니다.
![]() ![]() ![]() |
![]() |
2025.05.08 | - | 65 |
78515 | 함수/공식 |
New 엑셀 질문 드립니다.ㅠ.ㅠ
![]() ![]() |
![]() |
2025.05.08 | - | 62 |
78511 | 함수/공식 |
New 입사일자로 부터 매년 알림
(2)
![]() |
![]() |
2025.05.08 | - | 77 |
78510 | 문서서식 |
New 조건부 서식 적용 문의
![]() ![]() ![]() |
![]() |
2025.05.08 | - | 109 |
@지국이 님 2행부터 검색하여, Q행에 데이터가 있다면 복사하여 아래의 셀에 넣고, "-" 기준으로 상품명과 수량을 변경하는 코드입니다.
참고하세요.
Sub test1()
Dim ws As Worksheet
Set ws = ActiveSheet
k = 2
For i = 2 To ws.UsedRange.Rows.Count
If ws.Range("Q" & k) <> "" Then
t1 = ws.Range("Q" & k)
t2 = Split(t1, "-")
ws.Rows(k + 1).Insert
ws.Rows(k).Copy ws.Rows(k + 1)
ws.Range("B" & k + 1) = t2(0)
ws.Range("C" & k + 1) = Trim(Replace(t2(1), "개", ""))
ws.Range("Q" & k + 1) = ""
k = k + 2
Else
k = k + 1
End If
Next i
End Sub