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

VBA
작성자
청구리
작성일
2022-06-08 16:32
조회
64
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

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

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

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

이렇게 문제가 있습니다.

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

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

도움 부탁드려요!

회원등급 : 잎새등급
포인트 : 81 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 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

    공연장-사용-인원-보고서.xltm


전체 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