VBA로 해당 부분을 FIND로 검색 후 특정 열을 복사해야할지 모르겠어요
VBA
작성자
엑셀힘들마다아
작성일
2023-07-06 10:39
조회
1156
예시 사진입니다
우선 ID 기준으로 6개 까지만 그룹처럼? 생성이 됩니다.
제가 질문드리고 싶은 부분은 예시사진을 보면 불규칙적인 열의 값을 찾아서 복사하려는데요
"공급가"의 값을 전부 복사해서 다른시트에 붙여넣기를 하려고 합니다.
단, 붙여넣을때 a열에 공급가와 상품명이 변경되면 x
...중간에 막혀서 어디서부터 해야할지 감이 안와 질문드립니다 ㅠㅠ
고수님들 도와주세요 ㅠㅠ
With Sheets("3번시트").Range(Cells(1, 3), Cells(100, 350)) 'Database 범위 Set Z = .Find("공급가", Lookat:=xlPart) ' xlWhole : 전체 일치, xlPart : 부분 일치 If Not Z Is Nothing Then ' 값이 검색된다면 (값이 데이터베이스에 존재한다면) StrFirstaddr = Z.Address '첫 주소 설정 (무한루프 방지용) strAddr = Z.Address '주소값 설정 Do ' 값 여러개 있을 경우 모두 찾아낼 수 잇다. [ ] ' 어떤 행동을 취하고 (예를 들어 해당 열을 복사해서 옆 시트에 붙여넣기. Set Z = .FindNext(Z) '다음 값 찾기 strAddr = Z.Address '셀 주소 설정 '첫 주소와 겹치지 않을때까지 루프 Loop While Not Z Is Nothing And strAddr <> StrFirstaddr Else '찾는 값 없을 경우 취할 행동 End If End With
전체 16,942
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀
|
2022.02.03
|
추천 554
|
조회 846840
|
오빠두엑셀 | 2022.02.03 | 554 | 846840 | ||
공지사항 | 문서서식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(197)
오빠두엑셀
|
2021.10.28
|
추천 304
|
조회 31528
|
오빠두엑셀 | 2021.10.28 | 304 | 31528 |
74639 | 함수/공식 |
New 데이터유효성 검사를 통해 40배수의 수만 입력
(8)
쿠노이
|
00:21
|
추천 0
|
조회 31
|
쿠노이 | 00:21 | - | 31 |
74638 | 피벗테이블 |
New 피벗테이블 날짜 그룹화 원치 않는 범위가 뜹니다.
(1)
단팥빵
|
2024.10.31
|
추천 0
|
조회 28
|
단팥빵 | 2024.10.31 | - | 28 |
74633 | 문서서식 |
New 안녕하세요 게임 시스템 테이블 작성 배우고 있는데 기초적인 부분을 잘 모르겠어서 질문 드립니다!
(1)
답변완료
코니
|
2024.10.31
|
추천 0
|
조회 48
|
코니 | 2024.10.31 | - | 48 |
74632 | 기능/도구 |
New 챗gpt 연동해서 이미지로 된 표의 데이터를 가져오려고 합니다.
김수현
|
2024.10.31
|
추천 0
|
조회 49
|
김수현 | 2024.10.31 | - | 49 |
74628 | 구글시트 |
New IMPORTRANGE 함수에서 칸을 늘리면 사라지는데 고정하는 방법은 없을까요?
(3)
야망이
|
2024.10.31
|
추천 0
|
조회 55
|
야망이 | 2024.10.31 | - | 55 |
74627 | 문서서식 |
New 조건부 서식 문의
(1)
배고픈짐승
|
2024.10.31
|
추천 0
|
조회 74
|
배고픈짐승 | 2024.10.31 | - | 74 |
74626 | 파워쿼리/피벗 |
New [파워쿼리] 여러 파일 한번에 불러올 때 데이터 유실
(3)
naa****
|
2024.10.31
|
추천 0
|
조회 64
|
naa**** | 2024.10.31 | - | 64 |
74625 | VBA |
New 시트이동시 유저폼 실행방법 문의
(2)
답변완료
땡이
|
2024.10.31
|
추천 0
|
조회 63
|
땡이 | 2024.10.31 | - | 63 |
74621 | 기능/도구 |
New 4개의 열 에서 같은 이름 가로로 정렬
(3)
Bukonge
|
2024.10.31
|
추천 0
|
조회 62
|
Bukonge | 2024.10.31 | - | 62 |
74618 | VBA |
New 유저폼에 바코드스캔시 입력속도 개선방법?
(5)
답변완료
땡이
|
2024.10.31
|
추천 0
|
조회 58
|
땡이 | 2024.10.31 | - | 58 |
74616 | 함수/공식 |
New Rawdata
(4)
HIHUGO
|
2024.10.31
|
추천 0
|
조회 68
|
HIHUGO | 2024.10.31 | - | 68 |
74604 | 문서서식 |
New 간트차트 조건부서식 이용 문의
(3)
배고픈짐승
|
2024.10.30
|
추천 0
|
조회 81
|
배고픈짐승 | 2024.10.30 | - | 81 |
74599 | 함수/공식 |
New 이런 경우에는 무슨 함수를 써야할까요..?
(2)
iwnqn
|
2024.10.30
|
추천 0
|
조회 102
|
iwnqn | 2024.10.30 | - | 102 |
74598 | 문서서식 |
New 엑셀 유효성 검사 뛰어 쓰기 문제
(2)
답변완료
퉁퉁이
|
2024.10.30
|
추천 0
|
조회 75
|
퉁퉁이 | 2024.10.30 | - | 75 |
74592 | 함수/공식 |
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요!
(9)
답변완료
저도해볼게요
|
2024.10.30
|
추천 0
|
조회 100
|
저도해볼게요 | 2024.10.30 | - | 100 |
74589 | 구글시트 |
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다
(4)
답변완료
스톤스톤
|
2024.10.30
|
추천 0
|
조회 60
|
스톤스톤 | 2024.10.30 | - | 60 |
74585 | VBA |
New UserForm 크기질문
(5)
땡이
|
2024.10.30
|
추천 0
|
조회 76
|
땡이 | 2024.10.30 | - | 76 |
74583 | 함수/공식 |
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다
(6)
qlcc****
|
2024.10.30
|
추천 0
|
조회 92
|
qlcc**** | 2024.10.30 | - | 92 |
74582 | 함수/공식 |
New filter 함수에 대해 문의드립니다
(5)
김은상
|
2024.10.30
|
추천 0
|
조회 73
|
김은상 | 2024.10.30 | - | 73 |
74581 | 구글시트 |
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
떡
|
2024.10.30
|
추천 0
|
조회 59
|
떡 | 2024.10.30 | - | 59 |
74572 | 차트/그래프 |
New 꺽은선 그래프의 레이블이 원복이 됩니다.
(3)
구리구리이
|
2024.10.30
|
추천 0
|
조회 65
|
구리구리이 | 2024.10.30 | - | 65 |
74570 | 함수/공식 |
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ
(3)
답변완료
서기
|
2024.10.30
|
추천 0
|
조회 62
|
서기 | 2024.10.30 | - | 62 |
74566 | 함수/공식 |
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법
(1)
답변완료
문과적남자
|
2024.10.30
|
추천 0
|
조회 63
|
문과적남자 | 2024.10.30 | - | 63 |
74564 | 함수/공식 |
New 각 열별로 합 구하는 방법
(2)
답변완료
라핼
|
2024.10.30
|
추천 0
|
조회 80
|
라핼 | 2024.10.30 | - | 80 |
74563 | 함수/공식 |
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ
(1)
정재욱
|
2024.10.30
|
추천 0
|
조회 78
|
정재욱 | 2024.10.30 | - | 78 |
74558 | 함수/공식 |
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!!
(9)
침착해
|
2024.10.30
|
추천 0
|
조회 83
|
침착해 | 2024.10.30 | - | 83 |
74556 | 함수/공식 |
New 세트상품 마진율 구하기
(2)
ek02
|
2024.10.30
|
추천 0
|
조회 70
|
ek02 | 2024.10.30 | - | 70 |
74543 | 기능/도구 |
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요?
(4)
야만용사
|
2024.10.29
|
추천 0
|
조회 105
|
야만용사 | 2024.10.29 | - | 105 |
74542 | 기능/도구 |
New 엑셀 백분율 숫자로변경
(3)
rarara
|
2024.10.29
|
추천 0
|
조회 96
|
rarara | 2024.10.29 | - | 96 |
74540 | 함수/공식 |
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ
(11)
혁
|
2024.10.29
|
추천 0
|
조회 137
|
혁 | 2024.10.29 | - | 137 |
@엑셀힘들마다아 님 대강,,,
전체자료를 배열에 할당
배열을 For,,,Next 든 Do While ,,, Loop든 순환하면서
첫번째 열이 "카테고리"이면 그 행에서 "상품명"과 "공급가"를 확인하고 해당열번호 확인
확인된 열번호로 첫번째 값이 빈칸이 아닐 경우 상품명과 공급가를 결과 배열에 추가
첫번째 값이 빈칸이거나 "ID*"이면 Skip
'상품명'과 '공급가'가 들어 있는 결과 배열을 원하는 곳에 기재
@원조백수 님 안녕하세요 원조백수님!
그럼....find 안쓰는건가요...? 제가 이해가 잘 안가서요..
@엑셀힘들마다아 님 셀을 직접 확인하는게 시간이 훨씬 많이 들어서
배열로 검색하는 것이 좋다는 생각입니다.
@엑셀힘들마다아 님 샘플 파일 첨부하니 참조하세요.
첨부파일 : 공급가-리스트.xlsm