다른 형식으로 작성된 시트간 데이터 복사

VBA

작성자

청구리

작성일

2022-06-08 16:32

조회

엑셀버전 : 엑셀2013

운영체제 : 윈도우10

시트 1에 있는 일일 보고서의 데이터 일부를 시트 2에 있는 월간 보고서로 옮기는 매크로를 만들려 하는데요

이 전에 근무했던 회사에서 사용했던 기능들이어서 찾아보고 있는데 원하는 기능을 찾기가 쉽지않네요

일일 보고서 작성 후 사용할 매크로 버튼 생성 (해결)
시트 1의 내용에서 2로 데이터 복사 (매크로 기록으로 해결하려 했으나 제목 셀에서 텍스트로 매크로 복사가 됩니다.)
시트 2에서 먼저 기록된 데이터가 있을 경우 다음 열로 넘어가도록

이렇게 문제가 있습니다.

추가로 셀 병합 방식이 여러 기능을 사용하는데 제한이 많은 것 같아서 사용을 지양하려 하는데요

테이블 선택 후 행 방향의 중간 정렬은 가능한데 열 방향으로의 중간 정렬은 불가능 할까요 ?

도움 부탁드려요!

청구리

회원등급 : 잎새등급

포인트 : 81 EP

총질문 : 1 개 (마감율 : 0%)

채택답변 : 0 개

게시글

다른 형식으로 작성된 시트간 데이터 복사 (1)
2022.06.08
안녕하세요 잘 부탁드립니다! (6)
2022.06.08

전체 1

청구리 님 작성자

2022-06-08 17:29

셀 병합 해제 후 매크로 저장으로 해봤습니다.

여기에 처음 시트 2로 넘어가는 첫 동작에서 데이터가 있을 때 다음 열로 넘기는 명령어만 추가하면 어느정도 마음에 드는 매크로가 될 것 같습니다!

Sub 매크로1()
'
' 매크로1 매크로
'

