입력쉬트에 입력한 내용을 특정쉬트에 붙여 넣는 VBA 질문 드립니다.

VBA
작성자
이진호
작성일
2021-11-10 17:57
조회
67
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

안녕하세요?

VBA 관련하여 질문 드릴 사항이 있어 문의 드립니다.

 

Sheet2에 입력한 정보를 모두 Sheet3 마지막 행을 찾아 그 뒤에 이어 붙이는 VBA입니다.

(sample 첨부)

 

Sheet2에 입력된 정보를 그대로(전부)

Sheet2에 매크로 지정한 버튼을 누르면 Sheet3의 마지막 행을 찾아 붙여넣기 해야 하는 상황인데요

 

[소스]

Sub play()
Dim rng As Range
Set rng = Sheets("sheet3").Cells(Rows.Count, "B").End(3)(2)
rng.Resize(, 5) = Range("B3:F3").Value
End Sub

 

매크로 실행을 하면 한줄은 복사가 정상적으로 가능하나  B3:F10 까지의 전체 데이터를 복사하고자

rng.Resize(, 5) = Range("B3:F3").Value   ->  rng.Resize(, 5) = Range("B3:F10").Value

로 변경하고 실행하였으나 1줄만 복사되는 동일한 결과값이 실행 되더라구요.

 

입력한 범위 전체를 이어 붙이려고 한다면 어떻게 수정하여야 하는지 도움좀 부탁드립니다.

 

행복한 하루 되세요~~

전체 3

  • 2021-11-11 12:39

    감사합니다. ! 원하는 결과값이 나왔습니다. 수정해 주신 내용을 이해하기 위해 더 노력하겠습니다~!

     

    좀더 공부가 필요해서 추가적으로 3000


  • 2021-11-10 18:45

    조금 수정해 보았습니다.

    Sub play()
    Dim rng As Range
    Dim n As Integer

    n = Sheets("sheet2").Cells(Rows.Count, "c").End(3).Row

    Set rng = Sheets("sheet3").Cells(Rows.Count, "B").End(3)(2)

    rng.Resize(n - 2, 5) = sheets("sheet2").Range("B3:F" & n).Value

    End Sub


  • 2021-11-10 20:33

    오우 감사합니다.


전체 4,653
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (10)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 716
트로피 오빠두엑셀 2021.10.28 16 716
24177 기능/도구
New 매크로 와 자동필터
FLOWERBALL | 2021.11.30 | 추천 0 | 조회 20
FLOWERBALL 2021.11.30 0 20
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
ryan_cruze | 2021.11.30 | 추천 0 | 조회 37
ryan_cruze 2021.11.30 0 37
24166 기능/도구
New 질문있습니다.
최강씨맨 | 2021.11.30 | 추천 0 | 조회 26
최강씨맨 2021.11.30 0 26
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 2021.11.30 | 추천 0 | 조회 31
PAKSAW 2021.11.30 0 31
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 2021.11.30 | 추천 -1 | 조회 35
ㄱ박민극 2021.11.30 -1 35
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (2)
가리 | 2021.11.30 | 추천 0 | 조회 29
가리 2021.11.30 0 29
24153 VBA
New 엑셀 검색 창 첨부파일 (2)
이혜 | 2021.11.30 | 추천 0 | 조회 28
이혜 2021.11.30 0 28
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 2021.11.30 | 추천 0 | 조회 27
이길호 2021.11.30 0 27
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 2021.11.30 | 추천 0 | 조회 17
Yukon 2021.11.30 0 17
24140 VBA
New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
이치영 | 2021.11.30 | 추천 0 | 조회 40
이치영 2021.11.30 0 40
24135 VBA
New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 53
툴잇지 with 우정기기 2021.11.29 0 53
24132 함수/공식
New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
키큰아저씨 | 2021.11.29 | 추천 0 | 조회 51
키큰아저씨 2021.11.29 0 51
24129 VBA
New 직사각형 도형 삭제vba (2) 답변완료
H.B | 2021.11.29 | 추천 1 | 조회 33
H.B 2021.11.29 1 33
24126 VBA
New "요청한 레지스트리에 엑세스할 수 없습니다." 라는 에러때문에 진행이 안됩니다. (3)
볼펜수리공 | 2021.11.29 | 추천 0 | 조회 30
볼펜수리공 2021.11.29 0 30
24120 기능/도구
New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (3) 답변완료
glas**** | 2021.11.29 | 추천 0 | 조회 36
glas**** 2021.11.29 0 36
24117 함수/공식
New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
감사하모니카 | 2021.11.29 | 추천 0 | 조회 43
감사하모니카 2021.11.29 0 43
24116 VBA
New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
한정석 | 2021.11.29 | 추천 0 | 조회 50
한정석 2021.11.29 0 50
24113 함수/공식
New 조건 서식 질문입니다. 첨부파일 (1)
space | 2021.11.29 | 추천 0 | 조회 38
space 2021.11.29 0 38
24111 피벗테이블
New 피벗테이블 DAX함수 관련 문의 (1)
T첫 | 2021.11.29 | 추천 0 | 조회 25
T첫 2021.11.29 0 25
24106 함수/공식
New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
공수래 | 2021.11.29 | 추천 0 | 조회 41
공수래 2021.11.29 0 41
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련 (1)
유지연 | 2021.11.29 | 추천 0 | 조회 30
유지연 2021.11.29 0 30
24098 VBA
New 워드 Format(숫자, "#,###") (1) 답변완료
argus | 2021.11.28 | 추천 0 | 조회 38
argus 2021.11.28 0 38
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 44
축전 2021.11.28 0 44
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 28
가을전어 2021.11.28 0 28
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련 (1)
어루 | 2021.11.28 | 추천 0 | 조회 21
어루 2021.11.28 0 21
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 40
y**** 2021.11.28 0 40
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (4) 답변완료
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 50
ㅈㄱㄹ 2021.11.28 0 50
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
007 | 2021.11.28 | 추천 0 | 조회 63
007 2021.11.28 0 63
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 40
루s cos 개인대행 2021.11.28 0 40
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 60
호랑이파워 2021.11.28 0 60
24068 파워쿼리/피벗
파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 31
월마리아 2021.11.28 0 31