[ 라이브 공지] 오늘 12월 4일(토) 라이브는 휴강입니다. 모두 즐겁고 평안한 주말 보내세요!

(5학년9반) 다른파일의 모든시트 불러오기 VBA

VBA
작성자
위례 느낌 짱
작성일
2021-11-16 11:06
조회
100
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

늘 도움 주심에 항상 감사드립니다 ~~~~~~~~~

 

현재 파일에 시트1개 있는데,

그 시트 바로 오른쪽부터 다른파일의 모든시트를 붙여넣기 하는 VBA 좀 알려 주십사 간곡히 요청 드립니다.

 

블로그 등에서 찾아봐도 제가 VBA 짱 유딩이라서 이해가 되지 않아서요 ...ㅠㅠ

 

감사합니다 !!!

회원등급 : 4레벨
포인트 : 149 EP
총질문 : 8 개 (마감율 : 0%)
채택답변 : 0 개
전체 7

  • 2021-11-16 11:38

    무슨 말씀인지 정확하게 파악을 잘 못해서 그런데

    For Each, Copy를 쓰면 쉽게 해결될 것 같은데 한번 시도해보세요


  • 2021-11-16 11:49

    넵, 회신 감사합니다.

    별첨 매크로파일의 시트'sheet1' 오른쪽에 불러오고자 하는 파일의 시트 모두(참고, 참고2, 참고3)를 붙여 놓고자 합니다.

    참고로, VBA 명령문은 잘 모르고 그냥 블로그 등에서 비슷한 거 찾아서 응용해서 실무에 활용하고 있어요 ... ㅠㅠ 그래서 제가 원하는 완성 VBA가 필요해요 ~

    좀 도와 주세요 ~~~

     

    감사합니다 !

    첨부파일 : 모든시트-불러오고자하는-대상파일.xlsx


  • 2021-11-16 11:53

    파일 하나 더 - 매크로 파일

    첨부파일 : 다른파일-모든시트-불러올-매크로-파일.xlsx


    • 2021-11-16 13:14

      @위례 느낌 짱 님  

      매크로파일 형식으로 저장한 후 파일 올려주세요.
      예시내용도 입력해 주세요. (원하시는 결과표시)

      위 올리신 파일 확인해보세요


  • 2021-11-16 13:29

    회신 감사합니다 ~~~

    말씀하신 대로 zip파일(5개파일)로 별첨 합니다 !
    별첨 매크로파일의 시트'sheet1' 오른쪽에 불러오고자 하는 파일의 시트 모두(참고, 참고2, 참고3)를 붙여 놓고자 합니다. 향후 반복작업이 필요해서요 ~~~

     

    잘 부탁 드립니다.

    감사합니다 ~~~

    첨부파일 : 매크로파일-끌어올대상파일-설명그림파일.zip


    • 2021-11-16 14:31

      @위례 느낌 짱 님 2번째 시트부터 각 시트에 정리한다면...

      각 시트의 a~f열 범위 병합해제 후 실행

      참고하세요

      Sub 데이터_정리()
      Dim n As Integer, i As Integer, j As Integer, k As Integer

      Application.ScreenUpdating = False

      For i = 2 To Sheets.Count

      n = Sheets(i).Cells(Rows.Count, "a").End(3).Row

      Sheets(i).Cells(3, 6).Resize(, 2).Cut Sheets(i).Cells(3, 2)

      Sheets(i).Cells(3, 1) = "계정과목"

      For j = 4 To n

      For k = 2 To 6

      If Sheets(i).Cells(j, k) <> "" Then

      Sheets(i).Cells(j, k).Resize(, 2).Cut Sheets(i).Cells(j, 2)

      GoTo 99:

      End If

      Next k

      99

      Next j

      Sheets(i).Cells(3, 1).CurrentRegion.Columns.AutoFit

      Next i

      Application.ScreenUpdating = True

      End Sub

       


      • 2021-11-16 14:51

        @bobo 님 죄송합니다만,

        저의 요청에 관한 설명이 조금 잘못된 것 같습니다.

        매크로 파일은 1개 시트(sheet1)로 고정이며, 이 상태에서 매크로 실행하면

        수시로 다른 파일을 찾아 선택해서
        (정해지지 않은 갯수의) 모든 시트를
        'sheet1' 오른쪽에 연결하여 붙여넣기 하는 VBA 입니다.

        한번만 더 부탁 드립니다 ~~~

         

        참고로, 제게 주신 위 VBA는 이미 제가 이케저케 어렵게 완료한 상태 입니다.

         

        감사합니다 !

         


