OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    졸따구 (zolddagu) 추천:  2 파일:     여러행자료를 한열에 계속하여입력.xls (45KB) 조회:  3317 제목:   여러행의자료를 다른시트 한열에 입력하기(VBA)
Sheet1에 A6행부터 일렬로 테이터가 있고 Sheet2에는 1 쪽이 46행으로 이루어진 문서가 아래쪽으로 200쪽 정도 됩니다      Sheet1에 일렬로 되있는 각셀의 데이터를 Sheet2에(1페이지마다) 1행씩 가져오고 싶습니다. Sheet2에 입력될 위치는 아래와같이 46행씩 반복적으로 참조하는 문서를 만들려고 합니다. Sheet2의  A1셀에는  Sheet1의 A6셀을  Sheet2의  A47셀에는 Sheet1의 A7셀을  Sheet2의  A93셀에는 Sheet1의 A8셀을  Sheet2의 A139셀에는 Sheet1의 A9셀을  참조하는 문서를 만들려고 합니다.   2814질문의 반대적인 참조인것 같은데 비포앤에프터님의 답변주신 함수로 응용하다보니 한계에 이르러 질문드립니다. ==============[천사21님 글에 대한 답변입니다]============== 안녕하세요. 무엇때문에 이것이 필요한지는 모르겠으나 암튼 원하는 자료가 되었으면 합니다. 'VBA' 로 작성하였습니다. 　 [불량 게시물 신고]
천사21 답변 고맙습니다. 보충질문 하나만 더 드리겠습니다. 현재 A열에서~AT열까지 자동으로 입력되게 되있는데 선택적으로 한개열만 입력할려면 어디를 손봐져야 될런지요. 예를들어 A열데이터만 46행마다 반복적으로 입력할려면.. 다시 첨부해서 올려주시면 감사.. 07-29 (08:37) ⓧ삭제 ■신고 졸따구 첨부하였던 거와 같은 조건(즉 Sheet1에서 실행하고 Sheet2에 입력) Dim intA As Integer Dim Sht As WorkSheet Dim Rng1 As Range Dim Rng2 As Range Set Sht=WorkSheets("Sheet2") Set Rng2=Sht.[A1] intA=ActiveSheet.[A1].CurrentRegion.Rows.Count For Each Rng1 In ActiveSheet.Range("A1:A" & intA)   Rng2.Value = Rng1.Value   Set Rng2=Rng2.Cells(47) Next Rng1 그럼.. 07-29 (09:05) ⓧ삭제 ■신고 천사21 너무 감사드립니다.. 07-29 (15:29) ⓧ삭제 ■신고
작성일 : 2003-07-28(21:41) 최종수정일 : 2003-07-28(21:41)
◎ 관련글   제 목   작성자   날짜 반복되는 셀참조문의 (2814질문의 반대참조) 천사21 2003-07-28 ◎ 여러행의자료를 다른시트 한열에 입력하기(VBA) 졸따구 2003-07-28