'
Range("E4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("C4:D4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("E4:F4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("G4:H4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("J4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("I4:W4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("Q7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("X4:AA4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("Q10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("AB4:AE4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("W9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("AF4:AI4").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("C30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("AJ4:AT4").Select
ActiveSheet.Paste
End Sub

« [택배송장만들기] 거래처명 추출하기

Listly 를 활용한 인텍스 열 추가 »

목록보기

전체 6,906

번호	카테고리	제목	작성자	작성일	추천	조회
알림		📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (99) 오빠두엑셀 \| 2022.06.23 \| 추천 144 \| 조회 17850	오빠두엑셀	2022.06.23	144	17850

공지사항	함수/공식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (79) 오빠두엑셀 \| 2021.10.28 \| 추천 98 \| 조회 5347	오빠두엑셀	2021.10.28	98	5347
39103	VBA	New 특정 셀에 특정 값을 입력하면 msgbox 띄우기 (매크로 트리거) 509 \| 01:45 \| 추천 0 \| 조회 3	509	01:45	0	3
39097	VBA	New Worksheet_Change 기능을 Module 에서 다루기 (1) 유지니_ \| 2022.07.06 \| 추천 0 \| 조회 9	유지니_	2022.07.06	0	9
39093	함수/공식	New 쉼표로 구분된 단어 끊는 방법좀 알려주세요! 부탁드립니다 (2) 답변완료 YJ \| 2022.07.06 \| 추천 0 \| 조회 20	YJ	2022.07.06	0	20
39092	함수/공식	New 정렬 기능 대신 3가지 순서로 RANK 매기기 (1) 블링블링 \| 2022.07.06 \| 추천 0 \| 조회 12	블링블링	2022.07.06	0	12
39087	VBA	New 바코드와 수량이 일치하면 중복 매대를 추출하는 매크로 결과값 오류 kkwak \| 2022.07.06 \| 추천 0 \| 조회 16	kkwak	2022.07.06	0	16
39082	함수/공식	New RANK와 RANK.EQ 함수 문의 (2) 답변완료 블링블링 \| 2022.07.06 \| 추천 0 \| 조회 17	블링블링	2022.07.06	0	17
39075	파워쿼리/피벗	New 파워쿼리 새로고침시 개인정보수준이라는 팝업이 뜨면서 에러가 납니다. 만땅 \| 2022.07.06 \| 추천 0 \| 조회 16	만땅	2022.07.06	0	16
39072	함수/공식	New 숙박일수 계산 추가질문드립니다. (1) 두키림 \| 2022.07.06 \| 추천 0 \| 조회 25	두키림	2022.07.06	0	25
39071	함수/공식	New 상태표시줄 관련 (2) 답변완료 선크 \| 2022.07.06 \| 추천 0 \| 조회 25	선크	2022.07.06	0	25
39070	함수/공식	New 함수? 사용해서 1시트의 내용을 2시트에 표시하는 방법좀 알려주세요 (3) 지펴린 \| 2022.07.06 \| 추천 0 \| 조회 25	지펴린	2022.07.06	0	25
39062	VBA	New 고급필터를 사용하여 추출한 데이터를 수정하면 원본 데이터 시트에서 수정되는 코드 해석 부탁드립니다 (2) 호랑이파워 \| 2022.07.06 \| 추천 0 \| 조회 36	호랑이파워	2022.07.06	0	36
39059	차트/그래프	New 슬라이서 다중 연동하여 원형차트 시 적용되지 않는 문제 지둥이 \| 2022.07.06 \| 추천 1 \| 조회 12	지둥이	2022.07.06	1	12
39052	VBA	New 파일 삭제 매크로가 한쪽 문구에서만 작동을 합니다. (1) 빼갈 \| 2022.07.06 \| 추천 0 \| 조회 20	빼갈	2022.07.06	0	20
39044	VBA	New 사용자정의함수를 다른PC에 적용 (2) 답변완료 siempre \| 2022.07.06 \| 추천 0 \| 조회 31	siempre	2022.07.06	0	31
39034	VBA	New 자동화 프로그램 항목 추가 관련 유라 \| 2022.07.06 \| 추천 0 \| 조회 39	유라	2022.07.06	0	39
39032	VBA	New VBA 고급자동필터 활용 조건 값이 비워 있을 때 결과 값도 안 나오게 하는 방범 문의 합니다. (4) 답변완료 파란맥 \| 2022.07.06 \| 추천 0 \| 조회 30	파란맥	2022.07.06	0	30
39019	함수/공식	New 엑셀 수식시 범위부분이 절대값이 안되요 (4) skih**** \| 2022.07.05 \| 추천 0 \| 조회 31	skih****	2022.07.05	0	31
39016	함수/공식	New vlookup으로 가져온 알파벳을 특정숫자로 바꾸는 방법(쌩초보) (1) 방성희 \| 2022.07.05 \| 추천 -2 \| 조회 32	방성희	2022.07.05	-2	32
39014	VBA	New 열 추가 문의 (2) 오대표 \| 2022.07.05 \| 추천 0 \| 조회 32	오대표	2022.07.05	0	32
39009	함수/공식	New index,match 함수 중에서 동일한 값이 나올때 (2) 답변완료 최사무엘 \| 2022.07.05 \| 추천 0 \| 조회 27	최사무엘	2022.07.05	0	27
39007	함수/공식	New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때 (1) 야자키겐스케 \| 2022.07.05 \| 추천 0 \| 조회 39	야자키겐스케	2022.07.05	0	39
39003	함수/공식	New 셀에서 영어만 추출하기 (2) 답변완료 킹셀 \| 2022.07.05 \| 추천 0 \| 조회 25	킹셀	2022.07.05	0	25
38996	VBA	New 현재 열넓이 확인후 20 더하는 방법 (1) 033cola \| 2022.07.05 \| 추천 0 \| 조회 34	033cola	2022.07.05	0	34
38990	함수/공식	New 중복값중에 하나만 더하기 (4) 답변완료 DS \| 2022.07.05 \| 추천 0 \| 조회 29	DS	2022.07.05	0	29
38987	함수/공식	New 행 열이 모두 숫자입니다. (1) DOUKCHEON 이재형 \| 2022.07.05 \| 추천 0 \| 조회 27	DOUKCHEON 이재형	2022.07.05	0	27
38983	함수/공식	New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부 (1) showtime**** \| 2022.07.05 \| 추천 0 \| 조회 45	showtime****	2022.07.05	0	45
38982	파워쿼리/피벗	New 파워쿼리에서 영문과 숫자만 순서대로 추출 (6) 답변완료 아코니 \| 2022.07.05 \| 추천 0 \| 조회 41	아코니	2022.07.05	0	41
38981	구글시트	New COUNTIF 함수와 SUBTOTAL 거꾸로문 \| 2022.07.05 \| 추천 0 \| 조회 27	거꾸로문	2022.07.05	0	27
38979	문서서식	New 서로 다른 엑셀 파일 비교 (2) notice \| 2022.07.05 \| 추천 0 \| 조회 29	notice	2022.07.05	0	29
38976	함수/공식	New BOM 오류 확인 방법 문의 (4) 터브가이황 \| 2022.07.05 \| 추천 0 \| 조회 30	터브가이황	2022.07.05	0	30