다른 형식으로 작성된 시트간 데이터 복사
VBA
작성자
청구리
작성일
2022-06-08 16:32
조회
64
시트 1에 있는 일일 보고서의 데이터 일부를 시트 2에 있는 월간 보고서로 옮기는 매크로를 만들려 하는데요
이 전에 근무했던 회사에서 사용했던 기능들이어서 찾아보고 있는데 원하는 기능을 찾기가 쉽지않네요
- 일일 보고서 작성 후 사용할 매크로 버튼 생성 (해결)
- 시트 1의 내용에서 2로 데이터 복사 (매크로 기록으로 해결하려 했으나 제목 셀에서 텍스트로 매크로 복사가 됩니다.)
- 시트 2에서 먼저 기록된 데이터가 있을 경우 다음 열로 넘어가도록
이렇게 문제가 있습니다.
추가로 셀 병합 방식이 여러 기능을 사용하는데 제한이 많은 것 같아서 사용을 지양하려 하는데요
테이블 선택 후 행 방향의 중간 정렬은 가능한데 열 방향으로의 중간 정렬은 불가능 할까요 ?
도움 부탁드려요!
전체 6,906
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! (모집 마감) -- 📌 (99)
![]() ![]() |
![]() ![]() |
2022.06.23 | 144 | 17850 | ||
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(79)
오빠두엑셀
|
2021.10.28
|
추천 98
|
조회 5347
|
![]() ![]() |
2021.10.28 | 98 | 5347 |
39103 | VBA |
New 특정 셀에 특정 값을 입력하면 msgbox 띄우기 (매크로 트리거)
![]() |
![]() |
01:45 | 0 | 3 |
39097 | VBA |
New Worksheet_Change 기능을 Module 에서 다루기
(1)
![]() |
![]() |
2022.07.06 | 0 | 9 |
39093 | 함수/공식 |
New 쉼표로 구분된 단어 끊는 방법좀 알려주세요! 부탁드립니다
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 20 |
39092 | 함수/공식 |
New 정렬 기능 대신 3가지 순서로 RANK 매기기
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 12 |
39087 | VBA |
New 바코드와 수량이 일치하면 중복 매대를 추출하는 매크로 결과값 오류
![]() ![]() |
![]() |
2022.07.06 | 0 | 16 |
39082 | 함수/공식 |
New RANK와 RANK.EQ 함수 문의
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 17 |
39075 | 파워쿼리/피벗 |
New 파워쿼리 새로고침시 개인정보수준이라는 팝업이 뜨면서 에러가 납니다.
![]() ![]() |
![]() |
2022.07.06 | 0 | 16 |
39072 | 함수/공식 |
New 숙박일수 계산 추가질문드립니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 25 |
39071 | 함수/공식 |
New 상태표시줄 관련
![]() ![]() |
![]() |
2022.07.06 | 0 | 25 |
39070 | 함수/공식 |
New 함수? 사용해서 1시트의 내용을 2시트에 표시하는 방법좀 알려주세요
![]() ![]() |
![]() |
2022.07.06 | 0 | 25 |
39062 | VBA |
New 고급필터를 사용하여 추출한 데이터를 수정하면 원본 데이터 시트에서 수정되는 코드 해석 부탁드립니다
![]() ![]() |
![]() |
2022.07.06 | 0 | 36 |
39059 | 차트/그래프 |
New 슬라이서 다중 연동하여 원형차트 시 적용되지 않는 문제
![]() ![]() |
![]() |
2022.07.06 | 1 | 12 |
39052 | VBA |
New 파일 삭제 매크로가 한쪽 문구에서만 작동을 합니다.
![]() ![]() |
![]() |
2022.07.06 | 0 | 20 |
39044 | VBA |
New 사용자정의함수를 다른PC에 적용
(2)
답변완료
![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 31 |
39034 | VBA |
New 자동화 프로그램 항목 추가 관련
![]() |
![]() |
2022.07.06 | 0 | 39 |
39032 | VBA |
New VBA 고급자동필터 활용 조건 값이 비워 있을 때 결과 값도 안 나오게 하는 방범 문의 합니다.
![]() ![]() ![]() |
![]() ![]() |
2022.07.06 | 0 | 30 |
39019 | 함수/공식 |
New 엑셀 수식시 범위부분이 절대값이 안되요
![]() ![]() |
![]() |
2022.07.05 | 0 | 31 |
39016 | 함수/공식 |
New vlookup으로 가져온 알파벳을 특정숫자로 바꾸는 방법(쌩초보)
(1)
![]() |
![]() |
2022.07.05 | -2 | 32 |
39014 | VBA |
New 열 추가 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 32 |
39009 | 함수/공식 |
New index,match 함수 중에서 동일한 값이 나올때
![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
39007 | 함수/공식 |
New VLOOKUP 조건에 맞는 것을 계속해서 나열하고 싶을 때
![]() ![]() |
![]() |
2022.07.05 | 0 | 39 |
39003 | 함수/공식 |
New 셀에서 영어만 추출하기
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 25 |
38996 | VBA |
New 현재 열넓이 확인후 20 더하는 방법
(1)
![]() |
![]() |
2022.07.05 | 0 | 34 |
38990 | 함수/공식 |
New 중복값중에 하나만 더하기
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.05 | 0 | 29 |
38987 | 함수/공식 |
New 행 열이 모두 숫자입니다.
![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
38983 | 함수/공식 |
New 카드번호별로 시트를 만들 수 있는 방법을 알고 싶습니다! - 관련 엑셀첨부
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 45 |
38982 | 파워쿼리/피벗 |
New 파워쿼리에서 영문과 숫자만 순서대로 추출
(6)
답변완료
![]() |
![]() |
2022.07.05 | 0 | 41 |
38981 | 구글시트 |
New COUNTIF 함수와 SUBTOTAL
![]() ![]() ![]() |
![]() |
2022.07.05 | 0 | 27 |
38979 | 문서서식 |
New 서로 다른 엑셀 파일 비교
![]() ![]() |
![]() |
2022.07.05 | 0 | 29 |
38976 | 함수/공식 |
New BOM 오류 확인 방법 문의
![]() ![]() |
![]() |
2022.07.05 | 0 | 30 |
셀 병합 해제 후 매크로 저장으로 해봤습니다.
여기에 처음 시트 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