PGR21.com
- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다.
통합 규정을 준수해 주십시오. (2015.12.25.)
Date 2019/08/19 17:49:33
Name 커피소년
Subject [질문] 간단한 엑셀 질문 합니다.
현재 하려는 작업이 A파일에서 매크로로 B파일의 데이터를 가져오려고 하는데
최대한 간단하게 작업해보려고 합니다.

질문.
행이나 열을 ctrl+c,v해서 복사하는 것처럼, 하나의 행이나 열을 통째로 변수에 넣고
가져와서 값으로 행붙여넣기나 열붙여넣기가 가능한건가요?
안된다면 당연히 셀을 반복하면서 하나하나 값복사를 하는 방법뿐인거 겠죠?

통합규정 1.3 이용안내 인용

"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.
법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
EPerShare
19/08/19 17:54
수정 아이콘
가능합니다. 방법은 데이터 구조를 알려주셔야 마땅한게 나올 것 같네요.
커피소년
19/08/19 17:58
수정 아이콘
데이터 구조는

수취인ㅣ주소ㅣ수량ㅣ
홍길동ㅣ서울ㅣ 3 ㅣ
둘리 ㅣ서울ㅣ 2 ㅣ

이런 방식으로 되어 있습니다.

동일하게 가져오면 되고 파일이 여러개고 매일 해야해서 매크로로 만드려고 합니다.
Love&Hate
19/08/19 18:37
수정 아이콘
그냥 A파일을 만드실때 B파일의 셀들을 부르시면 되지 않나요?
꼭 함수가 아닌 값으로 쓰고 싶으시면
A파일을 만들고 나서 함수를 없애고 값으로만 만들면되고.
제가 질문을 정확하게 이해한건지 의문이 살짝 들긴합니다.
커피소년
19/08/19 20:28
수정 아이콘
위에 예시로 든 목록을 그대로 가지고 오는게 아니라서요.
파일이 b만 있는건 아니고 cdf 여러가지기도 하네요.
Love&Hate
19/08/19 20:30
수정 아이콘
b든 c든 파일이 여러개있는건 다 가져오는건 문제가 없고
그대로 가지고 오는게 아니면 그 가공과정을 넣어서 셀에 따오면되는거 아닌가요?
어떤식으로 다르게 가져온단 말씀이신지 모르겠네요.
Icosahedron
19/08/19 21:58
수정 아이콘
(수정됨) Range 객체의 copy와 pasteSpecial 메소드를 쓰시면 됩니다.

편의상 동일 시트를 예시로 들겠습니다.
J부터 L열까지의 내용을 B열부터 D열까지로 복사하는 경우,

Dim copyRange As Range
Dim pasteRange As Range

Set copyRange = Range("J:L")
Set pasteRange = Range("B:D")

copyRange.Copy (copyRange의 내용을 클립보드로 복사합니다.)
pasteRange.PasteSpecial xlPasteAll (클립보드의 내용을 pasteRange에 붙여넣기 합니다.)
Application.CutCopyMode = False (복사 모드를 해제합니다.)

PasteSpecial 메소드의 Paste 매개변수는 xlPasteAll이나 xlPasteValues(값으로 붙여넣기), xlPasteFormulas(수식으로 붙여넣기) 등을 사용할 수 있습니다.

이를 좀 더 응용해서, 현재 화면에 표시된 파일/시트의 J열-L열을 '복사.xlsx' 파일의 sheet1, B열-D열에 복사하고 싶다면,
copyRange = ActiveWorkbook.ActiveSheet.Range("J:L")
pasteRange = Workbooks("복사.xlsx").Worksheets("sheet1").Range("B:D")
로 쓸 수 있겠습니다.
커피소년
19/08/27 16:12
수정 아이콘
아 늦었지만 답변 감사합니다.
일이 바빠서 이제서야 다시 매크로 작성을 하게 됐네요.
말씀해주신 것 적용해보겠습니다!
목록 삭게로! 맨위로
번호 제목 이름 날짜 조회
136679 [질문] 4만원 이하 호텔뷔페가 있을까요 ... ? [44] Aiurr6745 19/08/20 6745
136678 [질문] 영양제 복용에 관해 질문 드립니다. [4] Demi2764 19/08/20 2764
136677 [질문] 외국에서 친척분이 들어오는데 2주정도 유심이나 포켓와이파이중 뭐가 더 좋을까요!? [4] mcu2461 19/08/20 2461
136676 [질문] 첫 전세계약 문제 없는지 봐주시면 감사하겠습니다. [17] 라다3446 19/08/20 3446
136675 [질문] 옛날 만화를 찾아봅니다. [2] SEGA2937 19/08/20 2937
136674 [질문] 동미참예비군 연기 문의 [8] Cherish2822 19/08/20 2822
136673 [질문] 통신사 멤버쉽 잔여포인트 빠른 시간내에 효과적으로 다 쓰는 법 [4] Mindow3335 19/08/20 3335
136672 [질문] 보통 소개팅 애프터 전 연락은 어떻게 해야하나요? [26] 삭제됨27328 19/08/20 27328
136671 [질문] 제로페이 같은 결제 시스템중에 오프라인에서 쓰기 가장 편한 건? [11] 서쪽으로가자2289 19/08/20 2289
136670 [질문] 윈10 공유폴더 접근... [3] 크루개4256 19/08/20 4256
136669 [질문] 지금 연수원 와있는데 고민이 있습니다 ㅠ [28] whenever5984 19/08/20 5984
136668 [질문] 유튜브 뮤직의 서비스 방식과 음질 관련 질문 [2] 조유리2719 19/08/20 2719
136667 [질문] 듀얼모니터 사용이 시력에 영향을 미칠까요? [3] 고양이맛다시다4488 19/08/20 4488
136665 [질문] 컴퓨터 견적 이륙 예정 최종 허가 질문입니다. [2] cluefake3438 19/08/20 3438
136664 [질문] 아...윈도우 업데이트하나 망했습니다. [5] 굿리치[alt]4318 19/08/20 4318
136663 [질문] 롤 창모드 후 비활성화 시 프레임 드랍 [3] 유열빠6113 19/08/19 6113
136662 [질문] 4k 모니터 관련해서 질문드려요 [8] woocho3417 19/08/19 3417
136660 [질문] 컴퓨터 견적 괜찮은지 한번 봐주세요 [6] 치킨2927 19/08/19 2927
136659 [질문] 여수불꽃축제 숙소 질문입니다. [3] 아이시스 8.03415 19/08/19 3415
136658 [질문] 여자친구 취업선물 추천부탁드립니다! [35] Its_all_light17032 19/08/19 17032
136657 [질문] 홉스 쇼 보려는데 전작들을 봐야할까요? [12] 주전자2692 19/08/19 2692
136655 [질문] 운동고수님들 질문 드립니다 [4] 치토스2103 19/08/19 2103
136654 [질문] 아디다스 네오 슬립온 같은 신발 또 없을까요? [3] 라떼2934 19/08/19 2934
목록 이전 다음
댓글

+ : 최근 1시간내에 달린 댓글
+ : 최근 2시간내에 달린 댓글
맨 위로