전체 4,691
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (11)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 776
트로피 오빠두엑셀 2021.10.28 16 776
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (2)
열공합시다 | 14:16 | 추천 0 | 조회 11
열공합시다 14:16 0 11
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1)
이치영 | 13:43 | 추천 0 | 조회 15
이치영 13:43 0 15
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (3)
naver_5f055a605ee7d | 10:12 | 추천 0 | 조회 22
naver_5f055a605ee7d 10:12 0 22
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (1)
ㅈㄱㄹ | 01:03 | 추천 0 | 조회 22
ㅈㄱㄹ 01:03 0 22
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (2)
다우미노 | 2021.12.03 | 추천 0 | 조회 25
다우미노 2021.12.03 0 25
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 29
워싱턴 2021.12.03 0 29
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 35
뚜루루 2021.12.03 1 35
24275 VBA
New 병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 46
007 2021.12.03 0 46
24271 VBA
New Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (1)
Lucas's | 2021.12.03 | 추천 0 | 조회 30
Lucas's 2021.12.03 0 30
24270 기능/도구
New 여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (1)
함수시르미 | 2021.12.03 | 추천 1 | 조회 31
함수시르미 2021.12.03 1 31
24262 VBA
New 불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 43
파퍼 2021.12.03 0 43
24259 함수/공식
New 계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 41
skyzza**** 2021.12.03 0 41
24253 함수/공식
New 파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 30
안녕 2021.12.02 0 30
24252 함수/공식
New 표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 33
김성환 2021.12.02 0 33
24251 기능/도구
New 엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
New 모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 32
너의나라 2021.12.02 0 32
24248 차트/그래프
New 그래프에서 가로 축 Data 설정하는 법 첨부파일
Etter | 2021.12.02 | 추천 0 | 조회 35
Etter 2021.12.02 0 35
24245 VBA
New 아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 37
argus 2021.12.02 0 37
24239 VBA
New [초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 34
스캐쳐 2021.12.02 0 34
24238 VBA
New 어떤 한 배열에서 다른 배열에 있는 값만 제외하고 새로운 배열3을 만들 수 있을까요? (2)
Paul | 2021.12.02 | 추천 0 | 조회 32
Paul 2021.12.02 0 32
24233 함수/공식
New 0이상의 값(유효값)이 있는 칼럼과 그 값을 불러오고 싶습니다. 첨부파일 (2) 답변완료
크놉스 | 2021.12.02 | 추천 0 | 조회 32
크놉스 2021.12.02 0 32
24232 차트/그래프
New 엑셀 차트에서 특정 값이 너무 높을때 차트화 하는 법 (2) 답변완료
담담 | 2021.12.02 | 추천 0 | 조회 39
담담 2021.12.02 0 39
24230 VBA
New vba 코딩을 부탁드립니다. 첨부파일 (6)
Trimman | 2021.12.02 | 추천 -2 | 조회 56
Trimman 2021.12.02 -2 56
24228 함수/공식
New 등급 기준표를 참조해서 연산을 하려고 할때 (1) 답변완료
지천 | 2021.12.02 | 추천 0 | 조회 29
지천 2021.12.02 0 29
24221 파워쿼리/피벗
New 엑셀 종속 테이블 문의 첨부파일 (2)
유령회원 | 2021.12.02 | 추천 0 | 조회 25
유령회원 2021.12.02 0 25
24216 VBA
New 로그인엑셀 사용시 수식입력줄 사라짐, 모든 엑셀창 자동종료 첨부파일 (1)
엑셀이 | 2021.12.02 | 추천 0 | 조회 26
엑셀이 2021.12.02 0 26
24215 VBA
New set_routine 반복 매크로 (1)
하늘의 꿈 | 2021.12.01 | 추천 0 | 조회 33
하늘의 꿈 2021.12.01 0 33
VBA
New 재질문 입니다.
하늘의 꿈 | 2021.12.02 | 추천 0 | 조회 17
하늘의 꿈 2021.12.02 0 17
24213 파워쿼리/피벗
New [파워쿼리] 계약자코드 중 특수계약 날짜가 일반계약 최소 최대 사이에 포함여부 열추가 첨부파일 (3)
seorin | 2021.12.01 | 추천 0 | 조회 27
seorin 2021.12.01 0 27
24211 VBA
New 시트를 메일머지하여 Hancom PDF 파일로 출력하는 매크로 VBA 코드 도움을 받고 싶어요. 첨부파일 (4) 답변완료
김학동 | 2021.12.01 | 추천 0 | 조회 39
김학동 2021.12.01 0 39
24210 함수/공식
New 혹시 이런 것도 구할 수 있을까요? (3)
마른막대기 | 2021.12.01 | 추천 0 | 조회 50
마른막대기 2021.12.01 0 50