OfficeTutor 365

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

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

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

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

작성자:    Belkna (nc29170) 추천:  2 파일:     조회:  1595 제목:   VBA에서 입력한 셀의 데이터가 있으면 아래셀에 입력하게 하는 방법
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.  - 엑셀 버전(95,97,2000,xp,2003,2007): * 아래줄에 질문을 작성하세요 >> VBA를 활용해 다른시트에 입력된 주소를 통합시트로 가져와서 순차적으로 나열하고 싶습니다. 예를들어 Sheet2의 E19, Sheet3의 E19, Sheet3의 E19의 값을 Sheet1의 L8부터 아래로 나열하고 싶습니다. 감사합니다. 　 [불량 게시물 신고]
참서리 '---------------------------------- '아래와 같이 해 보세요. '---------------------------------- Sub copy_data()   Worksheets("Sheet1").range("L8").resize(3,1).value = _       Array( Worksheets("Sheet2").range("E19").value, _              Worksheets("Sheet3").range("E19").value, _              Worksheets("Sheet4").range("E19").value _             )   End With 04-03 (10:34) ⓧ삭제 ■신고 Belkna 감사합니다. 한번해보겠습니다. 04-03 (11:00) ⓧ삭제 ■신고 dew 행열변환 함수를 사용해야 합니다. Worksheets("Sheet1").Range("L8").Resize(3, 1).Value = _     WorksheetFunction.Transpose( _         Array(Worksheets("Sheet2").Range("E19").Value, _             Worksheets("Sheet3").Range("E19").Value, _             Worksheets("Sheet4").Range("E19").Value)) 04-03 (13:48) ⓧ삭제 ■신고 Belkna 윗분도 감사합니다. 응용해서 해보겠습니다. 04-03 (16:08) ⓧ삭제 ■신고 참서리 DEW님께 맞는 식입니다. 04-03 (16:20) ⓧ삭제 ■신고 Belkna 추가로 궁금한게 있습니다. 워크시트의 갯수가 무한정일때에 깔끔하게 하는방법 없을까요? 무한정 늘려보니 값이 없는경우 #N/A값이 출력됩니다. 04-03 (17:23) ⓧ삭제 ■신고
작성일 : 2019-04-03(10:21) 최종수정일 : 2019-04-03(10:21)
◎ 관련글   제 목   작성자   날짜 ◎ VBA에서 입력한 셀의 데이터가 있으면 아래셀에 입력하게 하는 방법 Belkna 2019-04-03 [RE]VBA에서 입력한 셀의 데이터가 있으면 아래셀에 입력하게 하는 방법 참서리 2019-04-03